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

On 10/26/2005 at 3:34 PM, التقني said:

السلام عليكم ورحمة الله وبركاته

 

كل الشكر للأخ ابن مسقط

 

مثال جميل والأجمل الموقع (اللقطة) ففيه الكثير من الأمثلة

حبث قمت بتنزيل ما يقارب 20 مثالا

كل الشكر للاخ ابن مسقط

1 minute ago, moustafa2004 said:

كل الشكر للاخ ابن مسقط

 

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

On 12/29/2020 at 8:56 PM, محب العقيدة said:

تلوين المخرجات باستخدام مكتبة colorama

# -*- coding:utf-8 -*-
from colorama import init, Fore, Back, Style
init(autoreset=True)

messages =   [
    'ايمن',
    (Fore.RED + Style.BRIGHT
        +  'انتبه!!!'),
    (Fore.GREEN + Style.BRIGHT
        +  'انتبه!!!')
]

for m in messages:
    print(m)

 

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

شكرا جزيلا وربنا يبارك فيك

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

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