Sub test1()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim RS As DAO.Recordset
    Dim MySQL As String
    
    Set DB = CurrentDb
    Set TD = DB.TableDefs!tbl商品
    
    Debug.Print "テーブルのフィールド数は、" & TD.Fields.Count
    
    MySQL = "SELECT 商品名 FROM tbl商品 WHERE 在庫数>50"
    
    Set RS = DB.OpenRecordset(MySQL)
    
    Debug.Print "レコードセットのフィールド数は、" & RS.Fields.Count
    
    RS.Close
    Set RS = Nothing: Set TD = Nothing: Set DB = Nothing
    
End Sub

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



Microsoft Office ブログランキングへ