jjafferr

السلام عليكم أخي طارق الشئ الوحيد الذي لم اعمله هو ان اضع كلمة السر على النموذج ، حيث انك لم تذكر اسم النموذج الذي تريد ان تضع عليه كلمة السر!! وسؤال آخر ، ما دمت تستخدم ملف الحماية mdw ، فما الداعي لعمل نموذج خاص للإسم المستخدم وكلمة السر؟ فإذا كنت تريد ان تستخدم اسم المستخدم لأغراض التحكم في الصلاحيات ، فتستطيع عن طريق User and Group Permissions ان تفعل ذلك ، واذا اردت اسم المستخدم لأي سبب كان ، فهو موجود في CurrentUser اليك طريقة عمل كلمة السر لجزء الجداول: افتح برنامج الاكسس (ليس برنامجك ، ولكن الاكسس شخصيا ) ، ثم . . وكلمة السر التي استعملتها هي jj . وعندما تغلق البرنامج وتفتحه مرة اخرى: . اما كيفية وما هي الكائنات المطلوب استيرادها من FE اللي انا عملته ، فاليك الخطوات: افتح برنامجك FE ، ثم: . النموذج هذا ، حتى نستخرج منه طريقة عمل كلمة سر فتح النموذج ، ثم نستطيع حذفه من البرنامج . الماكرو AutoExec معناه انه اول شئ يشتغل لما تفتح برنامجك ، ولا داعي للذهاب الى اعدادات البرنامج واختيار النموذج الاساسي ليفحه البرنامج عند تشغيله ، وسنتكلم لاحقا عن هذا الماكرو . الوحدة النمطية basJStreetAccessRelinker تقوم بربط FE مع BE كلما لم يجد الـ FE جداول BE في مكانها ، وستلاحظ عند فتحك FE لأول مرة ، انه يفتح لك نافذة ويطلب مكان BE ، اما الوحدة النمطية m_Turn_Off فقد عملتها لجعل البرنامج يشغل ويملئ الشاشة ، ولا يعطي المستخدمين ادوات التصميم: . وقبل استعمال البرنامج ، يجب تعديل الماكرو AutoExec حتى يقوم بالخطوات التي نريدها . نغلق البرنامج ، ثم نفتحه ، فيطلب منا مكان BE (اول مرة فقط) . ولأن BE محمي ، فعند الربط بين FE و BE لأول مرة ، فيجب ادخال كلمة السر (وكلمة السر jj ، وستدخلها مرة واحدة فقط ، ولن يطلبها منك البرنامج مرة اخرى) . الى هنا وانتهينا من ربط FE و BE ، ولكن هناك بعض الامور الاخرى التي تستطيع عملها لتسهيل عملك ، او لزيادة الامان: يمكنك ان تستخدم الاختصار (عادة تضعه على سطح المكتب) ، وتضع فيه اسم المستخدم وكلمة السر ، وعند النقر عليه مرتين ، لا يسألك عن كلمة السر ، وطبعا هذا ممكن ان تستخدمه انت كمصمم ، ولا تسمح للمستخدمين ان يدخلوا بياناتهم: . وهذه هي المعلومة كاملة (طبعا لازم تغيرها حسب بياناتك وبيانات كمبيوترك) ، وطبعا يستطيع اي شخص يفهم الاكسس ان يدخل الى هنا ومعرفة اسم المستخد وكلمة السر ، لذا انتبه لها ، او لا تستعملها اصلا: . هناك شئ آخر استعمله انا في برامجي ، وهو نوع من الحماية ايضا ، وهو انك لا تسمح للبرنامج ان يفتح اذ لم يُفتح عن طريق اختصار المكتب ، فالبرنامج يعطي رسالة بانك غير مخول ، ثم يغلق البرنامج ، هذا مفيد اذا احد المستخدمين اخذ نسخة من البرنامج ، فلن يشتغل له في البيت (طبعا كلامنا كله ليس عن الشخص الخبير بالاكسس) ولعمل هذا ، نضع الكود على اول نموذج يتم فتحه (وهو نفس المكان الذي نضع عليه كلمة سر النموذج): . والكود هو: . جعفر 332.tito.zip

. وانا كذلك وهذا نادرا ما افعله للرد على المسائل جعفر

. الآن استعمل الاستعلام 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 وهو الاقصر ، والعرض عندك اكبر من حجم الصفحة ، فجرب (للتجربه فقط) ان تزحف جميع الحقول وتضيق عرض التقرير ، مع القيام بملاحظة الاخ عبدالرحمن ، وسترى ان صفحة تُطبع تمام ان شاء الله او كذلك للتجربة ، اطبع الصفحة بالعرض بدل الطول. جعفر

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

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