jjafferr

. الآن استعمل الاستعلام QPARTNO ، بس خلي مصدر بياناته من الجدول الجديد tbl_New جعفر

وعليكم السلام أبومصطفى اللي اوله شرط ، آخره نور: رجاء لما ترد عليّ ، انا سأرد عليك ، فالله يخليك خليك صبور شوي أخي عبدالرحمن ، أضف هذه المعلومة الى قائمة الرابط الذي وضعته نرجع الى موضوعك ، رسالة Write Conflict: برنامجك اخذ مني أكثر من 3 ساعات علشان احلله واعرف تفاصيل النموذج FBillCr !! الرسالة هذه معناها ، انه في النموذج في أكثر من جهة تدخل البيانات منذ فتحه (في حالتك استعلام التحديث Q4 و Q5)، والبرنامج محتار ، هل يأخذ بيانات الادخال من النموذج مباشرة ، او من البيانات اللى جاته من الاستعلام (او قد تأتيه من الجدول ، اذا عملت تحديث للبيانات للجدول ، وتنعكس هذه البيانات على النموذج). والرابط التالي فيه كود ، ولكن تابع الكود وسترى اني كنت محتاج اجدد/احدّث معلومات النموذج ، ولكن صادفتني هذه الرساله ، فاضطررت ان استعمل كود وطريقة ثانية لحل الموضوع: http://www.officena.net/ib/topic/65548-المساعدة-في-جمع-الدقائق-حسب-الشهر-للموظف/#comment-426706 والحل: 1. استعلام التحديث Q4 و Q5 ، يُدخلوا البيانات (يُحدّثوا بيانات) الحقلين dtotal و dtotal2 في النموذج الرئيسي ، بينما انت في الكود قد قمت بعمل كود للحقلين ، لهذا السبب ، احذف الاستعلامات من الكود ، واذا نتائج الكود غير صحيحة ، ضبط الكود بالنتائج الصحيحة. 2. في النموذج الفرعي ، كذلك عندك استعلام تحديث Q2 للحقل mq ، والحقل mq اصلا به كود ، لهذا السبب ، احذف الاستعلام من الكود. وكان الله غفورا رحيما جعفر

وعليكم السلام أخوي رمهان وينك يا رجال ، ما لك شوفة الله يعينك على اللي شاغل وقتك جعفر

السلام عليكم أخي عزيز هل استعملت اي من النماذج التي ارفقتها لك سابقا؟ هل تعمل بشكل صحيح؟ ما الذي تريده من دالة Dsum ؟ فحتى اذا استعملتها ، فانها لن تغير النتيجة ، فما القصد من تغيير عمل البرنامج ، فقط لأجل الدالة!! جعفر

السلام عليكم أخي عبدالرحمن وأخي كمال انا اخبرت الاخ كمال عن هذه المشكلة في الرابط التالي: http://www.officena.net/ib/topic/66010-برنامج-خاص-بالموظفين-مع-التعديل/?do=findComment&comment=429495 وبالاستعلام التالي: جعفر

أخي الفاضل انت غيرت اسماء الجداول ، وغيرت اسماء الحقول في الجداول ، وحذفت بعض الحقول من الجداول ، وحذفت حقل من نموذج البحث ، ولم تنسخ الكود الاول الذي اعطيتك بالكامل ، والشئ الوحيد الذي لم تغيره هو الكود ، وتتوقع من البرنامج ان يشتغل!! انا عملت لك 10 تعديلات في الكود ، وبملاحظاتها باللون الاخضر ، وبعدها اشتغل الكود جعفر

ارفق البرنامج لوسمحت بعد التعديل. جعفر

وعليكم السلام ورحمة الله وبركاته هلا والله أخوي العنزي انا اشوف واجد اسئلة حول هذا الموضوع بس انا شفتك حاط الشهادات كلها في الكود ، ومن تفتيشي للملفات القديمة: كل شهادة لها مرحلة ودرجة ، وحسب الشهادة ، في درجات لها مرحلة او اثنين ، والدرجات من الدرجة الخامسة فاقل فيها 5 مراحل مو 4 ، وبعدين ايش ناوي تعمل بكتب الشكر والمخالفات ؟ واعتقد عندك خطأ في قيم الانذار ولفت النظر والتوبيخ. جعفر

شو اللي ما ضبط؟ استعمل الكود اللي خليت لك اياه في اول مشاركة ، ثم احذف السطر اللي فيه Like في مشاركتي السابقة ، وبدله بالسطر الثاني. واخبرني وين الخطأ ، واين يتوقف البرنامج على اي سطر ، واعمل صورة من (Screen shot) من السطر اللي لونه اصفر ، وارفقه ، مع البرنامج. جعفر

وعليكم السلام أخي علي انا نسيت الموضوع ، اعتذر منك بس رجاء تخبرني اي كود تريد ان تضبطه على 64بت (نأخذها حبة حبة لوسمحت ، وخصوصا انا ما عندي اكسس 64بت) ، واخبرني كذلك اي نموذج ، واي زر يستعمل الكود. جعفر

