UserUser2 قام بنشر منذ 5 ساعات مشاركة قام بنشر منذ 5 ساعات هذا الموضوع لاستاذنا الفاضل @ابوخليل محتاج انفذه على الاكواد دى كيفيه عمل ذلك 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان