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"
これ以外にも、オススメのものがあれば、コメントください。