先程の自動番号採番用のストアドをVBA(ADO)から呼びだす為のロジックです。

    Dim cmd As ADODB.Command
    Dim rst As ADODB.Recordset
    Dim param1 As ADODB.Parameter
    Dim param2 As ADODB.Parameter
    
    取得された値= -1
    Set rst = New ADODB.Recordset
    Set cmd = New ADODB.Command
    With cmd
        ' コネクション
        .ActiveConnection = DBへのコネクション
        ' タイプ=Procudure
        .CommandType = adCmdStoredProc
        ' プロシージャ名
        .CommandText = "ストアド名"
       
        ' 引数１
        Set param1 = .CreateParameter("@主キー", adInteger, adParamInput)
        param1.Value = 主キーの値
        .Parameters.Append param1
        ' 引数２
        Set param2 = .CreateParameter("@戻り値", adInteger, adParamOutput)
        .Parameters.Append param2
       
        ' ストアド実行
        .Execute
        
        取得された値= param2.Value
   End With

  Set rst = Nothing
  Set cmd = Nothing
  Set param1 = Nothing
  Set param2 = Nothing

これもパクる際には自己責任でお願いしますね。

あとバグってたら教えて下さい！

開発案件も受付中でーすｗｗ

なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
日本ブログ村へ

ちょうど１年前の投稿で、AccessをVSS管理する際にSP3だとパッチ適用する必要があるという記事を書きましたが、それでもダメという事象が社内でありました。

その場合には、
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

Access 2003 または Access 2002 では、Visual SourceSafe プロジェクトからデータベースを作成するときにエラー メッセージ:"Failed to ファイルのインポート"

要はＭＤＢの互換性の設定が合わないために起こる事象です。

当たり前といえばそれまでですが・・・。

前回の記事：AccessをVSSで管理する

◎なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
日本ブログ

Windows Vista + Office2003 + Office2007環境で、Access2003で作成されたプログラムを実行しようとしたところエラーが表示されました。

↓マイクロソフトは同居を余り推奨していないようです。

http://support.microsoft.com/kb/936748/ja

◎なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
日本ブログ村へ

この場合、色々と問題が発生するようです。

関連付けを変更する場合には下記の手順で行います。

①コマンドプロンプトを起動

②下記のコマンドを入力

・Office2003にする場合

"C:\Program Files\Microsoft Office\OFFICE11\excel.exe" /regserver
"C:\Program Files\Microsoft Office\OFFICE11\winword.exe" /regserver
"C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe" /regserver
"C:\Program Files\Microsoft Office\OFFICE11\powerpnt.exe" /regserver

・Office2007にする場合

"C:\Program Files\Microsoft Office2007\OFFICE11\excel.exe" /regserver
"C:\Program Files\Microsoft Office2007\OFFICE11\winword.exe" /regserver
"C:\Program Files\Microsoft Office2007\OFFICE11\msaccess.exe" /regserver
"C:\Program Files\Microsoft Office2007\OFFICE11\powerpnt.exe" /regserver

◎なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
日本ブログ村へ

DisplayAlartsを設定することで、回避できます。

例えば、シートを削除する時など、

Excel.Application.DisplayAlerts = False
objBook.Worksheets("シート名").Delete
Excel.Application.DisplayAlerts = True

と記述することで、削除確認のメッセージで「はい」を押したのと同じ状態になります。DisplayAlertsをFalseにしておかないと、シートは削除されません。

上記はExcelVBA以外の時のサンプルですが、ExcelVBAの時は、Application.DisplayAlerts = xxxのようです。

◎なみぶたぁのMyMiniCityはコチラ

↓クリックして頂けるとうれしいです（ワンクリック詐欺ではないです（笑））
人気blogランキングへ
日本ブログ村へ