Hawiii

@beLaL 100 أليس من اللباقة أن تشكرني على جهدي (الذي لم يكن في محله للأسف) وإن لم يعجبك حلي؟!!

عملت لك مصدر للتقرير وهو عبارة عن استعلام باسم Query1 أحسن لك من هالمعادلات وهالعركة مع التفاصيل. اليومية_هاوي.accdb

لقد طلب قارئ باركود عن الطريق النت لعمل الإختبارات بشكل كاف وواف ، وسأعود لكم بالنتائج إن شاء الله تعالى.

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

ربما ، ولكني فكرت فيها من ناحية أخرى ، ملاحظتي عبارة عن تساؤل : ماذا لو دعت الحاجة لإعادة تشغيل الكمبيوتر وإعادة تشغيل البرنامج مع عدم وجود/حضور تقنية المعلومات؟.

معلومة لمن يريد أن يساهم في التجارب والحل: الإدخال عن القارئ سيتم الإدخال خانة/خانة ثم ينتهي بمفتاح الإدخال/Enter ، وكأنما أدخلت يدويا ولكن بسرعة عالية جدا. والسبيل الوحيد "لقفش" الإدخال اليدوي أي لوحة المفاتيح هو قياس سرعة الإدخال. عادة القارئ يحتاج إلى بعض الضبط فهو يأتي بخيار استخدام الإنتر أو بدون وهناك خيارات أخرى كذلك لابد من فهمها بقراءة الكتيب.

الكمبيوتر لا يفرق بين لوحة المفاتيح والقارئ .. لذا كل الإدخالات لن تتم حتى التي عن طريق القارئ.

هذه الشفرة من أبي هادي مع تصرف: يوجد في الشفرة رقم 4 ولم أفهمه ، تفسيري هو طول رقم الموظف 3 + حرف "-" أو "+" .. ربما. في حالة تجاربكم إذا كان طول رقم الموظف 3 فاجعلوا الرقم 3 وإذا أخفق الحل اجعلوا الرقم طوله الحقيقي +1 ، (غير متأكد). Option Compare Database Dim InTime As Single Const Gap As Double = 0.02 Const BadgeNoLen = 3 'Hawiii Private Sub txtBadgeNo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Timer - InTime > Gap Then Me.txtBadgeNo.Tag = "" 'Me.txtBadgeNo.Tag = Right(Me.txtBadgeNo.Tag, 4) Me.txtBadgeNo.Tag = Right(Me.txtBadgeNo.Tag, BadgeNoLen) 'Hawiii Me.txtBadgeNo.Text = Me.txtBadgeNo.Tag Me.txtBadgeNo.Tag = "" End If End Sub Private Sub txtBadgeNo_KeyPress(KeyAscii As Integer) Select Case Chr(KeyAscii) Case "0" To "9" If Me.txtBadgeNo.Tag = "" Then InTime = Timer If Timer - InTime <= Gap Then Me.txtBadgeNo.Tag = Me.txtBadgeNo.Tag & Chr(KeyAscii) InTime = Timer Else 'Me.txtBadgeNo.Tag = Chr(KeyAscii) Me.txtBadgeNo.Tag = "" 'Hawiii InTime = Timer 'MsgBox "لا يقبل الإدخال عن طريق لوحة المفاتيح!!" 'Hawiii End If Case Else Me.txtBadgeNo.Tag = "" End Select End Sub ما عندي قارئ لأجرب.

موضوع قديم قد يثري موضوعك كيف يتم تركيب البار كود Barcode

تم تبديل المرفق في المشاركة الأولى.

العين ما تعلى على الحاجب أخي العزيز

جرب محاولتي ، نقر مزدوج على حقول أي سجل سيفتح لك نموذج آخر بالتفاصيل. تم تبديل المرفق حيث كان يخفق في الحساب حينما يكون شهر النهاية هو نفسه شهر البداية. VacationDetails_Hawiii_02.accdb

أخي إذا لا تستطيع الرد على سؤالي البسيط فأنا أعتذر لا أستطيع المواصلة معك. أنا لم أطلب تشرح لي المشكلة ، المشكلة أشبعت شرحا ، أكتب لنا لما هذا الجدول ، إذا جدول موظفين أنت لا تستطيع أن تضيف الموظف أكثر من مرة ، فلما البحث عنه لنفس الجدول؟!! أشرح مطلبك من الجدول ومن فكرة المثال وليس مشاكل التحكم في النموذج هذه المشاكل اتركها في الأخير ، خلينا نفهم عليك ماذا تريد من هالجدول وإدخالته.

سأعيد أسئلتي: - لما هذا الجدول في قاعدة بياناتك؟ إذا هو جدول لتسجيل الموظفين فأنت مطلوب منك إدخال التاريخ يدويا ولا تحتاج للبحث عنه. - إنت ستحتاج الحصول على التاريخ لو أردت إضافته في جدول آخر ، فعليه صمم جدولك الآخر ثم ارفع مثالك مرة أخرى وأبشر بسعدك ولا تنسى تشرح المطلوب باستفاضة.

ويمكن كتابتها كالتالي: Forms("form1_1").n13 = myRound(Me.MAG * 0.0025)