Sub sumple4()
    Dim myDB As DAO.Database
    Dim myRS As DAO.Recordset
    
    Set myDB = CurrentDb
    Set myRS = myDB.OpenRecordset("tbl名簿", dbOpenTable) 'クエリを開いても良い
    
    Debug.Print myRS![住所].Value
    Debug.Print myRS![住所]
    Debug.Print myRS!住所
    Debug.Print myRS("住所")
    Debug.Print myRS.Fields("住所")
    Debug.Print myRS.Fields.Item("住所")
    Debug.Print myRS(3)

    RS.Close    
    Set myRS = Nothing: Set myDB = Nothing

End Sub

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



Microsoft Office ブログランキングへ