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

[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

 

[UserUser2]

up

 

[ابوخليل]

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

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

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

[UserUser2]

21 ساعات مضت, ابوخليل said:

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

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

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

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

Testform.mdb

[ابوخليل]

تفضل

Testform2.rar