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

[Mohamed Khaled Galal]

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

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

[Barna]

  في 29‏/10‏/2022 at 12:56, mohamedstar19 said:

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

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

Expand  

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

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

 

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

[Mohamed Khaled Galal]

  في 29‏/10‏/2022 at 13:19, Barna said:

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

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

 

Expand  

شكرا لك اخي

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

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

وشكرا جدا لك 

[Barna]

  في 29‏/10‏/2022 at 13:32, mohamedstar19 said:

شكرا لك اخي

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

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

وشكرا جدا لك 

Expand  

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

 

[mk.darwesh93]

  في 29‏/10‏/2022 at 13:40, Barna said:

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

 

Expand  

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

  في 29‏/10‏/2022 at 13:40, Barna said:

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

 

Expand  

 

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

[Mohamed Khaled Galal]

  في 29‏/10‏/2022 at 13:40, Barna said:

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

 

Expand  

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

[Moosak]

  في 30‏/10‏/2022 at 06:18, mohamedstar19 said:

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

Expand  

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

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]

  في 30‏/10‏/2022 at 07:14, Moosak said:

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

Dim x As Integer

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

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

 

Expand  

شكرا لك اخي @Moosak 

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

 

 

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

[Mohamed Khaled Galal]

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

 

[Moosak]

  في 30‏/10‏/2022 at 08:48, mohamedstar19 said:

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

Expand  

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

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

[Mohamed Khaled Galal]

  في 30‏/10‏/2022 at 08:50, rockjone33 said:

c!! 

اكتب 0

Expand  

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

[Mohamed Khaled Galal]

  في 30‏/10‏/2022 at 09:45, Moosak said:

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

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

Expand  

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

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