jjafferr

السلام عليكم 🙂 لما تعمل الماكرو/ المضمن ، يستطيع الاكسس انه يحوله الى كود ، بأحد هذه الازرار في الدوائر الحمراء: . جعفر

وعليكم السلام 🙂 حيالله اخوي محمد 🙂 في النموذج/التقرير المستمر ، لا يمكن التفريق بين الحقول إلا عن طريق التنسيق الشرطي ، وعليه ، في الحاله اللي تريدها ، تقدر تخلي لون الخط في حقل "حاله" لونه ابيض ، فلا تستطيع ان ترى شيء ، عند طباعة التقرير على ورق ابيض🙂 ولكن لا تستطيع ان تجعل حقل اطول/اعرض من الاخر !! وتستطيع كذلك استعمال iif ، بحيث في الحاله اللي تريدها ، يجعل حقل "حاله" فارغ : Status1: iif(me.Namee="AA" or me.Namee="AB","",[status]) سواء في استعلام التقرير ، او في التقرير نفسه 🙂 جعفر

وعليكم السلام 🙂 اليك هذه الروابط ، وبعضها فيها مثال للتنزيل ، ومهم ان تعرف ان هناك اكثر من طريقة لعمل القائمة ، وفي طرق الاكسس 2003 فما دون ، تختلف عن الاكسس 2007 فما فوق 🙂 https://www.officena.net/ib/topic/39969-كيف-تعطل-زر-الفأرة-الأيمن-لحماية-الفورم-ووضع-فورم-معين-يفتح-مع-الاكسسعنوان-معدل/ http://arabteam2000-forum.com/index.php?/topic/134128-إجراء-حدث-او-فتح-قائمة-منسدلة-عن-طريق-click-الأيمن-للماوس/ https://www.databasejournal.com/features/msaccess/article.php/3790286/Setting-Up-Right-Click-Menus-for-Access-2007.htm https://www.utteraccess.com/wiki/Access_Custom_Right-click_Menu https://support.office.com/en-ie/article/create-custom-menus-and-shortcut-menus-by-using-macros-5bd538ff-19c4-4dfe-9540-3309aebf8a1a https://docs.microsoft.com/en-us/office/vba/access/concepts/miscellaneous/create-a-shortcut-menu-for-a-form-form-control-or-report والبحث بهذه الكلمات في جوجل تعطيك روابط كثيرة: ms access RightClick menu جعفر

🙂

بدون تعليق على بقية النقاط ولكني من المعارضين وبشدة إلغاء القائمة المختصرة ، لأن فيها ميزات وسرعة في الاداء ، اللي المبرمج ما يقدر يبرمج مثلها. واعتقد ان ابا جودي خانه التعبير ، فقصده هو: يمكنك عمل عدة قوائم مختصرة في البرنامج الواحد ، مثلا: 1. قائمة مختصرة ، فيها الفرز والتصفية ، ونسخ ولصق ، 2. قائمة مختصرة ، فيها الفرز ، 3. قائمة مختصرة للتقرير ، فيها Zoom 100 ، 150 ، 200 ، طباعة التقرير ، اغلاق التقرير ، 4. .... يعني ، هذه القوائم مافيها الدخول على وضع التصميم 🙂 ومنها ، تجعل لكل نموذج/تقرير قائمته الخاصة ، او قائمة للكل 🙂 جعفر

والسبب ، انك تحاول ان تقنع الزبون بطريقة غير اللي طلبها ، فلازم تعطية اكثر كمية ممكنه من الاغراءات 🙂 وشيء آخر كذلك: اضف مجموعة سجلات، ثم تعال الى التقرير وشوف شكله في وضع الطباعة Print Preview ، هنا بتشوف الصفحة وهي مليانه ، وبتحتاج تعمل تضبيط علشان عدد معين من السجلات يضبط داخل هذه الصفحة ، فلازم تلعب في وضع الحقول ككتله واحدة ، ووتزيد المسافة اللي فوقها واللي تحتها ، مثلا 🙂 جعفر

ممتاز 🙂 بس نصيحتي: 1. اعمل الوان وتظليل ، وخذ اللي انا عملته كمثال ، 2. احذف المسافات العمودية بين الحقول ، كما عملته انا. جعفر

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

السلام عليكم اخوي أزهر 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف ، ويُغلق 🙂 جعفر

