LoginSignup
21

More than 5 years have passed since last update.

【AccessVBA】便利なコード・よくつかうコードまとめ

Posted at

AccessVBAの便利なコード・よくつかうコードをまとめました。

ファイルを開くもの、SQL、その他細かいものがあります。
よく使うので備忘にもどうぞ。

●ファイルを開く系

Access
'フォームを開く
DoCmd.OpenForm "F_Form", WindowMode:=acDialog

'テーブルを開く
DoCmd.OpenTable "T_Table", acViewNormal

'レポート開く
DoCmd.OpenReport "R_Report", acPreview,

'Excelを開く
'oApp:AccessからExcelを参照する変数
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
oApp.UserControl = True
oApp.Workbooks.Open FileName:="xxx\zzz.xlsm"

'PDFを開く
PathName = CurrentProject.Path & "xxx\zzz.pdf"
Application.FollowHyperlink PathName

●SQL文

AccessVBA
'INSERT
DoCmd.RunSQL "INSERT INTO T_Table SELECT * FROM T_xxx"

'UPDATE
DoCmd.RunSQL "UPDATE T_Table SET zzz = 'yyy' WHERE vvv = 'xxx'"

'DELETE
DoCmd.RunSQL "DELETE * FROM T_Table WHERE vvv LIKE 'yyy'"

●細かいの

AccessVBA
'画面の描画を行わない
Application.Echo False

'ワーニング表示をしない
DoCmd.SetWarnings False

'再クエリ
Me.Requery

'更新
Me.Refresh

'再計算
Me.Recalc

'昇順並べ替え
Me.OrderBy = "xxx"
Me.OrderByOn = True

'指定のコントロールへカーソルを戻す
DoCmd.GoToControl ("xxx")

'コンボボックスにテーブルの値を設定
Forms.F_Form.コンボn.Value = DLookup("team", "T_Table", "num = 'zzz'")

'Import
DoCmd.TransferText acImportDelim, , "T_Table", CurrentProject.Path & "vvv\xxx.csv"

これ以外にも、オススメのものがあれば、コメントください。

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
21