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

[ahmed_204079]

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

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

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

b0 اسم الحقل 

[ابوخليل]

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

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

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

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

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

[محمد احمد لطفى]

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

    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.mdb

[ahmed_204079]

4 ساعات مضت, ابوخليل said:

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

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

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

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

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

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

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

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

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

54 دقائق مضت, محمد احمد لطفى 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

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

TTTEst.mdb 432 kB · 2 downloads

تم تعديل أغسطس 7 بواسطه ahmed_204079

[محمد احمد لطفى]

قم بادراج ملف مرفق مثال لعمل المطلوب

[ahmed_204079]

1 ساعه مضت, محمد احمد لطفى said:

قم بادراج ملف مرفق مثال لعمل المطلوب

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

الميزانية ملف بسيط.accdb