وعليكم السلام 🙂 الإخوة الخبراء 🙂 سبقوني 🙂 وكل الطرق التي اقترحوها تلبي الغرض ، مادام الزبون راضي 🙂 وهذه طريقة اخرى انا استعملها . انا استعملت 3 حقول على بعض ، ولكني شايف انه يجب استعمال 4 ، بحيث يصبح مكان اكبر للأسماء 🙂 جعفر

مبروك علينا ترقيتك اخوي مسفر ، فأنت تستاهل 🙂 وشكرا لك اخوي ابوجودي ، قمت بالواجب بهذه الزفّه 🙂 جعفر

السلام عليكم 🙂 مجموعة ملاحظات لوسمحتوا 🙂 ورجاء فكروا ان الجدول به 20 الف سجل فما فوق 🙂 1. لسرعة عمل الاستعلام ، فيجب ان يكون الحقل الذي به معيار ، مفهرس ، وإلا فالاستعلام سيكون بطيء ، وحقل المحسوب لا يمكن عمل فهرسه له ، 2. بالنسبة الى طريقة عمل تنسيق التاريخ ، والتي يجب ان لا تتغير بتغير اعدادات كمبيوتر العميل ، هذه الطريقة مضمونه بأنها تعمل على جميع الاعدادات: . 3. الامر DCount بطيء بطبيعته ، لذلك يمكنك ان تعمل استعلام آخر للـ Table2 Query ، يكون استعلام مجاميع ، ينفذ المطلوب بدل امر Dcount ، ثم تربط هذا الاستعلام بالاستعلام الذي انت فيه ، وتأذخذ القيمة المطلوبة من استعلام المجاميع (نعم تصير ، وخذ وقتك ، فأحد اصدقائي ارسل لي برنامجه اللي فيه حوالي 100 الف سجل ، والاستعلام كان يحتاج وقت تناول وجبة العشاء !! ، وعملت التعديل اللي اخبرتك ، واصبح الوقت جدا قليل 🙂 ) 4. الامر DCount بطيء بطبيعته ، اذا كلً ولابد ، فيمكنك جعله اسرع هكذا : بدل =DCount("[ID]";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") استعمل =DCount("*";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") جعفر

وعليكم السلام 🙂 طريقتين يجون في بالي: 1. بدل ان يكون السجل سطر واحد ، اعمله سطرين ، بحيت يكون حقلين او حتى 3 حقول فوق بعضها ، ونجاح هذه الفكرة يعتمد على ترتيب الحقول بطريقة منطقية ، وبتنسيق الجميل 🙂 2. نفس الرقم 1 ، ولكن ، تجعل الحقول الصغيرة فوق بعضعها ، وتمدد الحقول الاطول بحيث يأخذ مكان حقلين بالطول ، 3. تصدر البيانات الى الاكسل ، وتعمل لها تضبيط لطباعتها في صفحة واحجة ، وذنبه على جنبه ، فهو وحظه كم يصير حجم الخط !! نعم قلت طريقتين ، لأن الطريقة الثالثه بس هيك 🙂 جعفر

وعليكم السلام 🙂 في الوقت اللي نقول فيه ان الاكسس ممكن يعمل كل شيء (تقريبا) ، يجينا مثل هذا السؤال ، ونقف محتارين في الجواب !! الكلام عن انواع معينه من المرفقات فقط ، مثل (PDF او Word او صورة او Excel او .. ) المشكلة: لما تطبع اي شيء ، فالامر بين امر الطباعة و الطابعة ، يعني الاكسس يعطي الامر فقط ، الحل: 1. اما ان نضع الملف في تقرير في الاكسس ، ومنه نقدر ان نضع حقل نص فوقه ، فيه البيانات المطلوبة ، وهذا ممكن مع بعض الصيغ اعلاه: الصور وملفات PDF يمكن عرضها مباشرة في الاكسس ، وهذه طريقة : . ملفات الورد ، فقد ابدع اخونا @ابوخليل بعرض مجموعة امثلة هنا ، وفي اعتقادي بأن الاكسل ممكن فتحة باحد هذه الطرق كذلك . 2. ان ندرج هذا الملف في ملف HTML (برمجيا من الاكسس) ، وفي هذا الملف ممكن ان نضيف اي معلومة اضافية ، والبارع في هذا المجال هو اخونا @أبو إبراهيم الغامدي وطبعا اخونا @رمهان 🙂 3. ان نحصل على برنامج يطبع الى طابعة PDF افتراضية (virtual printer) ، وتكون هذه الميزة موجودة فيه ، وطبعا لازم ان هذه الطابعة يمكن التحكم فيها عن طريق Commandline ، 4. هناك شيء اسمه Water mark ، وعادة موجود في جميع الطابعات ، ولابد ان هناك طابعات تمكنك من تغيير الكلمه الى الكلمة التي تريدها ، ولكن قد لا تستطيع تغيير هذه الكلمة برمجيا ، وتظل ثابته . واكيد اكون ناسي طرق اخرى جعفر

