kkhalifa1960 قام بنشر أبريل 6, 2022 مشاركة قام بنشر أبريل 6, 2022 المطلوب عند اختيار الجدول من الليستبوكس يعطيني مفرداته بالفورم .أنا حاولت ولكن رجاء تعديل الكود !!! MahdiTest.rar رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر أبريل 6, 2022 مشاركة قام بنشر أبريل 6, 2022 أهلا أخي kkhalifa1960 إذا كنت تقصد بـ مفرداته أي الحقول الخاصة به .. فهذا هو طلبك 🙂 MahdiTest.accdb 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أبريل 6, 2022 الكاتب مشاركة قام بنشر أبريل 6, 2022 حل جميل ولكن ليس المطلوب............. هل ممكن تعديل الكود الخاص بي كي يقرأ الكود [PP] رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر أبريل 6, 2022 أفضل إجابة مشاركة قام بنشر أبريل 6, 2022 تم التعديل أخي 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 2 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أبريل 7, 2022 الكاتب مشاركة قام بنشر أبريل 7, 2022 نعم هو المطلوب بالضبط جزاك الله عنا كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.