APIを利用したVBAによる開発

VBAによるプログラム例

〇フォームオープン時：サーバーDB のデータ取得　VBA コード例

サーバDBにある必要なデータをクライアントPCに取り込むときのサンプルです。Accessのフォームが開くタイミングで、“SELECT”文で抽出したレコードをAccessファイルのテーブルに取り込みます。

Private Sub Form_Open()
  Dim blnStatus As Boolean
  '取込開始
  blnStatus = dbsCls.CopyLocal_fromSvr(“注文”,“SELECT * FROM [注文]”, True, 1)‘ヘッダー部分の取込
  blnStatus = dbsCls.CopyLocal_fromSvr(“注文内容”,SELECT * FROM [注文内容]”,True, 1)‘明細部分の取込
  If blnStatus = False Then
    MsgBox“ サーバーからの取込に失敗しました。”, vbOKOnly + vbExclamation,“ 注文管理システム”
  End If
Me.Requery

〇データ更新時：サーバーDB への反映　VBA コード例

クライアントPCのデータをサーバDBに書き込む場合のサンプルです。テーブル（”注文”）のレコードをクライアントPCのデータを元に、サーバDBの更新データとして書き換えます。

Private Sub サーバー更新()
  Dim blnStatus As Boolean
  'サーバーDB 更新
  blnStatus = dbsCls.CopySvr_fromLocal(“注文”, “WHERE 注文ID =” & Me. 注文ID, False)
  If blnStatus = True Then
   MsgBox“ サーバー更新を完了しました。”, vbOKOnly + vbExclamation,“ 注文管理システム”
  End If

〇サーバーへのログ出力：　VBA コード例

ユーザの操作履歴や処理内容をサーバ管理画面のログとして出力する場合のサンプルです。
出力したい処理のところに”SetSvr_UserLog”を挿入することにより、システム管理者はユーザの操作ログを閲覧することができます。

Private Sub ログ出力_Click()
  Dim blnStatus As Boolean
  blnStatus = dbsCls.SetSvr_UserLog(“ログ出力”, “テストログです。”)
  If blnStatus = True Then
    実行結果テキスト.Text = " ログ出力を完了しました。"
  Else
    実行結果テキスト.Text = " ログ出力に失敗しました。"
End If