السلام عليكم
مشكلتي في هذا البرنامج المرفق هو عندما أضغط على مفتاح ال search تظهر جميع البيانات دون أن أحدد ما أريد من حقول الاختيار
فأنا أريد عندما أضغط على مفتاح ال search دون أن أحدد ما أريد أن لا تظهر بيانات
يعني تكون القائمة فارغة ولا تظهر البيانات إلا بتحييد ما أريده.
شكرا
الاخ الفاضل
أسألتك كلها تدور في فلك واحد
وأعطينا لك الاجابة اكثر من مرة
هل يوجد لديك شيء غير واضح اذا كان الامر كذلك اطلب منا توضيح او شرح ونحن دائما في الخدمة
عموما تفضل المرفق بناء علي طلبك
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 14 سبتمبر 2008 في 19:10
المرفق بعد التعديل
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 14 سبتمبر 2008 في 22:29
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
أشكركم وعذراً على الإزعاج.
ما أعنية هو أني لا أريد أن أتقيد بحقل معين في البحث لا ب Type أو ال Subject أو غيرة
أي لا تظهر مسج تجبرني بأدخال ال Type . وفي نفس الوقت إذا قمت بإلغاء هذة الخاصية
ألاحظ عندما أضغط على مفتاح ال search تظهر جميع البيانات مرة واحدة برغم من أني لم أدخل ما أريد أن أبحث عنة.
ما أريدة هنا هو عند الضغط على مفتاح ال search دون أن أدخل البيانات لا تظهر مسج وإنما تكون القائمة فارغة.
أرجو أن يكون ما أقصدة واضح.
وعذرا على الإزعاج.
أخي الفاضل
اذا اردت عمل ذلك استبدل الكود السابق بهذا الكود وهذا الكود مهمتة اكتشاف مربعات النصوص التي تركتها فارغة علي النموذج بدون التقيد بحقل معين
Dim ctlTextbox As Control For Each ctlTextbox In Me.Controls If ctlTextbox.ControlType = acTextBox Then If IsNull(ctlTextbox) Then DoCmd.CancelEvent ctlTextbox.SetFocus Exit Sub End If End If Next ctlTextbox MsgBox "جميع مربعات النص بها قيم"
أخي الفاضل
اذا اردت عمل ذلك استبدال الكود السابق بهذا الكود وهذا الكود مهمتة اكتشاف مربعات النصوص التي تركتها فارغة علي النموذج بدون التقيد بحقل معين
Dim ctlTextbox As Control For Each ctlTextbox In Me.Controls If ctlTextbox.ControlType = acTextBox Then If IsNull(ctlTextbox) Then DoCmd.CancelEvent ctlTextbox.SetFocus Exit Sub End If End If Next ctlTextbox MsgBox "جميع مربعات النص بها قيم"
أخي الفاضل
اذا اردت عمل ذلك استبدال الكود السابق بهذا الكود وهذا الكود مهمتة اكتشاف مربعات النصوص التي تركتها فارغة علي النموذج بدون التقيد بحقل معين
Dim ctlTextbox As Control For Each ctlTextbox In Me.Controls If ctlTextbox.ControlType = acTextBox Then If IsNull(ctlTextbox) Then DoCmd.CancelEvent ctlTextbox.SetFocus Exit Sub End If End If Next ctlTextbox MsgBox "جميع مربعات النص بها قيم"
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 15 سبتمبر 2008 في 09:43