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

[kkhalifa1960]

المطلوب عند اختيار الجدول من الليستبوكس يعطيني مفرداته بالفورم .أنا حاولت ولكن رجاء تعديل الكود !!!

MahdiTest.rar

[Moosak]

أهلا أخي kkhalifa1960

إذا كنت تقصد بـ مفرداته أي الحقول الخاصة به .. فهذا هو طلبك 🙂 

 

MahdiTest.accdb

[kkhalifa1960]

حل جميل ولكن ليس المطلوب.............  هل ممكن تعديل الكود الخاص بي كي يقرأ الكود  [PP] 

[Moosak]

تم التعديل أخي kkhalifa1960 🙂 

    Dim rst As DAO.Recordset
    Dim i As Long
    Dim PP
    PP = Me.lstTables.Column(0)
    Set rst = CurrentDb.OpenRecordset("Select * From " & PP)
    rst.MoveLast: rst.MoveFirst
    For i = 1 To 10
     Me("L" & i).Caption = rst(1)
     Me("T" & i) = rst(2)

        rst.MoveNext

    Next i

    rst.Close: Set rst = Nothing

 

MahdiTest.accdb

[kkhalifa1960]

نعم هو المطلوب بالضبط جزاك الله عنا كل الخير