moustafa2004

الموضع السابق مكنش اسم الجدول متغير كان اسم الجدول ثابت وكمان الاستعلام لم يكون منشئ لكي تظهر البيانات داخله اعتقد هناك فرق على قدر علمي والله اعلم

انا بالفعل منشئ استعلام ولكن عند التنفيذ تظهر رسالة كودها 128 في السطر التالي qdObj.Execute dbFailOnError يرفض تنفيذ الاستعلام وعند عرض النموذج يظهر اعتراض على هذ السطر For Each tdObj In db.TableDefs

شكرا على الموقع الجميل محتاج مساعدة في فكرة انشاء استعلام باستخدام لغة vba بحيث يكون اسم الجدول يؤخذ من متغير وليس جدول ثابت قمت تصميم نموذج يحتوي على combobox وايضا button وكتبة هذه الاكواد وعند التنفيذ يعطي خطء رقمه 128 وهذه الاكواد حصلت عليها من موقع Private Sub runQueryBtn_Click() Dim dbObj As DAO.Database Dim qdObj As DAO.QueryDef If Me.tablenamecombo.ListIndex = -1 Then MsgBox "Table Name needs to be selected, before continuing.", vbCritical Exit Sub End If Set dbObj = CurrentDb() Set qdObj = dbObj.QueryDefs("qry_Tmp") qdObj.SQL = " SELECT " & tablenamecombo & ".* FROM " & tablenamecombo & ";" qdObj.Execute dbFailOnError qbObj.Close Set qdObj = Nothing Set dbObj = Nothing End Sub Private Sub Form_Open(Cancel As Integer) Dim tblStr As String Dim dbObj As DAO.Database Dim tdObj As DAO.TableDef Set dbObj = CurrentDb() Me.tablenamecombo.RowSourceType = "Value List" For Each tdObj In db.TableDefs If Left(tdObj.name, 4) <> "MSys" Then tblStr = tblStr & tdObj.name & ";" End If Next MsgBox tblStr tblStr = Left(tblStr, Len(tblStr) - 1) Me.tablenamecombo.RowSource = tblStr Set dbObj = Nothing End Sub برجاء المساعده

كل الشكر للاخ ابن مسقط تم حذف رابط تحميل المرجع هل يمكن عمل الرابط مره ثانية

كيف يمكن اخفاء قائمة file

شكرا جزيلا وربنا يبارك فيك لي سؤال في الاكسل عاوز امسح مجموعة خلايا في تاريخ محدد بالكود

شكرا على المجهود الرائع