البحث بالنقر المزدوج على اسم الموظف

الى الاخ Fatah

طبعا يوجد لديك الآن جدولين للموظفين ولمعلوماتهم وكذلك نموذجين لكل جدول ويوجد بين الجدولين رابط وليكن رقم الموظف

في نموذج الموظفين في خانة اي حقل تريده وفي خاصية الضغط المزدوج (On Dbl Click) ضع هذا الكود .

On Error GoTo Err_Command14_Click



    Dim stDocName As String

    Dim stLinkCriteria As String



    ' ضع بالاسفل اسم الجدول الذي يحتوي على المعلومات التفصيليه للموظف

    "stDocName = "child



    ' ضع بالاسفل الرابط بين الجدولين وهو هنا (ID)

    [stLinkCriteria = "[id]=" & Me![id

    DoCmd.OpenForm stDocName, , , stLinkCriteria



:Exit_Command14_Click

    Exit Sub



:Err_Command14_Click

    MsgBox Err.Description

    Resume Exit_Command14_Click

آسف للآطالة ولكن احببت ان تتضح الصوره

اخوكم العطار

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

أخي العزيز / Fatah :D

تحية طيبة وبعد ,,,,,,,,,,,,

هذا الرابط

http://www.arabteam2000.com/vb/showthread....&threadid=28980

يوجد به مثال على طلبك ،،،،، اختر من القائمة ( عرض الموظفين )

عند عرض جميع الموظفين أنقر على اسم أي موظف سوف تظهر لك شاشة

بجميع بيانات الموظف ،،،،،،

تحياتي : أبو عقيل (f)(gift)(f)