هذا الموضوع لاستاذنا الفاضل @ابوخليل
محتاج انفذه على الاكواد دى كيفيه عمل ذلك
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