[كاظم هاشم البهادلي]

باقي الاكواد
Private Sub but4_Click()
On Error Resume Next
Adodc1.Recordset.Delete
Call MsgBox("تم حذف الاسم المحدد مع كافة بياناته", vbQuestion Or vbSystemModal Or vbMsgBoxRight Or vbMsgBoxRtlReading, "حذف اسم")

End Sub

Private Sub but5_Click()
On Error Resume Next 'لتجاوز الأخطاء
Adodc1.Recordset.MoveNext 'نأمر الريكورد ست بالتحرك للسجل التالي
If Adodc1.Recordset.EOF Then ' اذا وصل للنهاية
Adodc1.Recordset.MoveLast ' نأمره بالتحرك عكسياً
End If
End Sub

Private Sub but6_Click()
On Error Resume Next 'لتجاوز الأخطاء
Adodc1.Recordset.MovePrevious 'نأمر الريكورد ست بالتحرك للسجل السابق
If Adodc1.Recordset.BOF Then ' اذا وصل للبداية
Adodc1.Recordset.MoveNext ' نأمره بالتحرك عكسياً
End If
End Sub

Private Sub but7_Click()
On Error Resume Next
Adodc1.Recordset.MoveFirst
End Sub

Private Sub but8_Click()
On Error Resume Next
Adodc1.Recordset.MoveLast
End Sub