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

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

قام بنشر

هذا الموضوع لاستاذنا الفاضل @ابوخليل

محتاج انفذه على الاكواد دى كيفيه عمل ذلك 

Private Sub Command3_Click()
DoCmd.GoToRecord , , acFirst
DoCmd.OpenForm "form2"
ifrm = 1
j = 1
هذا الكود خاص بحضرتك 
-------------------------------------------------

محتاج انفذه هنا 

[Forms]![Orders_frm]![testcode] = Me.testcode
[Forms]![Orders_frm]![testname] = Me.testname
If Me.testcode = 346 Then
DoCmd.OpenForm "Postcoital_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
ElseIf Me.testcode = 5 Then
DoCmd.OpenForm "Znstain_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
ElseIf Me.testcode = 440 Then
DoCmd.OpenForm "Tuberculin_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
Else
DoCmd.OpenForm "Resultenter_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
End If


 

قام بنشر
21 ساعات مضت, ابوخليل said:

لم ترفق مثالك ..

من اجل التطبيق على اكوادك

علما اني لم افهم طلبك .. حاول تشرح بالتفصيل فكرتك ومطلوبك

استاذ @ابوخليل 
جزاك الله خيرا 
على وقتك 
المطلوب نفس المشاركه المشار اليها فى الموضوع بالاعلى 
الجديد المطلوب هو 
لو التست Urine  يفتح نموذج ال urine وليس نموذج form2
وكذلك تست stool يفتح نموذج ال stool وليس نموذج form2
 

Testform.mdb

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information