الاستعلام عن حقل موجود ام لا داخل الاستعلام

ahmed_204079 · أغسطس 7, 2024

'الاستعلام عن حقل ان كان موجود 
If QForExport.b0 < 1 Then
Beep
MsgBox "الحقل المرد الاستعلام عنه(الوظيفة)غير موجود "
Exit Sub
End If

الكود ده مش عاوز يشتعل معاايا فاين الخطا

QForExport ده اسم الاستعلام

b0 اسم الحقل

**ابوخليل** · أغسطس 7, 2024

هل الاستعلام QForExport عبارة عن سجل واحد فقط ؟

اذا الجواب لا : بل يشتمل على سجلات عديدة

اذا يوجد اكثر من حقل b0 داخل الاستعلام فأي حقل تريد الاستعلام عنه

اتمنى يكون تساؤلي واضح

بمعنى يلزم شرط محدد لاختيار وتحديد الحقل المقصود

**محمد احمد لطفى** · أغسطس 7, 2024

تفضل هل هذا ما تقصد

    Dim qdf As DAO.QueryDef
    Dim fld As DAO.Field
    Dim fieldName As String
    Dim fieldExists As Boolean

    fieldName = "b0"

    On Error Resume Next
    Set qdf = CurrentDb.QueryDefs("QForExport")
    On Error GoTo 0

    If qdf Is Nothing Then
        MsgBox "The query QForExport does not exist."
        Exit Sub
    End If

    For Each fld In qdf.Fields
        If fld.Name = fieldName Then
            fieldExists = True
            Exit For
        End If
    Next fld

    If fieldExists Then
        MsgBox "The field (" & fieldName & ") exists."
    Else
        Beep
        MsgBox "The field (" & fieldName & ") does not exist."
    End If

و قد يختلف الأمر اذا كان الاستعلام يحتوى على أكثر من جدول به نفس اسم الجقل كما أشار أستاذى أبو خليل

TTTEst.mdbFetching info...

ahmed_204079 · أغسطس 7, 2024

في 7‏/8‏/2024 at 08:56, ابوخليل said:

هل الاستعلام QForExport عبارة عن سجل واحد فقط ؟

اذا الجواب لا : بل يشتمل على سجلات عديدة

اذا يوجد اكثر من حقل b0 داخل الاستعلام فأي حقل تريد الاستعلام عنه

اتمنى يكون تساؤلي واضح

بمعنى يلزم شرط محدد لاختيار وتحديد الحقل المقصود

Expand

متشكر اولا علي سرعة الرد جزاكم الله خير

ثانيا هو حقل واحد باسم b0 والتسمية بتاعته الوظيفة ولا يوجد اي حقول اخري في نفس الجدول او الاستعلام QForExport بهئا الاسم يعني عير مكرر

الشء اللي ارغب في نوضيحة هو اني باختار من كمبوبوكس " معلم - معلم اول - معلم اول ا- معلم خبير- كبير معلمين " فاذاكان الحقل b0(الوظيفة) غير موجود بالاستعلام يعطي رسالة ان الحقل غير مضاف ويخرج من الاجراء لحين اضافة الحقل للاستعلام من listbox

الاستاذ محمد احمد لطفي متشكر جدا علي ردك ولكن لم ينجح الامر وبيعطي رسالة موجوده في New Bitmap image.bmpNew Bitmap image.bmpNew Bitmap image.bmpFetching info... المرفقات

في 7‏/8‏/2024 at 12:59, محمد احمد لطفى said:

تفضل هل هذا ما تقصد

    Dim qdf As DAO.QueryDef
    Dim fld As DAO.Field
    Dim fieldName As String
    Dim fieldExists As Boolean

    fieldName = "b0"

    On Error Resume Next
    Set qdf = CurrentDb.QueryDefs("QForExport")
    On Error GoTo 0

    If qdf Is Nothing Then
        MsgBox "The query QForExport does not exist."
        Exit Sub
    End If

    For Each fld In qdf.Fields
        If fld.Name = fieldName Then
            fieldExists = True
            Exit For
        End If
    Next fld

    If fieldExists Then
        MsgBox "The field (" & fieldName & ") exists."
    Else
        Beep
        MsgBox "The field (" & fieldName & ") does not exist."
    End If