Ana7lwah

شكرا لكم جميعا لقد وجدت الحل وكان أمامي طوال الوقت شكرا لكم جميعا

لدي جدولين الأول يحتوي على رقم الهوية ورقم الوظيفة وإسم الشخص وهو مرتبط بالنموذج الرئيسي وجدول آخر به نفس البيانات التي بالجدول الأول عند إدخال رقم الهوية للشخص الجديد في حقل رقم الهوية هنالك كود يقوم بتفحص الجدول الأول إذا كان رقم الهوية موجود يقوم بإعطائي رسالة بأن هذا الشخص لا زال على رأس العمل وإذا لم يجد الرقم وهذا ما أريده أريد أن يقوم بتفحص الجدول الثاني إذا وجد رقم الهوية مطابق يقوم بإعطائي رسالة تفيد بوجوده وهل أريد طباعة بياناته نعم أولا أذا لا ينهي الإجراء أما أذا نعم يقوم بطباعة البيانات على النموذج وعندها أقوم بإكمال البيانات الباقية ثم حفظها في الجدول الاول شاكره ومقدره لكم تعاونكم Private Sub txt1_AfterUpdate() On Error Resume Next Dim i As Integer Dim strsql As String, x As Integer Set MyDB = CurrentDb Set RecSet = MyDB.OpenRecordset("tbl1") i = DLookup("[NO1]", "tbl1", "[NO_GOP] = txt1 And IsNull([Date-return])") If i > 0 Then MsgBox ("هذا الموظف لديه رقم وظيفي سابقا" & & "لا يمكن طباعة رقم وظيفي له"), vbInformation, "تنبيه" SendKeys "{ESC}{ESC}" Exit Sub End If VarNo = Me!txt1 RecSet.MoveFirst Do While Not RecSet.EOF If RecSet![tbl1] = VarNo Then هنا أريد البحث في جدول آخر أي الإنتقال الى جدول TBL2 والبحث عن السجل وإذا وجد حقل [NO_GOP] مطابق للإدخال في حقل TXT1 يقوم بإعطاء الرسالة هذه ويكمل العمل x = MsgBox("هذا الموظف مسجل مسبقاٌهل تحب طباعة بياناته ", vbYesNo, "تنبيه") If x = vbYes Then يقوم بطباعة أي نسخ بيانات السجل الموجوده في الجدول TBL2 الى النموذج Exit Do Else Exit Sub End If Else RecSet.MoveNext End If Loop txt3.SetFocus End Sub