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

[asalman111]

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

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

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

مع الشكر

Database1.accdb

[ابوبسمله]

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

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

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

بالتوفيق

Database1(1).accdb

[asalman111]

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

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

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

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

مع الشكر

[Moosak]

34 دقائق مضت, asalman111 said:

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

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

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

Private Sub Form_Current()
    btnCount_Click
End Sub

 

[asalman111]

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

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

[Moosak]

16 دقائق مضت, asalman111 said:

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

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

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 وجزاك الله خيرا على مشاركتك معنا والله يجبر بخاطرك كما تجبر بخاطر طالب علم مبتدىء مثلى 💐

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

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

3 ساعات مضت, asalman111 said:

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

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

مع اضافه بسيطه للكود وهى فى 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).accdb

[Eng.Qassim]

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

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

 

[ابوبسمله]

1 ساعه مضت, Eng.Qassim said:

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

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

 

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

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

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

[asalman111]

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

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

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

[asalman111]

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

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

 

[asalman111]

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

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

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

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

 

اضافة مرفق الخطة.accdb

[ابوبسمله]

12 ساعات مضت, asalman111 said:

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

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

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

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

 

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

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

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

بالتوفيق

اضافة مرفق الخطة.accdb

[asalman111]

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

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

[ابوبسمله]

5 دقائق مضت, asalman111 said:

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

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

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

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

بالتوفيق