ابو جودي

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- الغاء عمل الشيفت

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

كل ذلك يرجع الفضل فيه الى الله سبحانه وتعالى اولا ثم لحضرتكم كل ذلك من جعبتكم استاذى الجليل ومعلمى المبجل لم افعل شئ سوى النقل عنكم جزاكم الله خيرا فكل ما وظفته فى المنتج هو نتاج عطائكم المستمر الذى لا يجف ولا ينضب

اتفضل انا اسف انا غلط فى الكود تم اعادة الرفع مرة اخرى 3 (1).accdb

الكتاب يستدل عليه من العنوان الاستاذ الحبيب استاذ @midomashakel اتفضل اولا الجداول -tblFixedData جدول البيانانت الرئيسية الثابتة -tblDataprocessing الجدول الذى سوف تتم معالجة البيانات فيه نقوم بتصميم النماذج حسب حاجتنا اليها اما نموذج مفرد او نموذج رئيسي ويهتوى على اخر فرعى لن يسبب عذا اى فارق المهم نقوم بعمل استعلام وهو المسئول عن اظهار البيانات التى تمت معملتها للتاريخ انا اسميت الاستعلام هنا DoneOnSpecificDate افتح الاستعلام وتأمل العلاقة بين الحقل الاول SectionTarget اى الهدف فى الجدول الخاص بمعالجة البيانات واضافتها ( البيانات النتغير) وتأمل رقم الدال على العلاقة كما تم وضع حقل التاريخ من نفس الجدول ولكن وضع معيار على حقل التاريخ والان الاستعلام الثانى اصلا هو بناء مصدر مربع التحرير والسرد ولكن فقط وضعته بالخارج فقط لترى التصميم qryComboBox هذا هو الاستعلام افتحه فى وضع الاستعلام وتأمل فى العلاقة بين الحقول بين الجدول الرئيسي جدول البيانات الثابتة وبين الاستعلام الذى تم انشاؤه وهنا طبعا لانه مصدر مربع السرد اخترنا منه SectionSource وهنا نقوم بكتابة الامر الاتى من هلال الدالة ااف الشرطية IIf(IsNull([SectionTarget]),0,1) والتى تعنى لو حقل فاضى فى التاريخ المحدد فى الاستعلام اعط القيمة 0 والا اعط القيمة 1 وطبعا وضهنا بالمعيار 0 اختفاء قيمة من مربع السرد لنفس التاريخ.accdb

هههههههههه استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr فعلا احبه فى الله ولله احس منه بالعطاء والجود والكرم بصراحة ولا اذكيه على الله تعالى اجده يبذل قصارى جهده فى مساعدة اخواننا بلا كلل ولا ملل وان دل ذلك ينم عن اصل طيب اسال الله تعالى ان يغفر لوالديه ويرحمهما رحمة تغنيهم بالله تعالى عمن سواه لما انشئوا شبلهم عليه من العطاء بلا حساب واسال الله تعالى ان يجعله من البررة الكرام بهم

مبروك استاذ @مسفر والله تستحق اللقب اسال الله تعالى ان تكون عونا لكل محتاج وان يكتب لك فى موازين اعمالكم ان شاء الله

انتظرمى قليلا ان شاء الله سوف اجيئك بفكرة ولا اروع اصلى واعود بعد قليل بامر الله

ولماذا الموبايل الافضل الرقم القومى لان مثلا انا مندوب واسمى محمد اليوم اتيت اليكم برقم 0101111111111 وبهد فترة جئت برقم اخر لاى سبب ما اتخنقت من الشركة المقدمة لخدمة الاتصال فجئت برقم اخر من شركة اخرى برقم جديد