اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

لدي جدولين

الأول يحتوي على رقم الهوية ورقم الوظيفة وإسم الشخص

وهو مرتبط بالنموذج الرئيسي

وجدول آخر به نفس البيانات التي بالجدول الأول

عند إدخال رقم الهوية للشخص الجديد في حقل رقم الهوية هنالك كود يقوم بتفحص الجدول الأول إذا كان رقم الهوية موجود يقوم بإعطائي رسالة بأن هذا الشخص لا زال على رأس العمل وإذا لم يجد الرقم

وهذا ما أريده أريد أن يقوم بتفحص الجدول الثاني إذا وجد رقم الهوية مطابق يقوم بإعطائي رسالة تفيد بوجوده وهل أريد طباعة بياناته نعم أولا أذا لا ينهي الإجراء أما أذا نعم يقوم بطباعة البيانات على النموذج وعندها أقوم بإكمال البيانات الباقية ثم حفظها في الجدول الاول

شاكره ومقدره لكم تعاونكم

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

تم تعديل بواسطه Ana7lwah

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information