طريقه جلب بيانات من جدول لحقل معين في الشاشه الرئيسيه

[Mohamed Khaled Galal]

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

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

[Barna]

23 دقائق مضت, mohamedstar19 said:

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

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

في حدث عند فتح النموذج ضع هذا الكود ........................ مع تعديل بيانات الكود حسب جدولك وحقل CHEK

Dim x As Integer
x = DCount("[ck]", "[student_wezara]", "[ck] =0")
MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات"

 

تم تعديل أكتوبر 29, 2022 بواسطه Barna

[Mohamed Khaled Galal]

11 دقائق مضت, Barna said:

في حدث عند فتح النموذج ضع هذا الكود ........................ مع تعديل بيانات الكود حسب جدولك وحقل CHEK

Dim x As Integer
x = DCount("[ck]", "[student_wezara]", "[ck] =0")
MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات"

 

شكرا لك اخي

لكن اريد ان اطبق داله IF 

اذا كان هناك سجلات تساوي 0 تظهر الرساله اذا لم تكن هناك سجلات تساوي 0 لا يظهر شيئ

وشكرا جدا لك 

[Barna]

3 دقائق مضت, mohamedstar19 said:

شكرا لك اخي

لكن اريد ان اطبق داله IF 

اذا كان هناك سجلات تساوي 0 تظهر الرساله اذا لم تكن هناك سجلات تساوي 0 لا يظهر شيئ

وشكرا جدا لك 

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

 

[mk.darwesh93]

6 ساعات مضت, Barna said:

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

 

نعم اخي هي خانه شيك ولكن لا اريد عدد الخانات الصح اريد اذا كان في خانه غير متعلم عليها صح تظهر لي رساله بأن هناك سجلات لم يتم التعليم عليها بالصح

6 ساعات مضت, Barna said:

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

 

 

تم تعديل أكتوبر 29, 2022 بواسطه mk.darwesh93

[Mohamed Khaled Galal]

16 ساعات مضت, Barna said:

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

 

نعم اخي هي خانه شيك ولكن لا اريد عدد الخانات الصح اريد اذا كان في خانه غير متعلم عليها صح تظهر لي رساله بأن هناك سجلات لم يتم التعليم عليها بالصح

[Moosak]

55 دقائق مضت, mohamedstar19 said:

لا اريد عدد الخانات الصح اريد اذا كان في خانه غير متعلم عليها صح تظهر لي رساله بأن هناك سجلات لم يتم التعليم عليها بالصح

تكملة على عمل أخي محمد البرناوي 🙂 

Dim x As Integer

' عدد السجلات الغير معلم عليها صح
x = DCount("[ck]", "[student_wezara]", "[ck] =0")

iF X > O Then
MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات"
Else
'عدد السجلات 0 لذلك سيتجاهل الإشعار 
End IF

 

[Mohamed Khaled Galal]

48 دقائق مضت, Moosak said:

تكملة على عمل أخي محمد البرناوي 🙂 

Dim x As Integer

' عدد السجلات الغير معلم عليها صح
x = DCount("[ck]", "[student_wezara]", "[ck] =0")

iF X > O Then
MsgBox " عدد السجلات الخطأ هي " & x & " سجل ", vbInformation, "سجلات"
Else
'عدد السجلات 0 لذلك سيتجاهل الإشعار 
End IF

 

شكرا لك اخي @Moosak 

عندما طبقت هذا الكود ظهرت لي هذه الرساله 

 

 

تم تعديل أكتوبر 30, 2022 بواسطه mohamedstar19

[Mohamed Khaled Galal]

اخواني الكرام لقد حاولت عددت مرات وتم حل المشكله كما في المرفق 

 

[Moosak]

53 دقائق مضت, mohamedstar19 said:

وتم حل المشكله كما في المرفق

أكتب x>0 وليس c ..

أنت الآن كتبت x=1 وتعني إن كان عدد الأذونات يساوي واحد يعطيك تنبيه .. لكن إذا زادت عن الواحد لن تعمل معك .. 

[Mohamed Khaled Galal]

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

c!! 

اكتب 0

بالفعل انا كاتب 0

[Mohamed Khaled Galal]

2 ساعات مضت, Moosak said:

أكتب x>0 وليس c ..

أنت الآن كتبت x=1 وتعني إن كان عدد الأذونات يساوي واحد يعطيك تنبيه .. لكن إذا زادت عن الواحد لن تعمل معك .. 

شكرا جدا ليك اخي @Moosak

لقد تم حل المشكله