jjafferr

أحي أبومصطفى انا قلت لك من اول مشاركة في هذا الموضوع ، ومن اول سطر بعد السلام: جعفر

وعليكم السلام اولا ، جزء الاختصار اللي على سطح المكتب ، واسم المستخدم اللي فيه ، وكلمة السر: 1. فهذا كله يعمل فقط اذا كنت تستعمل mdb ولا يعمل على accdb ، 2. ويعمل فقط اذا عندك ملف مجموعة العمل mdw . اذا كانت الشروط هذه متوفرة عندك ، رجاء اكتب لي المعلومات اللي وضعته في الاختصار . جعفر

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

تمام

نعم فهمك صح جرب ، انت مش خران حاجة جعفر

وعليكم السلام أبومصطفى اولا انا اعتذر عن المشاركة السابقة ، لم أقصد أضعها وجدت الحل ، وهو الغاء دور الاستعلام Q4 والاتغناء عنه بالمعادلة: Me.curbaldr = Me.dtotal2 فهذا ما يقوم به الاستعلام اصلا جعفر 333.فواتيراجلة.accdb.zip

هذه ليست رسالة خطأ ، وانما هذه الرسالة تطلب منك ادخال التاريخ ، انت اردت البيانات تكون بين تاريخين: . فالطلب يكون للتاريخ من ، والطلب الاخر هو للتاريخ الى. واذا ما اردتهم ، تستطيع ان تحذف معيار التاريخ من استعلامات التحديث. مثلا ، تعمل زر امر في النموذج ، وعلى حدث نقر الزر ، تطلب تشغيل الاستعلام الاول ، ثم الثاني ، ثم الثالث. جعفر

السلام عليكم أخي طارق الشئ الوحيد الذي لم اعمله هو ان اضع كلمة السر على النموذج ، حيث انك لم تذكر اسم النموذج الذي تريد ان تضع عليه كلمة السر!! وسؤال آخر ، ما دمت تستخدم ملف الحماية 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 جعفر