اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

jjafferr

أوفيسنا
  • Posts

    9977
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    406

كل منشورات العضو jjafferr

  1. يعني النصف العلوي لازم يكون فاضي في الصفحة الثانية والثالثة ووو ؟ جعفر
  2. تفضل ، وبجميع الطلبات اعلاه 🙂 عملت استعلام qry_tblPME للتقرير الفرعي في الاعلى ، بحيث يأخذ 11 سجل من الجدول tblPME ، اما التسلسل ، فيا رجال ، اخفيناه بحيلة من اعدادت الحقل نفسه 🙂 جعفر 1135.2.Consumable Material Check List (40).accdb.zip
  3. اداة vtools تغير هذه المسميات 🙂
  4. شوف نتائج التقرير في الاسفل ، وبعدين نرجع نضبط اللي في الاعلى.
  5. وعليكم السلام 🙂 انا طريقتي تختلف عن طريقة اخي الوزير 🙂 الشرح بعد قليل ان شاء الله 🙂 رجاء جرب واخبرنا النتيجة 🙂 انا لم استعمل كود Details_Print ، ولكني غيرت اسمه الى Details_Print2 وتركت هناك ، فقد تحتاج اليه لسبب ما ، فانا لا اعرف جميع امور التقرير 🙂 جعفر 1135.1.Consumable Material Check List (40).accdb.zip
  6. هل اخترت هذه الاختيارات جعفر
  7. يا جماعة ، الآن خلونا نفكر في النص المليان ، ونبدع بعدة طرق للحماية ، ونريد مشاركة حسنين ايضا بطرقه الاخرى ، وبعدها خير ، الله بيسهل ان شاء الله 🙂 يعني ، نريد الخروج بمجموعة طرق ، يالله الهمة يا شباب ، فمثل هذا الموضوع نادر ، وشاء الله ان تجتمعوا بإبداعاتكم 🙂 جعفر
  8. وعليكم السلام 🙂 انا وضعت الجواب في احد المشاركات اعلاه : جعفر
  9. وعليكم السلام 🙂 اختي ، هذا الموضوع فيه طلبك ، رجاء قراءة الموضوع والكود بالتفصيل : جعفر
  10. السلام عليكم 🙂 كلنا كنا ننظر للكأس النصف مليان (عمل الحماية) ، وانت ماشاءالله عليك نظرت للكأس النصف فارغ (كسر الحماية) 🙂 شكرا على تذكيرك لنا ، انه لا يوجد شيء اسمه حماية رقمية 🙂 ولكن ، نريد منك ، وبهدوء ، ان ترى معنا الكأس نصف مليانه ، وتدلوا بدلوك مع بقية الخبراء والمحترفين في هذا الموضوع 🙂 جعفر
  11. الحمدلله ، واخبرنا عن فعالية الاداة 🙂 جعفر
  12. رجاء عمل صورة للخطأ ، وارفاقه هنا . كذلك يمكنك تجربة التالي: في كود النماذج (وليس الوحدة النمطية) ، استعمل Shell بدلا عن Shell_n_Wait في: Shell_n_Wait Command_Line, vbHide اما قارئ بالباركود ، فيجب ان تبحث لماذا لا يعمل مع unicode او utf8 ، جعفر
  13. وهذه طريقة اخرى 🙂 مثل سابقتها ، ولكن بطريقة تختلف قليلا ، وبدون Recordset للانتقال للسجل التالي 🙂 جعفر 1137.3.مثال.accdb.zip قصدك الاستاذ خالد 🙂
  14. هذه الطريقة اللي كنت اتكلم عنها 🙂 الافضل والاسهل 🙂 جعفر 1137.2.مثال.accdb.zip
  15. برنامج التنصيب ، انقر عليه بالفأرة اليمين ، ثم اختر التنصيب كمسؤول : جعفر
  16. تفضل 🙂 التعديل الآن شمل النموذج بالكامل تقريبا ، فرجاء ان تنظر في كل جزئية من الكود 🙂 ولكن يا ابو زاهر ، ايش لك في البحر واهواله ، و رزق الله على السيف 🙂 هذه الطريقة انت تعرفها حق المعرفة ، ومافي اسهل منها ، بينما الـ Recordset بحر بحد ذاته ، جدا سهل للي يعرفه 🙂 جعفر 1137.1.مثال.accdb.zip
  17. وعليكم السلام 🙂 جرب هذا المرفق ، واخبرنا بالنتيجة لوسمحت 🙂 ولا تنسى ان تضع هذا المرفق في نفس المجلد اللي فيه البرنامج الموجود في مشاركتي الاولى 🙂 جعفر QR_2.zip
  18. وعليكم السلام 🙂 عليك تنصيبها كمسؤول 🙂 انا اعطيك افضل ما يمكنني التفكير فيه ، اذا انا كنت مكانك ، فما ممكن اعطي لنفسي الا الافضل 🙂 خذ من وقتك شوي ، وصدقني ما بتندم 🙂 شكرا لأخوي ابو الكرم على توفير رابط فيه شرح لإستعمال الاداة ، واستسمحك عذرا ، فالبحث اللي عملته البارحة (وتأكيدا قبل شوي) داخل المنتدى لم يعطني رابطك 🙂 ولكني انصح بتنزيل آخر تحديث من الموقع ، ثم اتبع خطوات ابو الكرم 🙂 صحيح اليد الواحدة ما تصفق ، شكرا اخوي الوزير على المشاركة ❤️ جعفر جعفر
  19. وعليكم السلام 🙂 رجاء توضح شوية زيادة ، واعخبرني على واقع حال البيرنامج و بياناته : ايش ادخل في البحث (عطني مثل) ، ثم ايش لازم يطلع ، ثم .... ما اريد كلام ، اريد بيانات من البرنامج لوسمحت 🙂 جعفر
  20. وعليكم السلام 🙂 هذه البرامج اللي اعرفها: وهذه واحدة منهم ، مجانيه: http://www.skrol29.com/us/vtools.php وهنا شرحه بالعربي: جعفر والجميل في البرنامج ، للشباب اللي يريد يتعلم كيفية عمل هذه البرامج ، انها مفتوحة المصدر ، يعني تقدر تشوف الكود ، وتتعلمه 🙂
  21. بس اسهل واسرع لك اذا عملت استعلام تحديث 🙂 جعفر هذه الطريقة تأخرك كثيرا : If RsW!id = RsM!ItId Then تصور اذا عندك 10,000 او 20,000 سجل او اكثر ، فانت تطلب من الكود ان يبحث فيهم سجل بسجل ، ولكل سجلات الجدول المصدر !! جعفر
  22. وتعديل على الكود علشان يعمل اسرع 🙂 Set DB = CurrentDb Set RsW = DB.OpenRecordset("item") ' جدول الوجهة Set RsM = DB.OpenRecordset("tmpadvb") 'جدول المصدر Do Until RsM.EOF RsW.FirstFirst "id=" & RsM!ItId RsW.Edit RsW!LastDate = RsM!ExDate RsW!Cost = RsM!Price RsW.Update if RsW.nomatch then 'اذا مافي هذا السجل ، شو تريد عمله end if RsM.MoveNext Loop RsM.Close: set RsM=nothing RsW.Close: set RsW=nothing Set DB = Nothing جعفر
  23. وعليكم السلام 🙂 BOF معناه Begining of File ، اي بداية الملف ، وفي الواقع مافي سجل قبل BOF 🙂 يجب ان تستعمل EOF 🙂 جعفر
×
×
  • اضف...

Important Information