كيف يمكنني عمل طريقة البحث هذه

[abu myyar]

السلام عليكم ورحمة الله وبركاته

كيف يكمنني عمل طريقة البحث هذه وهي مشروحة في المرفق في النموذج 1

db1.rar

[منتصر الانسي]

تفضل اخي جرب التعديل

db1.rar

[abu myyar]

اشكرك اخي منتصر على الابداع المتميز نعم هو المطلوب

بس

ياريت لو تشرحلي هذه الاكواد المكتوبة في البرنامج

اسملحي اخي لو اني بتعبك

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

[abu myyar]

وكذلك شرح هذا الكود

Private Sub ÃãÑ8_Click()

Me.Visible = False

DoCmd.OpenForm "f3"

End Sub

[منتصر الانسي]

تفضل المثال

تم اضافة الشرح امام كل سطر في الكود

تحياتي,,,

db1.rar

[abuhood]

اشكرك اخي المنتصر على مجهودك الرائع لكن اذا تستطيع ان تشرح لي بالتفصيل خطوة خطوة حتى افهم الكود بيكون لي افضل

واسمحلي وإن كنت بتعبك عند

[منتصر الانسي]

اخي abuhood

هل اطلعت على الملاحظات الموضحة امام كل كود ..؟

اذا كنت قد اطلعت عليها فلا يوجد ما اضيفة فالكود المكتوب هو عبارة عن اوامر ودوال مخزنة في اكسس وما قمت به هو ادخال المتغيرات مثل اسم الحقل او اسم النموذج فقط اما ان كان قصدك شئ اخر فارجو التوضيح

تحياتي,,,

[abuhood]

شكرا اخي

[captinasd]

مشكور يا صديقى على المثال ققد استفدت منه اليوم