مشكلة في الأزرار

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته ...

أرجو من إخواني في المنتدى ممن لديه أكواد لأزرار (الأول-السابق-التالي-الأخير-إضافة -حفظ-تعديل-حذف) بطريقة dao و ناجحة مئة في المئة بدون أي مشكلة أي يكون جربها و تأكد منها أن يعطيني إياها و أكون شاكرة له فقد عملتها بعدة طرق و دائما تظهر مشكلة فمثلا هذه إحدى الطرق :

Private Sub Cmdadd_Click() (إضافة)

t.AddNew

"" = Txt1.Text

"" = Txt2.Text

""= Txt3.Text

""= Txt4.Text

cmdsave.Enabled = True

cmddel.Enabled = False

End Sub

Private Sub cmddel_Click() (حذف)

If t.RecordCount < 1 Then Exit Sub

t.Delete

t.MovePrevious

cmddel.Enabled = False

If t.BOF Then Exit Sub

Call showdata

End Sub

Private Sub cmdedit_Click() (تعديل)

If t.RecordCount < 1 Then Exit Sub

t.Edit

cmdsave.Enabled = True

End Sub

Private Sub cmdfirst_Click() (الأول)

If t.RecordCount < 1 Then Exit Sub

t.MoveFirst

Call showdata

If cmddel.Enabled = False Then

cmddel.Enabled = True

End If

End Sub

Private Sub cmdlast_Click() (الأخير)

If t.RecordCount < 1 Then Exit Sub

t.MoveLast

Call showdata

If cmddel.Enabled = False Then

cmddel.Enabled = True

End If

End Sub

Private Sub cmdnext_Click() (التالي)

If t.RecordCount < 1 Then Exit Sub

t.MoveNext

If t.EOF Then t.MoveLast

Call showdata

If cmddel.Enabled = False Then

cmddel.Enabled = True

End If

End Sub

Private Sub cmdprev_Click() (السابق)

If t.RecordCount < 1 Then Exit Sub

t.MovePrevious

If t.BOF Then t.MoveFirst

Call showdata

If cmddel.Enabled = False Then

cmddel.Enabled = True

End If

End Sub

Private Sub cmdsave_Click() (حفظ)

t!Name = Txt1.Text

(t!cl1 = Val(Txt2.Text

(t!cl2 = Val(Txt3.Text

(t!cl3 = Val(Txt4.Text

t.Update

cmdsave.Enabled = False

cmddel.Enabled = True

End Sub

تحياتي للجميع