حسين العربى قام بنشر نوفمبر 18, 2015 قام بنشر نوفمبر 18, 2015 السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد عمل بحث في نموذج رئيسي من خلال مربع نص اسمه [t1] للعلم انا عامل بحث البحث هو وضعت كود في مربع النص t1 ( DoCmd.Requery وجعلت مصدر النموذج استعلام ووضعت في المعيار استعلام كود الصنف معيار =[forms]![form8]![t1] وهذ الطريقه تعمل مع بنجاح بس انا لا اريد هذه الطريقه اريد كود فقط للبحث ولا اريد وضع معيار في استعلام وشكرا واسف علي الاطالة
عادل أبو أحمد قام بنشر نوفمبر 18, 2015 قام بنشر نوفمبر 18, 2015 وعليكم السلام ورحمة الله وبركاته غير واضح اذا كان النموذج الرئيسي نموذج ادخال وتريد البحث عن ما تم ادخاله قبل ذلك او عن ماذا تريد ان تبحث عموما اذا كان البحث عن ما تم ادخاله من قبل فيمكنك ان تقف بمؤشر الماوس على الحقل المراد البحث فيه وتضغط مفتاحي Ctrl + F وتكتب ما تريد البحث عنه او جزء منه ثم نجمة * ثم انتر ويمكنك عمل زر على النموذج يقوم بالبحث بسهولة باستخدام المعالج ولو ترفع الملف ربما يتسنى لي او للزملاء المساعدة
حسين العربى قام بنشر نوفمبر 18, 2015 الكاتب قام بنشر نوفمبر 18, 2015 اخي الفاضل Adel6767 شكرا علي مرورك ان اوريد بحث عن طريق كود وليس معيار في استعلام مثلما شرحت
حسين العربى قام بنشر نوفمبر 18, 2015 الكاتب قام بنشر نوفمبر 18, 2015 سبب طلبي لوكود بحث في مربع نص في نموذج رئيسي لايكون مبني استعلام هو عندي قاعدة بيانات علي سيرفر مصممه علي sql server 2008 بها جدول اسمه tabol1 عملت به ارتباط من خلال الاكسس 2007 وتم الارتبط بنجاج وسويت نموذج اسمه form 8 وبه اربع مربعات نص ( رقم الصنف ) (اسم الصنف ) (باركود الصنف) (السعر) ووضعت في راس النموذج مربع نص غير منضم اسمه (t1) لعمل بحث ووضعت بالمربع كود في حدث بعد التحديث هو (DoCmd.Requery) ومصدر بيانات النموذج استعلام اسمه (استعلام 11) ووضعت في معيار الاستعلام تحت رقم الصنف معيار هو( =[forms]![form8]![t1] هذه الطريقه التي شرحتها ( سويتها في نماذج كثير في اكسس وتعمل 100% ) ولاكن المشكله عندم سويتها علي نموذج مرتبط باستعلام مبني علي جدول مرتبط sql serer عند فتح نموذج form 8 يفتح النموذج ابيض ليس به شئ وعند ازالة المعيار من الاستعلام الي هو ده [forms]![form8]![t1] تختفي المشكله لذلك انا طلبت كود بحث بدون معيار في استعلام ارجو ان تكون الفكره وصلت واسف علي الاطالة مرفق صوره للنموذج عند فتحه وصره للجدول المرتبط ب sql server2008
ابوخليل قام بنشر نوفمبر 18, 2015 قام بنشر نوفمبر 18, 2015 السلام عليكم جرب يكون المعيار مثل هذا : Like "*" & [Forms]![form8]![t1] & "*"
حسين العربى قام بنشر نوفمبر 19, 2015 الكاتب قام بنشر نوفمبر 19, 2015 اخي الفاضل ابو خليل الف شكر علي مرورك الطيب الكود ظب معي بس عندي مشكله ممكن تكون صغيره بالنسبه لك عند فتح النموذج لا اريد ظهور بيانات اصناف الي بعد البحث لاني عند فتح النموذج وبدون بحث تظهر بيانات كما في الصوره المرفقة
jjafferr قام بنشر نوفمبر 19, 2015 قام بنشر نوفمبر 19, 2015 السلام عليكم يا أخوي حسين ، مب كل صغيرة وندوخ فيها راس اخونا العود ابوخليل الله يحفظه ، احنا ندّخره للشدائد جرب كود اخوي ابوخليل المعدل: Like IIf(len([Forms]![form8]![t1] &"")=0,"SomeThingThatCannotBeMatched","*" & [Forms]![form8]![t1] & "*") 12 ساعات مضت, ابوخليل said: السلام عليكم وعليكم السلام ورحمة الله وبركاته ، وحيا الله من يانا جعفر
حسين العربى قام بنشر نوفمبر 19, 2015 الكاتب قام بنشر نوفمبر 19, 2015 اخي الفاضل jjafferr الف شكر علي مرورك الطيب ولكن الكود به خطأ لا يعمل
jjafferr قام بنشر نوفمبر 19, 2015 قام بنشر نوفمبر 19, 2015 آه ما قرأت الموضوع بالكامل ، كنت اعتقد انه في الاستعلام كل اللي نريد نعمله هو: اذا الحقل t1 في النموذج فارغ ، فابحث عن شئ غير موجود (او لا تبحث اصلا) ، واذا الحقل غير فارغ ، فاستخدم كود اخونا ابو خليل. الكود: if len([Forms]![form8]![t1] & "")=0 then Like "SomeThingThatCannotBeMatched" else Like "*" & [Forms]![form8]![t1] & "*" endif او if len([Forms]![form8]![t1] & "")<>0 then Like "*" & [Forms]![form8]![t1] & "*" endif جعفر
حسين العربى قام بنشر نوفمبر 19, 2015 الكاتب قام بنشر نوفمبر 19, 2015 اسف اخي في اي حدث يوضع هذا الكود لاني وضعته في حدث بعد التحديث لم يعمل وضعته في حدث عند التحميل لم يعمل وظهر لي كما في الصورة
jjafferr قام بنشر نوفمبر 19, 2015 قام بنشر نوفمبر 19, 2015 (معدل) 4 ساعات مضت, husseinarby said: اخي الفاضل ابو خليل الف شكر علي مرورك الطيب الكود ظب معي انت قلت لأخونا ابوخليل ان الكود عمل معاك ، فانا كتبت التغيير المطلوب فقط ، ولم اتطرق لباقي الكود (كما فعل أخونا ابوخليل) والآن الى الكود المتكامل: 17 ساعات مضت, husseinarby said: ( 1.رقم الصنف ) (2.اسم الصنف ) (3.باركود الصنف) (4.السعر) الذي فهمته هو ، انك تأخذ البيانات من الاستعلام ، وتريد البحث في اصل الحقول الاربع اعلاه ، فالكود يصبح: if len([Forms]![form8]![t1] & "")<>0 then [رقم الصنف] & ' ' & [اسم الصنف] & ' ' & [باركود الصنف] & ' ' & [السعر] Like '*' & [Forms]![form8]![t1] & '*' endif واذا ما ضبط ، فانا محتاج للنموذج وبدون اي شئ آخر جعفر تم تعديل نوفمبر 19, 2015 بواسطه jjafferr
jjafferr قام بنشر نوفمبر 19, 2015 قام بنشر نوفمبر 19, 2015 يجب ان نخبر النموذج بأن يعمل تصفية بهذا الكود: if len([Forms]![form8]![t1] & "")<>0 then me.filter= [رقم الصنف] & ' ' & [اسم الصنف] & ' ' & [باركود الصنف] & ' ' & [السعر] Like '*' & [Forms]![form8]![t1] & '*' endif me.filteron=true جعفر
حسين العربى قام بنشر نوفمبر 19, 2015 الكاتب قام بنشر نوفمبر 19, 2015 اخي الفاضل فعلا كود الاخ ابو خليل يعمل تمام بس اريد لما افتح النموذج يفتح لي كنموذج ادخال بيانات اي فارغ من البيانات اما حليا عند فتح النموذج يفتح لي وبه بيانات وهذا نسخة من البرنامج بدون الجدول BARCODE.rar
jjafferr قام بنشر نوفمبر 19, 2015 قام بنشر نوفمبر 19, 2015 السلام عليكم أخي حسين في الواقع اول مشاركة لي في هذا الموضوع كان الجواب التفصيل: بما انه في النموذج يوجد عندك عدة حقول ، ولكن البحث يتم في حقل واحد ، فانا جعلت البحث يتم في جميع الحقول (البحث يكون أبطأ) ، فاصبح جزء البحث هو (وكذلك الكود طرحته في احد مشاركاتي السابقة): ([ITEM_CODE] & ' ' & [ITEM_NAME2] & ' ' & [ITEM_BARCODE] & ' ' & [SMALL_UNIT_PRICE] & ' ' & [SUPP_CODE] & ' ' & [FACTOR]) Like IIf(Len([Forms]![form8]![t1] & "")=0,"SomeThingThatCannotBeMatched","*" & [Forms]![form8]![t1] & "*") بس لازم تغير في كود زر البحث كذلك ، فاصبح: Private Sub أمر12_Click() 'Me.t1 = "" Me.Requery 'Me.t1.SetFocus End Sub Private Sub t1_DblClick(Cancel As Integer) Me.t1 = "" Me.Requery End Sub لاحظ ، عملت لك كود النقر المزدوج في حقل t1 حتى يخلي لك الحقل رجاء تحذف الجدول tabol1 ، فلقد اضطررت ان اعمله جعفر 272.BARCODE.accdb.zip
حسين العربى قام بنشر نوفمبر 20, 2015 الكاتب قام بنشر نوفمبر 20, 2015 اخي الفاضل jjafferr الف شكر لك انا تعبتك معي بعد تطبيق كل ماقلته بالظبط رجعت المشكله الاولي التي هي عند فتح النموذج يظهر خالي اكيد المشكله في الجدول لانه مرتبط بسيرفر
حسين العربى قام بنشر نوفمبر 20, 2015 الكاتب قام بنشر نوفمبر 20, 2015 نعم اخي جربيت المرفق كما هو بالجدول الذي ارقته انت يعمل 100% اما بالجدول الجدول الخاص بي المرتبط بالسيرفر تظهر المشكله
jjafferr قام بنشر نوفمبر 20, 2015 قام بنشر نوفمبر 20, 2015 أخي حسين الأن مالنا شغل في الاستعلام ، والشغل كله في تصفية النموذج بس اضف ActiveX مال CodeBar ، لأني اضطررت ان ازيله جعفر 272.BARCODE.accdb.zip
حسين العربى قام بنشر نوفمبر 20, 2015 الكاتب قام بنشر نوفمبر 20, 2015 الف شكر اخي الغالي شكرا علي زوقك وصبرك جاري التجربه لان قاعدة البيانات في العمل
حسين العربى قام بنشر نوفمبر 21, 2015 الكاتب قام بنشر نوفمبر 21, 2015 للاسف اخي الفاضل جعفر نفس المشكلة النموذج يظهر ابيض وليس به بيانات بعد عمله علي الجدول المرتبط بقاعدة البيانات بس انا خطرة في بالي فكره وظبطت معي الفكره هي عمل جدول ثاني وسميته tabl2 بنفس تصميم الجدول المرتبط بقاعدة البينات في السرفر وجعلت مصدر بيانات النموذج form8 جدول tabil2) وعملت استعلام الحقاق ووضعت به كود في معيار رقم الصنف [Forms]![form8]![t1] وفي النموذج في مربع نص البحث وضعت كود لتشغيل الاستعلام في حدث بعد التحديث وعند وضع رقم الصنف في مربع النص ثم انتر يقوم بترحيل بينات الصنف في الجدول tabil2 وتظهر البينات في النموذج وعند عمل بحث جديد يقوم المستخدم بالضغط علي زر بحث جديد وهذا الزر يقوم بتشغيل استعلام حذف البيانات التي في جدول tabil2 اليكم المرفق BARCODE.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.