تعديل كود للبحث في جدولين

[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

تم تعديل مارس 19, 2010 بواسطه Ana7lwah

[Ana7lwah]

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