مشروع مخالفات مرورية حفظ-حذف-اضافة-بحث للسجلات

Private Sub Command1_Click()''كود اضافة سجل
Data1.Recordset.AddNew
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command10_Click()''كود تعديل السجلات
Data1.Recordset.Edit
Command2.Enabled = True
End Sub

Private Sub Command2_Click()''كود الحفظ
Data1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()''كود الحذف
Dim x As Integer
Dim a As String
a = Text1.Text
x = MsgBox("هل انت متأكد من حذف بيانات المركبة رقم" & a, vbYesNo)
If x = vbNo Then
Exit Sub
End If
Data1.Recordset.Delete
Data1.Refresh
End Sub

Private Sub Command4_Click()''كود البحث
Dim x As String
x = InputBox("أدخل رقم المركبة")
Data1.Recordset.FindFirst "Car_id = " + x + ""
If Data1.Recordset.NoMatch Then
MsgBox ("عفوا الرقم غير مسجل")
End If

End Sub