طلب كود - اظهار قيم جدول او استعلام في مربع تحرير وسرد - مرفق الكود

[ahmad__0]

السلام عليكم

لدي مربع تحرير وسرد اريد اظهار قيم جدول او استعلام كود VB

Dim strSQL As String
Dim i As Integer
Set db = CurrentDb

If Me.Type = 1 Then
strSQL = "SELECT class1.class  FROM class1;"

Me.class = ؟؟؟؟؟
End If

[سمير1]

اجعل مصدر مربع التحرير والسرد هو الجدول المراد اظهار بياناته 

وليس هناك حاجه للكود

[ahmad__0]

استاذي الكريم

 

طلبي للكود بسبب وجود شرط

حيث أن مربع تحرير وسرد لا يحمل قيمة الا بعد تحقق شرط معين 

اذا كان المربع النصي السابق = 1

فان المربع تحرير وسرد يحمل قيمة من جدول رقم 2

واذا كان المربع النصي السابق =2

فان المربع تحرير وسرد يحمل قيمة من جدول رقم 3

واذا كان المربع النصي السابق = 3

فان المربع تحرير وسرد يحمل قيمة من جدول رقم 6

وهكذا

[أبا عمر]

السلام عليكم ورحمة _الله_ وبركاته
أخي الحبيب جرب المثال المرفق لعل فيه مبتغاك
 

A.rar

[ahmad__0]

الله ينفع بك ويزيدك من علمه 

 

جزاك الله خير هذا ما ابحث عنه 

 

شكرا لك استاذي الكريم 

[أبا عمر]

الحمد _لله_