Sub クエリ作成()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim MySQL As String
    
    Set DB = CurrentDb
    
    MySQL = "SELECT * FROM tbl商品 WHERE 在庫数>50"

    Set QD = DB.CreateQueryDef("Q在庫大", MySQL)
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub

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



Microsoft Office ブログランキングへ