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

تكرار فتح نموذج تلقائى


UserUser2

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

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

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

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