عند الضغط على اسم الموظف تظهر معلوماتة اسفل النموذج

[بلال اليامين]

السلام عليكم

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

اليك البرنامج

تلامذ.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Private Sub named_Click()
        Dim rst As Recordset
        Set rst = Forms!Main2.Form.Recordset.Clone
        rst.FindFirst "[الاسم] = '" & Me.named & "'"
        If Not rst.EOF Then
            Forms!Main2.Form.Bookmark = rst.Bookmark
        End If

    Set rst = Nothing
End Sub

تلامذ.rar

تحياتي

[بلال اليامين]

بارك الله فيك استاذ  محمد ابو عبد الله 

[محمد أبوعبدالله]

1 دقيقه مضت, بلال اليامين said:

بارك الله فيك استاذ  محمد ابو عبد الله 

وفيك بارك استاذنا الفاضل

تحياتي

[بلال اليامين]

استاذ هل اسطيع اكمل الكود في بقية الحقول

[محمد أبوعبدالله]

نعم يمكن ولكن في حقل التاريخ استخدم التالي كمثال

        Dim rst As Recordset
        Set rst = Forms!Main2.Form.Recordset.Clone
        rst.FindFirst "[تاريخ الازدياد] = #" & Me.[تاريخ الازدياد] & "#"
        If Not rst.EOF Then
            Forms!Main2.Form.Bookmark = rst.Bookmark
        End If

    Set rst = Nothing

تحياتي