مو انا ما اعرف كم نوع من انواع الباركودات بتعمل لكل موظف فإذا اردت ، تقدر تستعمل رقم لكل باركود ، مثل ما انت قلت ، هكذا: الاول Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\1_" & Me.ID & Chr(34) والثاني Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\2_" & Me.ID & Chr(34) جعفر

وعليكم السلام 🙂 هذا سطر حفظ الملف (انا اعطيت صورة كل نوع من الباركود اسم مختلف) ، واسم الصورة هنا QR_code.png : Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) اذا اردت حفظ الصورة برقم ID الموظف ، سيكون الكود: Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & Me.ID & Chr(34) بس مثل ما انا قلت في البداية ، واقعا ما تحتاج الى صورة لكل موظف ، لأنك تحتاج تطبع الهوية والسلام ، فمافي داعي لحفظ الصورة ، وخصوصا اذا عملت تغيير في البيانات ، فالصورة القديمة لن تنفعك ، بينما طباعة هوية جديدة تعطيك جميع البيانات الجديدة 🙂 جعفر

اخي amrdipo2003 رجاء عمل هذا التغيير على السطر الذي انت عليه: بدل If Len(BE_Path & "") = 0 Then استخدم If Len(BE_or_FE & "") = 0 Then وقد تم رفع البرنامج من جديد وفيه هذا التعديل 🙂 وشكرا لك اخي سلمان 🙂 جعفر

شكرا على التلوين الجميل 🙂 في معظم اعمالي ، اقوم بالعمل الاساسي ، واترك مجال للآخرين ان يغيروا في البرنامج ، ولكني اعطيهم طريقة العمل 🙂 وبرامجي اعملها بطريقة تكون سهل التعديل والاضافة عليها ، وسهولة الوصول الى الكود المطلوب 🙂 وفي هذا الموضوع ، ومن اول مشاركة وضعت لكم الملفات المطلوبة لتقوموا بعمل التغييرات المطلوبة : جعفر

شكرا ابو جودي 🙂

نعم ، لأنه لا يمكن معاينة اكثر من تقرير في نفس الوقت ، لهذا السبب الكود اللي اعطيتك يطبع مباشرة جعفر

وعليكم السلام 🙂 بالمعلومات اللي عندنا ، تفضل : dim rst as dao.recordset dim RC as integer dim i as integer set rst=me.recordsetclone rst.movelast:rst.movefirst:RC=rst.recordcount docmd.gotorecord,,acfirst for i=1 to RC if me.YesNoField =-1 then docmd.openreport me.ReportName end if docmd.gotorecord,,acnext next i rst.close: set rst=nothing جعفر

للاسف ، البرنامج معطوب ، فإضطررت الى استعمال احد برامج استرجاع البيانات ، وكانت النتيجة استرجاع الجداول والاستعلامات فقط. اما بقية الكائنات ، فتستطيع استيرادها من احد نسخ الاحتياط (عندك نسخ احتياط ، صح 🙂 ) جعفر 1059.Handicapés_Recovered.accdb.zip

السلام عليكم 🙂 كنت بين المطارات ، وشفت باركود خاص على تذاكر دخول الطائرة ، فقلت في نفسي ، هل ممكن نعمله !! اتضح انه من نوع PDF417 ، واذا ببرنامجنا يقوم بعمله كذلك 🙂 واضفتها على البرنامج في اول مشاركة 🙂 جعفر

وعليكم السلام 🙂 تقدر تستعمل احد برامج الضغط مثل winzip او winrar وترفقه ، وقبل ذلك ، جرب البرنامج هذا: جعفر

وعليكم السلام 🙂 الشباب هنا عملوا اكثر من طريقة جعفر