كيف يمكن حذف بيانات عميل؟

إستخدم الشفرة التالية

Public Sub RecDelete(StrTable As String, strWhich As Variant, rstWhich As Integer)

	On Error GoTo Error_Handler


		dim rst as recordset

		Set rst = CurrentDb.OpenRecordset("SELECT * FROM " & _
										  StrTable & _
										  "WHERE " & _
										  strWhich & _
										  "= " & _
										  rstWhich & _
										  "", dbOpenDynaset, dbSeeChanges)
			Do While Not rst.EOF
				rst.Delete
				rst.MoveNext
			Loop
				rst.Close

Exit_sMOD_CURRENT:
	Exit Sub
Error_Handler:

	Resume Exit_sMOD_CURRENT
End Sub

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

اخي الكريم النموذج لم يكن مرتبط بالجدول أنظر المرفق الان زر الحذف يعمل ولكن البرنامج يحتاج لتعديل كثير انظر المرفق اذا كان ماقمت به يناسبك ساقوم بتعديل الباقي ،،، انتظر ردك

spr.rar

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

اشكر الاخوة علي المرور والاجابة

اخي الفاضل ابونواف النموذج مرتبط فعلا بتقنية ADO

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