اشكرك اخي منتصر على الابداع المتميز نعم هو المطلوب
بس
ياريت لو تشرحلي هذه الاكواد المكتوبة في البرنامج
اسملحي اخي لو اني بتعبك
Private Sub ÃãÑ4_Click()
If IsNumeric(ID_No) Then
DoCmd.OpenForm "f1", acNormal, "", "id_num=forms!f1!id_no"
Else
DoCmd.OpenForm "f2"
End If
End Sub
Private Sub EmpList_DblClick(Cancel As Integer)
DoCmd.OpenForm "f1", acNormal, "", "id_num=forms!f3!emplist"
DoCmd.Close acForm, "f2"
DoCmd.Close acForm, "f3"
End Sub