تعديل بهذا الكود

أولا : الكود :

 

Private Sub dell_Click()
	If Text1.Text = "" Then
		MsgBox "ادخل كود المريض من فضلك", vbCritical, "Enter then Code Please"
		Text1.SetFocus
		Exit Sub
	End If

	If MsgBox("تحذير !! هل تريد بالفعل حذف السجل!!!", vbYesNo + vbCritical, "تنبيه.") = vbYes Then
		db.Execute "delete * from patient where PTCODE =" & Text1.Text & ""
		MsgBox "إنتهي من عملية الحذف", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "حذف"
		If rs.State = adStateOpen Then rs.Close
		rs.Open "select * from patient", db
		Set DataGrid1.DataSource = rs
	End If
End Sub

ثانياً : إذا كنت ترغب في حذف كافة السجلات المرتبطة بجداول خارجية تحتوي علي مفاتيح خارجية من الجدول الحالي فلابد من ضبط علاقات الإرتباط بين الجداول بحيث أن تكون حذف تلقائي للعلاقة.

من المفترض في الحذف البدء من السجلات الفرعية ثم الانتقال الى السجلات الاساسية اي

الحذف اول من الجدول anthrobometric واي جداول اخرى لها علاقة بالمريض ثم الانتقال الى سجل المريض

db.Execute " delete * from anthrobometric where PTCODE =" & Text1.Text & ""

db.Execute "delete * from patient where PTCODE =" & Text1.Text & ""