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 ما عندي قارئ لأجرب.

وافتراحك هذا غير موفق ولن أشرح لك .. بعدني معصب من ضياع ردي الأول.

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

حياك الله أخي @أبوخليل ، قرأت مشاركتك 3 أو 4 مرات ولم أفهم قصدك ، هل أنت عاتب وتلومني وإلا تمازحني بشكل عتاب؟، حتى أفهم قصدك بعدها أقدر أدردش معك 🙄

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

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

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

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

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

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

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

نعم صحيح ويمكنك التخلص من الأقوس المربعة فلا داعي لها هنا .. وربما بعد إزالتها ستضظر لتبديل علامة التعجب (!) بالنقطة (.) غير متأكد ولكن اللغة سوف تساعدك في حال وجود خطأ برمجي.

مو بكيفك 🙂 ، من الصعب أن تفرض شروطك وخصوصا إذا كانت طريقتك في المعالجات خاطئة. لو تشرح ماذا تريد بالضبط غير عملية الإنتقال ، لأن النموذج هو نموذج كما يبدو لإدخال موظفين جدد وليس نموذج لمعاملات الموظفين. فبالتالي أنت لا تحتاج هنا للبحث عن الموظف برقمه إلا إذا قصدك منع التكرار فيمكنك اللعب على في الجدول وخصائص الحقول والمفتاح. أو اشرح بالضبط مطلبك حتى نستطيع إيجاد لك حلا نموذجيا. لقد عملت مزيدا من التحكم في استخدام المفاتيح ويمكنك نسخه على القديم: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim Crl As Control On Error Resume Next Select Case KeyCode Case vbKeyLeft KeyCode = vbKeyRight Case vbKeyRight KeyCode = vbKeyLeft Case vbKeyUp If Me.CurrentRecord = 1 Then KeyCode = 0 Exit Sub End If DoCmd.GoToRecord , , acPrevious Case vbKeyDown If Me.CurrentRecord = Me.Recordset.RecordCount Then KeyCode = 0 Set Crl = Me.ActiveControl DoCmd.GoToRecord , , acNewRec Crl.SetFocus ElseIf Me.NewRecord Then KeyCode = 0 Else DoCmd.GoToRecord , , acNext End If End Select End Sub

ما فهمت ما هو المفتاح العلوي عموما عملت التعديلات التالية: - اقتصار استخدام سهمي الكيبورد فوق وتحت هو للتنقل بين السجلات السابقة والتالية. - النقر المزدوج على رقم الموظف ينقلك لسجل جديد. - عندما يكون المؤشر على سجل جديد تحصل على رقم جديد للموظف ويقف المؤشر على حقل اسم الموظف. - قفل/تأمين حقل رقم الموظف بحيث لا يمكن التعديل عليه يدويا. في الجدول: - تم عمل حقل رقم الموظف كمفتاح للجدول. - تم جعل اسم الموظف مطلوبا حتى لا يسمح لك الذهاب لسجل جديد آخر بدون تعبئة الاسم. d1_Hawiii_01.accdb

إصدار جديد - تم إضافة خيار طول النص وحتى 6 حروف. - تم توسيع خيار طول الرقم حتى 6 خانات. Hawiii-Coding-03.accdb