Sub sumple4()
    Dim myDB As DAO.Database
    Dim myRS As DAO.Recordset
    
    Set myDB = CurrentDb
    Set myRS = myDB.OpenRecordset("tbl名簿", dbOpenTable) 'クエリを開いても良い
    
    myRS.MoveFirst
    myRS.MoveLast
    myRS.MoveNext
    myRS.MovePrevious
    myRS.Move (5)
    
    RS.Close 
    Set myRS = Nothing: Set myDB = Nothing

End Sub

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



Microsoft Office ブログランキングへ



タグ ：
#dao