الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة بمفتاح البحث

بدأه alnoor_09 في 14 سبتمبر 2008 · 4 رد · 477 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

مشكلتي في هذا البرنامج المرفق هو عندما أضغط على مفتاح ال search تظهر جميع البيانات دون أن أحدد ما أريد من حقول الاختيار

فأنا أريد عندما أضغط على مفتاح ال search دون أن أحدد ما أريد أن لا تظهر بيانات

يعني تكون القائمة فارغة ولا تظهر البيانات إلا بتحييد ما أريده.

شكرا

letr_up.rar

#2

الاخ الفاضل

أسألتك كلها تدور في فلك واحد

وأعطينا لك الاجابة اكثر من مرة

هل يوجد لديك شيء غير واضح اذا كان الامر كذلك اطلب منا توضيح او شرح ونحن دائما في الخدمة

عموما تفضل المرفق بناء علي طلبك

letr_up.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 14 سبتمبر 2008 في 19:10

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

المرفق بعد التعديل

letr_up.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 14 سبتمبر 2008 في 22:29

اقتباس
[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.

اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.

اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.

اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب

[/وسط]

545050692.gif

#4

أشكركم وعذراً على الإزعاج.

ما أعنية هو أني لا أريد أن أتقيد بحقل معين في البحث لا ب Type أو ال Subject أو غيرة

أي لا تظهر مسج تجبرني بأدخال ال Type . وفي نفس الوقت إذا قمت بإلغاء هذة الخاصية

ألاحظ عندما أضغط على مفتاح ال search تظهر جميع البيانات مرة واحدة برغم من أني لم أدخل ما أريد أن أبحث عنة.

ما أريدة هنا هو عند الضغط على مفتاح ال search دون أن أدخل البيانات لا تظهر مسج وإنما تكون القائمة فارغة.

أرجو أن يكون ما أقصدة واضح.

وعذرا على الإزعاج.

#5

أخي الفاضل

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

 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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

مواضيع مشابهة