Sub 一時的なクエリを作成しレコードセットに格納()
    Dim DB As DAO.Database
    Dim QD As DAO.QueryDef
    Dim RS As DAO.Recordset
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "SELECT * FROM tbl商品;"
    
    Set QD = DB.CreateQueryDef("", SQL)
    Set RS = QD.OpenRecordset(dbOpenDynaset)
    
    Do Until RS.EOF
        Debug.Print RS(0), RS(1)
        RS.MoveNext
    Loop
    
    RS.Close
    Set RS = Nothing: Set QD = Nothing: Set DB = Nothing
    
End Sub


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



Microsoft Office ブログランキングへ