Access VBA 01_11.1_Button ( New record - Next record - previous record - delete record -save record)

Описание: Access VBA 01_11.1_Button ( New record - Next record - previous record - delete record -save record)
--------------------------------------------------------------------------
Codes used in the form linked to a record (table or query)

1
DoCmd.GoToRecord , , acNewRec
2
DoCmd.GoToRecord , , acNext
3
DoCmd.GoToRecord , , acPrevious
4-1
DoCmd.RunCommand acCmdDeleteRecord
5
DoCmd.GoToRecord , , acFirst
6
DoCmd.GoToRecord , , acLast
&&&&&&&&&&&&&&&&&&&&&&&&&&&&
4-2-delet
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

7-1-Save
DoCmd.Save
7-2-Save
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
&&&&&&&&&&&&&&&&&&&&&&&&&&&&
8-1
Private Sub CM_Search_ID_Click()
On Error Resume Next
Dim S
S = InputBox(" Insert ID ", " insert ID ")
DoCmd.GoToControl "ID"
DoCmd.FindRecord S
Me.Refresh
Me.FilterOn = False
End Sub
&&&&&&&&&&&&&&&&&&&&&&&&&&&&
8-2
Private Sub Cm_Filter_false_Click()
On Error Resume Next
Dim S
S = Me.ID
Me.FilterOn = False
DoCmd.GoToControl "ID"
DoCmd.FindRecord S
Me.Refresh
End Sub
--------------------------------------------------------------------------
الاكواد المستخدمه في النموذج المرتبط بسجل ( جدول او استعلام )