jjafferr

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

وعليكم السلام ورحمة الله وبركاته هلا والله أخوي العنزي انا اشوف واجد اسئلة حول هذا الموضوع بس انا شفتك حاط الشهادات كلها في الكود ، ومن تفتيشي للملفات القديمة: كل شهادة لها مرحلة ودرجة ، وحسب الشهادة ، في درجات لها مرحلة او اثنين ، والدرجات من الدرجة الخامسة فاقل فيها 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-بخصوص-طباعة-الباركود/ فصاحب الموضوع محتاج مساعدتك ، ولم يستطع المواصلة في هذه المشاركات. اشكرك مقدما جعفر

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

وعليكم السلام ورحمة الله وبركاته أخي كرار ، اذا كان كمبيوترك يعمل الحدث باستخدام الماكرو ، فالرجاء الذهاب الى هذا الرابط ، لجعل الاكسس يعمل الحدث في الكود: http://www.officena.net/ib/topic/65236-مشكلة-في-حدث-عند-النقر/ ولما يضبط الاكسس ، تستطيع ان تستخدم زر الامر من لوحة التصميم ، وعندما تختار الزر الذي تريده للمهمة التي تريدها ، ستراها في الكود اما اذا مازلت في استخدام الماكرو ، فيمكنك تحويل الماكرو الى كود وتنظر فيه واذا فشلت كل المحاولات ، فاليك الكود: ' السجل التالي DoCmd.GoToRecord , , acNext 'السجل السابق DoCmd.GoToRecord , , acPrevious جعفر

لي الشرف أخي عبدالرحمن جعفر

وعليكم السلام أخي محمد وهل تعتقد بأني لازلت اذكر ما عملته قبل 4 اشهر رجاء اخبرني ما كنا نفعله ، وماذا تريد ان تفعل الان ، وبأمثله لوسمحت جعفر

مع ان قوانين المنتدى لا تسمح بأكثر من سؤال لكل موضوع ، ولكني استسمح أخي عبدالرحمن في الرد على المشاركة هذا جواب الشق الثاني . لا تستطيع ان تُظهر الصورة في حقل نص ، لذا يجب عليك ان تعمل صورة ، وتستخدم بيانات حقل النص لإسم ومسار الصورة ، هكذا: . . . والسبب ان برنامجك كبير ، هو لأنك وضعت فيه صور مضمنه في النماذج ، والطريقة الصحيحة هو انك تغير اعدادات الصورة وتجعلها مرتبطة ، وتضعالصور في مجلد خارجي ، وتربط الصور على "حدث الحالي" للنموذج ، وتستخدم كود كما في التقرير اعلاه. جعفر

السلام عليكم ورحمة الله وبركاته . تجربتي في الموضوع ، وتأييدا لأخي عبدالرحمن: طُلب مني عمل برنامج في احد المؤسسات ، وكان عندهم برنامج اكسس حجمه 1.53 GB ، وهو عبارة عن جدول واحد فقط ، وكانوا يدخلون ملفات pdf الموظفين فيه ، مع انه لم يصل الى الحد الاقصى للأكسس وهو 2 GB ، إلا انه توقف عن تسجيل اي سجلات جديدة ، وحتى فتح الجدول اصبح بطيء ، وكذلك التنقل بين السجلات !! وعندما اخرجت الملفات الى مجلد خارجي (نفس نصيحة أخي عبدالرحمن) ، نزل حجم الملف الى 5-10 MB !! جعفر

العفو أخي bakoraus ، ومافي داعي للإعتذار ، ولكن التخطيط السليم سيسهل عملك ، صدقني جعفر