Sub Test()
    Dim strSQL As String
    
    strSQL = "SELECT * FROM tblTEST WHERE CD like '[ABC]*'"
    
    CurrentDb.QueryDefs("クエリ").SQL = strSQL
    DoCmd.OpenQuery "クエリ"

End Sub

クエリを開く
DoCmd.OpenQuery "クエリ名", AcViewクラス定数, AcOpenDataModeクラス定数

■AcViewクラス定数
acViewDesign
acViewNormal(既定)
acViewPivotChart
acViewPivotTable
acViewPreview

■AcOpenDataMode
acAdd
acEdit(既定)
acReadOnly


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