اذهب الي المحتوي
أوفيسنا

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


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


 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information