ابو جودي

هل قمت بزيارة الرابط بالمشاركة الاخيرة لى والتى تسبق مشاركتك فورا وهو لميكروسوفت ويشرح التنسيق تفصيلا ؟

https://support.office.com/ar-sa/article/الخاصية-تنسيق-نوعي-البيانات-رقم-و-عملة-ca77795e-b40d-4abb-b42f-daa0bb709620 اتفضل بالتفصيل من مايكروسوفت

انظر الى التنسيق الـ Format New Microsoft Access قاعدة بيانات (3) (1).accdb

العفو منكم استاذى الجليل ومعلمى القدير لاحظت ذلك ولو كنت املك ان احذف موضوعى لفعلت انا اسف جدا وان الدمج أخذ مسمى موضوعكم استاذى هذا هو الاوجب والاصح

اعتذر استاذى الجليل

مبروك انضمامك لعائلة الخبراء اسأل الله لك التوفيق

اين المرفق

clndtail غير موجود اصلا ارجوك تأكد من المرفق

QR-Code_Generator_v2.zip كنت على عجلة من امرى ولم انتبه للمرفق اثناء الرفع وقمت برفع مرفق خاطئ من فضلك قم بالتحميل المرفق مرة أخرى تم التعديل جرب يا استاذ @الوسيط واخبرنى بالنتيجة ان واجهت اى مشاكل ولا تنسي ان تحدد هذه المشاكل التى قد تواجهك من فضلك QR-Code_Generator_v2.zip

تعلمت من اساتذتنا العظماء ان فهم السؤال نصف الاجابة

اصبح يعمل التعديل لكل على حسب الـ ID التعديل باضافة تقرير للكل تم تعديل المرفق QR-Code Generator v2.zip

https://www.officena.net/ib/topic/90906-كارنيهات-باستخدام-باركود-ماتركس-qr-code/?do=findComment&comment=574771

نعم ممكن

https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa243025(v=vs.60) الموقع يوضح ارقام الازرار والمرفق كذلك Key Code Constants.mdb

Private Sub Form_Load() Me.KeyPreview = True 'لابد من هذا السطر ليعمل الكود القادم او وضع TRUE علي KeyPreview من الخائص End Sub ' F1 >>---> 112 ' F2 >>---> 113 ' F3 >>---> 114 ' F4 >>---> 115 ' F5 >>---> 116 ' F6 >>---> 117 ' F7 >>---> 118 ' F8 >>---> 119 ' F9 >>---> 120 ' F10 >>---> 121 ' F11 >>---> 122 ' F12 >>---> 123 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك 'استبدل هذا السطر بالكود الذى تريده KeyCode = 0 Exit Sub End If End Sub

Private Sub Form_Load() Me.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then DoCmd.OpenReport "rptName", acViewPreview KeyCode = 0 Exit Sub End If End Sub 112=F1 F7=118 F12=123

تفضل ...... برنامج_القرأن_الكريم.zip

هات الرابط لنرى

اضف هذا السطر DoCmd.OpenForm "L"

ممكن المرفق لو تكرمت بهذه الطريقة تم سد كل الثغرات 1- عدم وضع اى تاريخ اقدم من تاريخ اخر اجازة عموما TEST V.0.1.accdb

فعلا عند حضرتك مليون حق استاذى الجليل ومعلمى القدير ان كان هذا السطر بدون هذا الاسمايل ما سألت ولكن هذا بما انه يدل على عدك رضاكم لذا على استحياء اتمنى منكم التكرم بالتوضيح فمنكم نتعلم حتى كيف نفكر

اعتذر على التأخير انا اسف تم التحويل دبون اى مشاكل اذن المشكله بقاعدتك انت اعم ضغط واصلاح اولا ثم ادخل الى الاكواد ثم للوقوف على الخطأ الموجود بالاكواد عندك ويمنه من التحويل Admin Utilities (1).zip

اخفاء الجداول والكائنات امممممممم احكى لك حيله انا احب العمل بها ولكــــــــــــــن كما تفضل استاذنا المبجل الاستاذ @Barna مكن بالتحايل على المستخدم العادي ...... اكرر المستخدم العادي .... أما المحترف ..... ؟؟؟؟؟؟ 1- تبدأ اسماء النماذج والجداول و.................. جميع الكائنات بــ Usys 2- بمجرد الانتهاء من التصميم الفاء القائمة المختصرة للماوس 3- اخفاء الجداول بطرق لا يمكن اظهارها الا بأكواد مخصصة اى ان اظهار كائنات النظام او الكائنات المخفية لن يكون له تأثير على اظهارها 4- اخفاء شاشة الاكسس 5- الغاء عمل الشيفت

والله لا اتذكر ولكن ان قلت انت كذلك فأنت ادرى حالا منى لذلك رد الي بضاعتى لارى ما فيها