ابو جودي

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 وبهد فترة جئت برقم اخر لاى سبب ما اتخنقت من الشركة المقدمة لخدمة الاتصال فجئت برقم اخر من شركة اخرى برقم جديد

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

انا فعلا جربت والله ولم تحدث المشكلة هناك فكرة اخرى ان كانت المشكلة لا تزال قائمة عندك على الرغم من ان صاحب المشاركة لم يفيد بوجودها الكود الموجود على زر الامر حفظ ممكن نضع بعد Else قاعدة if مع DCount لجدول الغياب برقم الطالب طبقا لمربع السرد والتاريخ بالنموذج وان كانت النتيجة 0 يستكمل باقى الكود والى exit sub اما بخصوص الاختلاف فى الرأى ان شاء هذا شئ غير مطروح بالمرة بيننا فى التعامل من الاساس كلنا اخوة وانا بالأصالة عن نفسي وبالنيابة عن كل اخوانى واساتذتى الافاضل الاجلاء يسعدنى كما اتيقن من صميم قلبى انه يسعدهم كذلك ان ندخل السرور فى قلوب احبائنا وما بيننا لا يتوقف على اى نوع من المصلحة انما هو حب فى الله ولله

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

النقطة الاولى والتى تخص المشكلة بكتابة اسم بالخطأ تم تسجيله من قبل تم بفضل الله تعالى التخلص منها بالشكل الاتى اضافة كود لمربع السرد فى حدث غير موجود بالقائمة (NotInList) On Error Resume Next Response = False combostudentname = Empty MsgBox "تم تسجيل الغياب لهذا الاسم من قبل او انك كتب اسم غير صحيح" السطر الاول On Error Resume Next الاستمرار عند وجود اى خطأ السطر التانى Response = False اى عدم الاستجابة السطر الثالث combostudentname = Empty تفريغ مربع السرد من القيمة التى يحتويها السطر الثالث رساله تفيد انه اما تم تسجيل الاسم من قبل لنفس التاريخ او ان الاسم اصلا غير صحيح ولم يتم ادراجه

اولا بالنسبة الى هذه المشكلة لم تعد موجوده اصلا وانتهت مع المرفق الاخيـــــــــــر https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=159809 بخصوص الشرح اسف جدا لم انتبه الا الان لطلب حضرتك جارى اعداد الشرح ابشر