Accessで業務ソフト開発

フォームでのレコード操作 - Access VBA

レコードセレクタをコードで実現すると下記のようになります。

Function First_Record()
On Error Resume Next    
    DoCmd.GoToRecord , , acFirst
End Function


Function Previous_Record()
''前レコードへ
On Error Resume Next    
    DoCmd.GoToRecord , , acPrevious
End Function


Function Next_Record()
''次レコードへ
On Error Resume Next
    DoCmd.GoToRecord , , acNext
End Function


Function Last_Record()
''最後レコードへ
On Error Resume Next
    DoCmd.GoToRecord , , acLast
End Function


Function FNew_Record()
''新規レコード
On Error Resume Next
    DoCmd.GoToRecord , , acNewRec
    DoCmd.GoToControl "Code"
End Function

ソフトセル　担当:本田

住所：〒400-0806
山梨県甲府市善光寺3-32-15

電話：055-268-2140