عملت أزرار للنموذج ولكن تظهر لي نافذة خطأ ممكن تلقون عليها نظره ..

السلام عليكم ورحمة الله وبركاته هذي أول ازرار أعملها بالفيجوال بيسيك

لكنها للاسف تظهر لي أخطأ أثناء التشغيل

فإذا ممكن تلقون نظره عليها الله يجزيكم خير ................

Private Sub Command1_Click()
Data1.Recordset.MoveNext
Text1.Text = Data1.Recordset![No_emp]
Text2.Text = Data1.Recordset![No_Dep]
Text3.Text = Data1.Recordset![Ename_emp]
Text4.Text = Data1.Recordset![ocu]
Text5.Text = Dta1.Recordset![national]
Text6.Text = Data1.Recordset![Date_f]
Text7.Text = Data1.Recordset![Date_e]
Text8.Text = Data1.Recordset![No_res]
End Sub

Private Sub Label9_Click()

End Sub

Private Sub Command2_Click()
Data1.Recordset.MovePrevious
Text1.Text = Data1.Recordset![No_emp]
Text2.Text = Data1.Recordset![No_Dep]
Text3.Text = Data1.Recordset![Ename_emp]
Text4.Text = Data1.Recordset![ocu]
Text5.Text = Data1.Recordset![national]
Text6.Text = Data1.Recordset![Date_f]
Text7.Text = Data.Recordset![date_l]
Text8.Text = Data1.Recordset![Date_e]
End Sub

Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset![No_emp] = Val(Text1.Text)
Data1.Recordset![No_Dep] = Val(Text2.Text)
Data1.Recordset![Ename_emp] = Text3.Text
Data1.Recordset![ocu] = Text4.Text
Data1.Recordset![national] = Text5.Text
Data1.Recordset![Date_f] = Text6.Text
Data1.Recordset![Date_e] = Text7.Text
Data1.Recordset![No_res] = Val(Text8.Text)
Data1.Refresh
MsgBox " Êã ÊÍÑíÑ ÇáÓÌá .. áÇÊäÓí ÐßÑ Çááå ", vbOKOnly, "ÑÓÇáÉ ÊÃßíÏ ÇáÊÚÏíá  "
End Sub

Private Sub Command4_Click()
Data1.Recordset.AddNew
Data1.Recordset![No_emp] = Val(Text1.Text)
Data1.Recordset![No_Dep] = Val(Text2.Text)
Data1.Recordset![Ename_emp] = Text3.Text
Data1.Recordset![ocu] = Text4.Text
Data1.Recordset![national] = Text5.Text
Data1.Recordset![Date_f] = Val(Text6.Text)
Data1.Recordset![Date_e] = Val(Text7.Text)
Data1.Recordset![No_res] = Val(Text7.Text)
Data1.Refresh
MsgBox "ÊãÊ ÚãáíÉ ÇáÍÝÙ .. ÓÈÍÇä Çááå æÈÍãÏå ÓÈÍÇä Çááå ÇáÚÙíã ", vbOKOnly, "ÑÓÇáÉ ÊÃßíÏ ÇáÍÝÙ"
End Sub

Private Sub Command5_Click()
Dim r As Integer
r = MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÍÐÝ ÇáÓÌá ÇáÍÇáí ", vbYesNo, " ÑÓÇáÉ ÊÃßíÏ ÍÐÝ ")
If r = vbYes Then
Data1.Recordset.Delete
Text1.Text = Data1.Recordset![No_emp]
Text2.Text = Data1.Recordset![No_Dep]
Text3.Text = Data1.Recordset![Ename_emp]
Text4.Text = Data1.Recordset![ocu]
Text5.Text = Data1.Recordset![nationai]
Text6.Text = Data1.Recordset![Date_f]
Text7.Text = Data1.Recordset![Date_e]
Text8.Text = Data1.Recordset![No_res]
Data1.Refresh
MsgBox "ÊãÊ ÚãáíÉ ÇáÍÐÝ ... ÇáÍãÏááå "
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Command7_Click()
Data1.Recordset.Update
Data1.Recordset![No_emp] = Text1.Text
Data1.Recordset![No_Dep] = Text2.Text
Data1.Recordset![Ename_emp] = Text3.Text
Data1.Recordset![ocu] = Text4.Text
Data1.Recordset![national] = Text5.Text


End Sub

Private Sub Form_Load()

End Sub