كود عند النقر المزدوج بفتح بيانات الموظف

[محمد بن سعود]

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

اسعد الله مساء الجميع

 

لدي نموذج مستمر به اسماء موظفين ومحتاج كود لما اختار اسم موظف

واضغط عليه نقر مزودج يفتح لي النموذج على اسم الموظف نفسه وبياناته

 

وجدت كود لكنه عندما يفتح النموذج

يستخرج لي موظف اخر غير الموظف الذي اخترته

اتمنى اجد الحل بين ايديكم البيضاء

 

 Dim stDocName As String
    stDocName = اسم النموذج"
    DoCmd.OpenForm stDocName, stLinkCriteria

 

 

 

 

 

[ابوخليل]

جرب هذا

ID  هو الرقم المعرف

اذا كان هناك رقم معرف فريد للموظف

 

 

 

Dim stLinkCriteria As String
Dim stDocName As String
stLinkCriteria = "[ID ]=" & Me![ID ]
 stDocName = اسم النموذج"
DoCmd.OpenForm stDocName, , , stLinkCriteria
 

[محمد بن سعود]

ابو خليل

اشكرك على ردك السريع

وجعل هذا العمل في ميزان حسناتك يارب

جربت الكود بس تخرج عندي رساله اعتقد خطاء في ID

الكود وضعته في خانة السجل المدني اسمه SJL

 

 

وضعته في نموذج الفرعي  frmBhs

وعندي نموذج بحث اسمه  frmMxs

لما ابحث عن موظف اضغط على السجل المدني حقه

ومن ثم يفتح لي النموذج  frmBamat

  الكود ما ضبط معي

 

هل ممكن تعديل بالكود

[ابوخليل]

جرب هذا

 

 

Private Sub SJL_DblClick(Cancel As Integer)
 Dim stLinkCriteria As String
    Dim stDocName As String
    stLinkCriteria = "[SJL] = Forms!frmMxs!frmBhs![SJL]"
    stDocName = "frmBamat"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

 

[محمد بن سعود]

             

 

اخيراً اصبت الهدف الحقيقي

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

ونتطلع منك الابداعات الجديده 

وتقبل فائق احترامي وتقديري