ايجاد حقل فارغ في نموذج فرعي

[محمد القدسي]

السلام عليكم

اخواني المشرفين حفظكمالله وزاد في علمكم ونفع الله بكم

اذا كان لدي جدول اسمه sudient به جقل كود معرف idstudient وحقل namestudient وحقل nomberstudient

كيف يمكن معرفة ان حقل namestudient  فارغ بحيث ان الحقل الفارغ يوجد في اكثر من سجل

وجربت هذا الكود وتظهر رسالة خطأ

If IsNull(DLookup("[namestudient ]", "sudient ", "[namestudient ]=null)) Then
او

If IsNull(DLookup("[namestudient ]", "sudient ", "[namestudient ]='  '")) Then

If IsNull(DLookup("[namestudient ]", "sudient ", "[namestudient ]=false)) Then

ارجو ان يكون سؤالي واضح

 

 

[Hamdi Edlbi-khalf]

مرحباً

بما أنك لم تحدد الغرض من عملك فأسهل طريقة ..

١- اعمل استعلام 

٢- و اجعل في معايير الحقل null

و عندها تحصل على كامل السجلات التي فيها الحقل المذكور فارغاً .

 

و أخيراً ما هو نوع الحقل الذي تبحث به ؟

 

[ابو ياسين المشولي]

اتفضل هذا كود للاستاذ صالح حمادي

قمت بتعديله كي يتناسب معك

On Error Resume Next
Dim rst  As DAO.Recordset
        Dim bb As Integer
            Dim i As Integer, RC As Integer
                Set rst = CurrentDb.OpenRecordset("SELECT * FROM [sudient]")
                        rst.MoveLast: rst.MoveFirst
                    RC = rst.RecordCount
    For i = 1 To RC
       If rst!namestudient = bb Then
                MsgBox (rst!idstudient & " هناك حقل فارغ  للرقم ")
            Else
                bb = rst!namestudient
        End If
                rst.MoveNext
    Next i

وهو موجود بهذه المشاركة

 

 

تم تعديل أكتوبر 5, 2018 بواسطه ابو ياسين المشولي

[محمد القدسي]

اشكر كلا من الاستاذ  khalf والاستاذ ابو ياسين على تعاونهما 

وجربت ما قال لي الاستاذ ابو ياسين لاكن لا فائدة واليك المرفق استاذي

فحص حقل فارغ.rar

[محمد القدسي]

للرفع

[محمد القدسي]

للرفع اخواني

[ابو ياسين المشولي]

1 دقيقه مضت, محمد القدسي said:

للرفع اخواني

الله حاولت فيه

ما طلعت بنتيجه

اذا وجد لك حل مش حنبخل عليك

ممكن احد الاخوه يفيدك

[محمد القدسي]

اشكرك استاذي ابو ياسين على تعاونك وان شاء الله ييسر لنا من عنده علم لكي يفيدنا 

وجزاك الله خيرا

[محمد القدسي]

للرفع

[Shivan Rekany]

في ٦‏/١٠‏/٢٠١٨ at 02:07, محمد القدسي said:

كيف يمكن معرفة ان حقل namestudient  فارغ بحيث ان الحقل الفارغ يوجد في اكثر من سجل

حسب ما قرأت الردود 
انا لا اعرف بالضبط ماذا تريد
لكن عملت لك كما فهمت من الموضوع وفكرت انك تريد ان يظهر لك رسالة بارقام السجلات اللي حقل namestudient بها فارغ لذلك
اليك هذا

Private Sub أمر6_Click()
Dim rst  As DAO.Recordset
        Dim bb As Integer
            Dim i As Integer, RC As Integer
                Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]")
                        rst.MoveLast: rst.MoveFirst
                    RC = rst.RecordCount
    For i = 1 To RC
       If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then
                MsgBox (rst!idstudient & " هناك حقل فارغ  للرقم ")
        End If
                rst.MoveNext
    Next i
    End Sub

واذا بعد ما وصلت للمطلوب  وضح سؤالك اكثر
 

فحص حقل فارغ.rar

[ابو ياسين المشولي]

3 ساعات مضت, Shivan Rekany said:

حسب ما قرأت الردود 
انا لا اعرف بالضبط ماذا تريد
لكن عملت لك كما فهمت من الموضوع وفكرت انك تريد ان يظهر لك رسالة بارقام السجلات اللي حقل namestudient بها فارغ لذلك
اليك هذا

واذا بعد ما وصلت للمطلوب  وضح سؤالك اكثر
 

 

اظن انه كما طلب

جزاك الله الف خير اخي شيفان

[محمد القدسي]

سلمت يداك اخي Shivan Rekany وزادك الله من علمه وكذلك اخي واستاذي ابو ياسين على تعاونه

بقي اخي واستاذي Shivan Rekany كيف انقل التركيز الى الحقل المطلوب الفارغ في النموذج الفرعي 

وجزاك الله خيرا

[محمد القدسي]

للرفع

[محمد القدسي]

ارجو من كان عنده علم بما اريد ان يفيدنا بارك الله في الجميع

[Hamdi Edlbi-khalf]

لقد حاولت و توصلت إلى طريقة و هي لا تشبه تلك الاحترافية لدى المبرمجين إذ لا تتعدى أن تكون نتيجة تأمل و تجريب و لغلها لا تلبي حاجتك ... لذا سأنتظر الأساتذة معك .

أتصور أن  مطلبك سيتحقق بالصورة الآتية  :

عند ظهور الرسالة ستنقلك  إلى السجل المطلوب ..

سيكون في الرسالة زران

زر يسمح بالتعديل عندضغظه تخرج من الرسالة و تتمكن من التعديل و لكي تعود إلى الحصول على السجلات الفارغة الأخرى تضغط زر البحث مجدداً أو بحدث بعد التحديث أو الخروج تظهر الرسالة مجدداً و عليها رقم السجل التالي و قد انتقل المؤشر إلى ذاك السجل و هكذا

و الزر الثاني  للمتابعة البحث دون التعديل ....

لا أعرف إن كان هذا السيناريو الذي تطلبه ...

أرجو أن تصل إلى مطلبك بأقرب وقت و بأفضل صورة .

[محمد القدسي]

وين اخواني المشرفين

[ابوخليل]

السلام عليكم

تفضل :

Dim rst  As DAO.Recordset
        Dim x As Integer
        Dim i As Integer, RC As Integer
        Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]")
        rst.MoveLast
        rst.MoveFirst
        RC = rst.RecordCount
        Forms!YWMA!YWMA_sub.SetFocus
        DoCmd.GoToRecord , , acFirst
        For i = 1 To RC
        If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then
        x = rst!idstudient
        Forms!YWMA!YWMA_sub.SetFocus
        DoCmd.GoToRecord , , , x - 1
        Forms!YWMA!YWMA_sub.Requery
          Exit Sub
        End If
       rst.MoveNext
    Next i

 

فحص الفراغ.rar

[محمد القدسي]

وعليكم السلام استاذي ابو خليل وقد جربت المرفق وهو يعمل تمام ولاكن اذا كان حقل namestudient فارغ في اول سجل تظهر رسالة خطأ ولا ادري لماذا

[ابوخليل]

انسخ هذا السطر والصقه اعلى الكود

On Error Resume Next

 

[محمد القدسي]

جزاك الله خيرا وبارك فيك استاذي ابي خليل واشكر القائمين على هذا المنتدى والشكر موصول ايضا لاستاذي shivan والاستاذ ابو ياسين

وحفظ الله الجميع