سيفين قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 ارجو بيان سبب الخطأ في الكود الموضوع في زر الامر عن النقر علي في النموذج 3xx.rar
jjafferr قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 (معدل) وعليكم السلام تفضل البحث في جميع الجداول عن الرقم الوزاري nom : Private Sub Command10_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim tbl As DAO.TableDef Set db = CurrentDb Dim T As TableDef DoCmd.SetWarnings False For Each T In db.TableDefs If Left(T.Name, 4) <> "Msys" And T.Name Like "m*" Then Set rs = db.OpenRecordset(T.Name, dbOpenDynaset) 'rs.FindFirst "[nom]LIKE '*" & Me.Text0 & "*'" rs.FindFirst "[nom] LIKE '*" & Me.Text0 & "*'" If rs.NoMatch Then Me.Text2 = "" Me.Text4 = "" Me.Text6 = "" Me.Text8 = "" rs.MoveNext Else ' Do While Not rs.NoMatch ' rs.FindNext "[nom]LIKE '*" & Me.Text0 & "*'" ' Loop Me.Text2 = rs![nom] Me.Text4 = T.Name Me.Text6 = rs![Name] Me.Text8 = rs![place] GoTo Out_of_Here End If Else End If Next T Out_of_Here: DoCmd.SetWarnings True rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub جعفر تم تعديل ديسمبر 30, 2015 بواسطه jjafferr
سيفين قام بنشر ديسمبر 30, 2015 الكاتب قام بنشر ديسمبر 30, 2015 وعليكم السلام ورحمة الله وبركاته مشكور اخي جعفر . ممكن تشرحلي شو الخطأ وكيف عالجته
jjafferr قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 تفضل: 1. المعادلة غلط ، لازم يكون في مسافة بين الكلمتين [nom] و Like ، 2. تصليح معادلة 1 ، 3. اذا البحث لم يحصل على نتيجة ، فيجب ان تصبح حقول النموذج فارغة ، 4. مافي داعي للبحث مرة اخرى في نفس الحقل ، 5. عند الحصول على نتيجة البحث ، اكتب نتائجها في النموذج ، واوقف البحث ، بالخروج من الكود ، 6. كان عنك خطأ في المعادلة وكانت rs.clone ، 7. لا تبحث في جداول اعدادات الاكسس جعفر
سيفين قام بنشر ديسمبر 30, 2015 الكاتب قام بنشر ديسمبر 30, 2015 الله يفتح عليك يا اخ جعفر بدي منك طلب ثاني بنفس المثال السابق لوكان رقمين مثلا 63 ، 163 وبحث عن الرقم 63 راح يظهر لي 163 المطلوب بدي يظهرلي الرقم اللي ابحث عنه بالضبط 63 يعني 63 وشكرا لك
jjafferr قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 حياك الله بدل هذا السطر rs.FindFirst "[nom] LIKE '*" & Me.Text0 & "*'" استعمل هذا السطر rs.FindFirst "[nom] = " & Me.Text0 جعفر
jjafferr قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 شو اللي ما ضبط؟ استعمل الكود اللي خليت لك اياه في اول مشاركة ، ثم احذف السطر اللي فيه Like في مشاركتي السابقة ، وبدله بالسطر الثاني. واخبرني وين الخطأ ، واين يتوقف البرنامج على اي سطر ، واعمل صورة من (Screen shot) من السطر اللي لونه اصفر ، وارفقه ، مع البرنامج. جعفر
سيفين قام بنشر ديسمبر 30, 2015 الكاتب قام بنشر ديسمبر 30, 2015 عملت مثل ما حكيت بدلت السطر اللي فيه rs.FindFirst "[nom] LIKE '*" & Me.Text0 & "*'" بالسطر rs.FindFirst "[nom] = " & Me.Text0 لما اعمل بحث ما تطلع نتائج لماذا
jjafferr قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 أخي الفاضل انت غيرت اسماء الجداول ، وغيرت اسماء الحقول في الجداول ، وحذفت بعض الحقول من الجداول ، وحذفت حقل من نموذج البحث ، ولم تنسخ الكود الاول الذي اعطيتك بالكامل ، والشئ الوحيد الذي لم تغيره هو الكود ، وتتوقع من البرنامج ان يشتغل!! انا عملت لك 10 تعديلات في الكود ، وبملاحظاتها باللون الاخضر ، وبعدها اشتغل الكود جعفر
رمهان قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 اخ سيفين ممكن تقول الهدف من الذي تريده ! لو قلنا انك تريد البحث في كل الجداول ! ماذا لو وجد البحث في اكثر من جدول ! واعتقد ان الكود هنا يحتاج اختزال ليسهل تتبعه والتعديل عليه ! بل فهمه ! فلم افهم لماذا الامر التالي عند عدم تطابق البحث rs.MoveNext ! فهذه مايبيلها اختزال بل يبيلها شلوطي من الكود ! تحياتي
سيفين قام بنشر ديسمبر 31, 2015 الكاتب قام بنشر ديسمبر 31, 2015 السلام عليكم انا يا اخوة حصلت على الكود من المنتدى وكان الكود اصلا يبحث عن اسماء في اكثر من جدول وانا برنامجي ابحث عن ارقام في اكثر من جدول ( فكرتي انه عندي مجموعة موظفين بالدائرة في منهم انتقلوا ومنهم تقاعدوا ومنهم على رأس عملهم ) انا فصلت الجداول كل جدول لحاله بنفس التصميم واردت لما ابحث عن رقم واحد اعرف شو وضعه . فعدلت على الكود عشان يبحث بالرقم وحصل اللي حصل وسلامتكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.