وعليكم السلام ورحمة الله وبركاته ،،
الشق الأول واضح ومفهوم ، لكن الشق الثاني غير مفهوم بالنسبة لي . حيث هل سيتم تعديل قيمة الحقل في الجدول الثاني لنفس رقم PCode ؟؟؟؟؟؟؟
حل الشق الأول ( والثاني غير متأكد منه ) مع تأكيد برسالة نعم أو لا :-
Private Sub Almokh_Click()
If MsgBox("تحديث المختبر ؟", vbYesNo + vbQuestion + vbMsgBoxRight, "") = vbYes Then
CurrentDb.Execute "UPDATE Tbl_Lab_All SET External_lab = 'المختبر' WHERE PCode = " & Me.PCode & ";"
CurrentDb.Execute "UPDATE Tbl_Lab_Requests SET R_External_lab = 'المختبر' WHERE Out_price > 0 AND Date_R = #" & Format(Me.DDate, "yyyy/mm/dd") & "#;"
Me.Lab_Patient.Requery
End If
End Sub
لتوضيح الشق الثاني ما لم يكن الحل صحيحاً ، نرجو التوضيح أكثر .