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
Set myRS = Nothing: Set myDB = Nothing
End Sub
↓ facebook のフォローで応援してください。お願いします。
Microsoft Office ブログランキングへ