تحديث عدة حقول دفعة واحدة بشروط معينة

[jo_2010]

السادة الخبراء بعد التحية

ارجو تنفيد الموجود بالصورة

JO_Lab.rar

[Foksh]

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

الشق الأول واضح ومفهوم ، لكن الشق الثاني غير مفهوم بالنسبة لي . حيث هل سيتم تعديل قيمة الحقل في الجدول الثاني لنفس رقم 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

 

لتوضيح الشق الثاني ما لم يكن الحل صحيحاً ، نرجو التوضيح أكثر .

تم تعديل منذ 1 ساعه بواسطه Foksh
تعديل بإضافة احتمال فهم الشق الثاني .