اخواني الاعزاء
السلام عليكم ورحمة الله وبركاته
سؤالي هو : - كيف يتم البحث بالرقم او الاسم حسب مسمى مربع التسمية لخانة البحث وفتح نموذج Form1 على النتائج؟
تم عمل البحث بالرقم ولكن اريد ان يتم ايضاً البحث بالاسم وفتح النموذج على النتائج باستخدام نفس زر الامر.
البيانات المتوفرة بالنموذج Form1 هي
الحقل ItemCode به القيم 1 و 2
الحقل ItemName به القيم A و B
مع الشكر والتقدير للجميع
تم تعديل هذه المشاركة بواسطة يوسف احمد في 7 سبتمبر 2007 في 16:59
اخي الفاضل يوسف
السلام عليكم ورحمة الله وبركاته
طريقتك في البحث وكتابة الكود جميله ولكن تحتاج للتفريق بين الحقل الرقمي والحقل النصي
ففي الحقل الرقمي نضع علامة تنصيص واحده اما الحقل النصي فيجب ان توضع علامة التنصيص المفرده بين علامتي تنصيص مزدوجه وولفائدة ايضا فيما لو اردت البحث عن حقل تاريخ فيجب ان يوضع بين علامتي شبكه # انظر للكود الخاص بك بعد التعديل
Private Sub Cmdsearch_Click() Dim stLinkCriteria As String If Me.Lbl1.Caption = "رقم المادة" Then stLinkCriteria = "[ItemCode]=" & Me![TxtSearch] DoCmd.OpenForm "form1", , , stLinkCriteria Else If Me.Lbl1.Caption = "اسم المادة" Then stLinkCriteria = "[ItemName]=" & "'" & Me![TxtSearch] & "'" DoCmd.OpenForm "form1", , , stLinkCriteria End If End If End Sub
سلمت الايادي يا زهرة منتدانا
جزاك الله خيراً ... نعم هذا هو المطلوب
شكراً جزيلاً لك على سرعة الرد والتعديل والتوضيح.
حفظك الله ورعاك
بعد اذن اختنا العزيزة زهرة، مع كل الشكر والتقدير.. اود ان اضيف تعديلا بسيطا من وجهة نظري من خلال زر امر واحد فقط، اي بدلا من استخدام زري امر لتحديد الحقل المراد البحث به، عدلت على الكود ليتم ذلك من خلال زر امر واحد هو Command3 فقط،
طبعا هنا الهدف هو فكرة جديدة وهي تغيير خاصية Caption لزر الامر حسب الحالة...
صورة للتعديل ومرفق الملف الجديد،،
بعد اذن زهرة المنتدى طبعا..
همام
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 8 سبتمبر 2007 في 21:07
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
أخي يوسف
علمتناأستاذتنا زهرة
أن أداءنا للوظائف بأقل عدد من الأكواد ومكونات النموذج بداية الطريق للبرمجة المتقدمة
وعلى هذا الدرب أعرض لك مثالك برؤية تحاكي ما قلته سابقاً
مع كامل التقدير لمثال الأخت زهرة والأخ همام
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
الاخوين همام وmas123
بارك الله فيكما وجزاكما خيراً على هذه الاضافات الجميلة
وحقيقة ما يميز هذا المنتدى هو حب الكثير للمشاركة والتوجيه وتقديم اكثر من حل لمعظم المشاكل المطروحة
اكرر شكري وتقديري لاختنا واستاذتنا زهرة وللجميع بهذا المنتدى الغالي
هذا الموضوع مغلق.
