حساب عدد الحقول الفارغة او التي تحتوي علي قيمة معينة ( نص مثلا) في السجل الواحد في النموذج (مرفق مثال )

[asalman111]

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

ارجوا المساعدة في إيجاد حل لحساب عدد الحقول الفارغة او التي تحتوي علي قيمة معينة ( نص مثلا) في السجل الواحد في النموذج  (مرفق مثال )

المقصود ان يظهر في مربع النص ان الكلمة NA تكررت في السجل عدد 5 مرات مثلا وليس في العمود او الحقل الواحد بل في جميع حقول النموذج المرفق

مع الشكر

Database1.accdbFetching info...

[أبوبسمله]

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

اتفضل ان شاء الله يكون ما تريد

اضغط عالزر للحصول على العدد

بالتوفيق

Database1(1).accdbFetching info...

[asalman111]

شكرا استاذ احمد وبارك الله فيك علي استجابتك

هل من الممكن ان تظهر القيمة مباشرة عند فتح النموذج لانني ساستخدمها لرسم بياني داخل هذا النموذج وذلك لحساب عدد الحقول اللتي تحتوي علي NA من اجمالي عدد حقول هذا النموذج

شاكرا لك حسن استجابتك سلفا

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

مع الشكر

[Moosak]

  في 30‏/7‏/2022 at 13:25, asalman111 said:

هل من الممكن ان تظهر القيمة مباشرة عند فتح النموذج لانني ساستخدمها لرسم بياني داخل هذا النموذج وذلك لحساب عدد الحقول اللتي تحتوي علي NA من اجمالي عدد حقول هذا النموذج

Expand  

بعد إذن مهندسنا @احمد الفلاحجي وإجابة على سؤالك 🙂 .. 

ضع السطر التالي عند حدث في الحالي للنموذج :

Private Sub Form_Current()
    btnCount_Click
End Sub

 

[asalman111]

الف شكر استاذ Moosak

تمت التجربة ولكن هناك رسالة خطا عند الانتقال الى سجل فاضي وقيمته صفر

[Moosak]

  في 30‏/7‏/2022 at 15:22, asalman111 said:

ولكن هناك رسالة خطا عند الانتقال الى سجل فاضي وقيمته صفر

Expand  

ضع هذا السطر في أول الكود :

If IsNull(Me.كود_المشروع) Then Exit Sub

هكذا :

Private Sub btnCount_Click()

If IsNull(Me.كود_المشروع) Then Exit Sub

x = Me.كود_المشروع

strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _
         "FROM [MAIN-TABLE] " & _
         "WHERE [MAIN-TABLE].[كود المشروع]=" & x
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset(strSql)

i = 0
For y = 0 To rs.Fields.Count - 1

    If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then
        i = i + 1
    End If

Next
 Me.txtCount = i
End Sub

 

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير 💐

اهلا بك اخى واستاذى العزيز @Moosak وجزاك الله خيرا على مشاركتك معنا والله يجبر بخاطرك كما تجبر بخاطر طالب علم مبتدىء مثلى 💐

نعم كما اشار اليك اخى موسى

لست مع هذه الجمله 👇

  في 30‏/7‏/2022 at 13:25, asalman111 said:

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

Expand  

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

مع اضافه بسيطه للكود وهى فى 3 سطر لحفظ السجل حتى يتم الحساب

DoCmd.RunCommand acCmdSaveRecord

 

Private Sub btnCount_Click()

If IsNull(Me.كود_المشروع) Then Exit Sub
DoCmd.RunCommand acCmdSaveRecord
x = Me.كود_المشروع

strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _
         "FROM [MAIN-TABLE] " & _
         "WHERE [MAIN-TABLE].[كود المشروع]=" & x
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset(strSql)

i = 0
For y = 0 To rs.Fields.Count - 1

    If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then
        i = i + 1
    End If

Next
 Me.txtCount = i
End Sub

Private Sub Form_Current()
btnCount_Click
End Sub

Private Sub التكلفة_كتابةً_Exit(Cancel As Integer)
btnCount_Click
End Sub

بالتوفيق

Database1(1)(1).accdbFetching info...

[Eng.Qassim]

بالاضافة لما تفضل به اساتذتي الكرام ... واثراء للموضوع ..يمكنك عمل الجمع دون ان يسبب لك في اخطاء من خلال عمل جمع للحقول في استعلام ..

 IIf([تاريخ بدء المشروع]="NA";1;0)+IIf([تاريخ انتهاء المشروع]="NA";1;0)+........

 

[أبوبسمله]

  في 30‏/7‏/2022 at 19:52, Eng.Qassim said:

بالاضافة لما تفضل به اساتذتي الكرام ... واثراء للموضوع ..يمكنك عمل الجمع دون ان يسبب لك في اخطاء من خلال عمل جمع للحقول في استعلام ..

 IIf([تاريخ بدء المشروع]="NA";1;0)+IIf([تاريخ انتهاء المشروع]="NA";1;0)+........

 

Expand  

جزاك الله خيرا اخى ومهندسنا العزيز قاسم

نعم هذا صحيح وكان خيارى الاول فالتفكير ولكنى لاحظت عدد الحقول فقمت بالدوران عليها واختيار الحقول التى تحتوى ع القيمه المشار اليها

بالتوفيق اخوانى

[asalman111]

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

تمت التجربة بنجاح ولكن لازال عندما اذهب للسجل الاخير ويكون فاضي يعطيني رسالة خطأ

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

[asalman111]

تم التعديل بنجاح

شكرا للجميع وبارك الله بعلمكم 

 

[asalman111]

الأساتذة الكرام 

لدي مشكلة عند اضافة حقل جديد للجدول من نوع مرفق تظهر رسالة خطأ

كما هو موضح في المثال

مع الشكر للجميع لحسن استجابتك سلفا

 

اضافة مرفق الخطة.accdbFetching info...

[أبوبسمله]

  في 2‏/8‏/2022 at 06:59, asalman111 said:

الأساتذة الكرام 

لدي مشكلة عند اضافة حقل جديد للجدول من نوع مرفق تظهر رسالة خطأ

كما هو موضح في المثال

مع الشكر للجميع لحسن استجابتك سلفا

 

اضافة مرفق الخطة.accdb 508 kB · 2 downloads

Expand  

وعليكم السلام

تم التعديل على جمله الاستعلام

بالتوفيق

اضافة مرفق الخطة.accdbFetching info...

[asalman111]

بارك الله فيك استاذ احمد 

وافر الشكر والامتنان لمساعدتك الدايمة للجميع

[أبوبسمله]

  في 7‏/8‏/2022 at 19:17, asalman111 said:

بارك الله فيك استاذ احمد 

وافر الشكر والامتنان لمساعدتك الدايمة للجميع

Expand  

وفيك بارك الله اخى

والشكر لله ثم لاخواننا واساتذتنا الذين نتعلم منهم

بالتوفيق