السلام عليكم
هل يمكن اضافة استعلام توحيد (Query1) الى قائمة اختيار الجداول في النموذج المرفق وهو لاحد الاخوة بالموقع
If Not IsNull(Me.ChooseTble) = True Then
If Me.ChooseTble = "tb1" Then
Me.Box.RowSource = "Table/Query"
Me.Box.RowSource = "SELECT tb1.[Ê], tb1.[ÇÓã ÇáãæÙÝ],tb1.[ÇáÚäæÇä ÇáæÙíÝí],tb1.[ÊÇÑíÎ ÇáÊÚííä],tb1.[ÇáãáÇÍÙÇÊ ]" & _
"FROM tb1;"
Box.Requery
End If
ليتم تصديره الى اكسيل مثل الجداول الموجودة بالنموذج (tb1,tb2,tb3)
علما انني استخدمت الكود التالي
وشكرا لكم
test.rar