وعليكم السلام أخي كمال نعم هذا قصدنا انا وأخي عبدالرحمن استعمال الحقل Object OLE في الجدول لتخزين الصور سيبب لك المشاكل. جعفر

حياك الله بدل هذا السطر rs.FindFirst "[nom] LIKE '*" & Me.Text0 & "*'" استعمل هذا السطر rs.FindFirst "[nom] = " & Me.Text0 جعفر

تفضل: 1. المعادلة غلط ، لازم يكون في مسافة بين الكلمتين [nom] و Like ، 2. تصليح معادلة 1 ، 3. اذا البحث لم يحصل على نتيجة ، فيجب ان تصبح حقول النموذج فارغة ، 4. مافي داعي للبحث مرة اخرى في نفس الحقل ، 5. عند الحصول على نتيجة البحث ، اكتب نتائجها في النموذج ، واوقف البحث ، بالخروج من الكود ، 6. كان عنك خطأ في المعادلة وكانت rs.clone ، 7. لا تبحث في جداول اعدادات الاكسس جعفر

وعليكم السلام تفضل البحث في جميع الجداول عن الرقم الوزاري 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 جعفر

السلام عليكم أخي bakoraus موضوع استعلام التوحيد صعب ، واصعب مافيه التغيير ، فكلما اردت التغيير ، يجب ان تغير جميع الاستعلامات التي فيه (3 استعلامات في مثالك) ، فانا اقترح عليك ان تستخدم جدول مؤقت بدلا عن استعلام توحيد: http://www.officena.net/ib/topic/66014-dsum/?do=findComment&comment=429642 جعفر

السلام عليكم أخي bakoraus موضوع استعلام التوحيد صعب ، واصعب مافيه التغيير ، فكلما اردت التغيير ، يجب ان تغير جميع الاستعلامات التي فيه (3 استعلامات في مثالك) ، فانا اقترح عليك ان تستخدم جدول مؤقت بدلا عن استعلام توحيد: 1. نعمل جدول فيه جميع الحقول اللي انت محتاج لها (انا استعملت جميع حقول الاستعلام QBegLG ) ، فاصبح الجدول هكذا: . 2. وعليه غيرت نوع الاستعلام ، فجعلته استعلام الحاقي: . 3. واضفت لك الخيار في اختيار البيانات بين تاريخين . والآن ، نتيجة الاستعلامات ستكون في الجدول المؤقت ، وعليه تستطيع ان تستعمل بياناته فيما تريد صافي يالبن جعفر 327.2.Copy of BMTES.mdb.zip

السلام عليكم أخي الامير انا لم انزل برنامجك ، وهذه اجابات عامة عن اسئلتك: بالنسبة للسؤال الاول ، فاعتقد بان العمل كما هو في الرابط التالي افضل لك ، وانا استعمل هذه الطريقة في جميع برامجي تقريبا: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 والسؤال الثاني ، انظر الرابط التالي: http://www.officena.net/ib/topic/66017-مشكله-في-التقارير/?do=findComment&comment=429531 واذا لازلت محتاج مساعدة ، فتفضل واترك سؤالك هنا جعفر

حياك الله ، وافدنا بالنتيجة لوسمحت جعفر

السلام عليكم أخي كرار ، هذا معناه انك لم تحدّث الاكسس 2010 اللي تستعمله !! تم حل هذه المشكلة في SP1 ، والان التحديثات وصلت الى SP2 (وطبعا ما تقدر تنصب SP2 بدون ما تكون منصب SP1). رابط انزال SP1 https://www.microsoft.com/en-us/search/result.aspx?q=Service+Pack+1+for+Microsoft+Office+2010&form=dlc رابط انزال SP2 http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm واثناء تنزيل التحديثات من الانترنت ، اقرا الرابط التالي ، وفيه معلومة عن التحديثات ومعلومات اخرى: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 جعفر

السلام عليكم أخي وكذلك اذا ذهبت الى اعدادات الطابعة في التقرير ، سترى انك مستخدم نوع الورق "Letter" بينما نحن نستعمل A4 وهو الاقصر ، والعرض عندك اكبر من حجم الصفحة ، فجرب (للتجربه فقط) ان تزحف جميع الحقول وتضيق عرض التقرير ، مع القيام بملاحظة الاخ عبدالرحمن ، وسترى ان صفحة تُطبع تمام ان شاء الله او كذلك للتجربة ، اطبع الصفحة بالعرض بدل الطول. جعفر

حياك الله جعفر

حياك الله تفضل اذا في النموذج ، ماكرو مضمن: . واذا ماكرو عادي: جعفر

السلام عليكم أخي الفاضل أبومحمد ياريت تشاركنا في الرابط التالي: http://www.officena.net/ib/topic/65951-بخصوص-طباعة-الباركود/ فصاحب الموضوع محتاج مساعدتك ، ولم يستطع المواصلة في هذه المشاركات. اشكرك مقدما جعفر

ولا يهمك ، انا بخلي له ملاحظة في الموضوع السابق ، واطلب منه يتواصل معاك هنا جعفر