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)

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

مو بكيفك 🙂 ، من الصعب أن تفرض شروطك وخصوصا إذا كانت طريقتك في المعالجات خاطئة. لو تشرح ماذا تريد بالضبط غير عملية الإنتقال ، لأن النموذج هو نموذج كما يبدو لإدخال موظفين جدد وليس نموذج لمعاملات الموظفين. فبالتالي أنت لا تحتاج هنا للبحث عن الموظف برقمه إلا إذا قصدك منع التكرار فيمكنك اللعب على في الجدول وخصائص الحقول والمفتاح. أو اشرح بالضبط مطلبك حتى نستطيع إيجاد لك حلا نموذجيا. لقد عملت مزيدا من التحكم في استخدام المفاتيح ويمكنك نسخه على القديم: 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

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round Function myRound(Number As Double) As Double If Number - Fix(Number) = 0.5 Then myRound = Number Else myRound = Round(Number, 0) End If End Function

حياك الله استاذنا الدكتور هذا آخر رد لي في هذا الموضوع حتى لا يتحول النقاش إلى جدال. سأسمي نموذج البيانات/الإدخال بالنموذج ونموذج تغطية الخلفية بالخلفية حتى لا يحدث خلط وأضطر للتوضح مرات عديدة. نتيجة الحل من جهتكم ممتارة ولكني أشبهها بقسم الطوارئ في المستشفى بحيث يتدخل في وقف النزيف ولكن لا يعالج الأسباب وكمن أوجد حلا في إبقاء برج بيزا المائل صامدا حتى لا يهوي. - نعم ثبت النموذج وبقى شكله مشوها والسبب بسييط يتمثل في عمل خلفية تخفي شاشة النظام/سطح المكتب وتفاصيله. - نعم ظهر شريط المهام ولكن منعت من المبرمج من استخدام ثلاثة أنواع من أصل أربعة من أنواع النماذج ، طبعا أنا اكتشفتها لما رفقت لكم صورة لحلك بدون ظهور الشريط فاستغربت من ردودك الأخيرة أن الشريط يظهر عندك. على كل حال أنا اقتراحي يتضمن نتيجة عملك وزيادة عليه لم أحرم المبرمج من باقي أنواع النماذج وقمت بحل المشكلة جذريا فيمكن توسيط النماذج وكذلك منعها من النقر المزدوج (يحتاج فحص إضافي لجميع انواع) كما يمكن تحريك النموذج بكل بساطة وحذفه "زحفه" إلى إحدى الزوايا والتمتع برؤية بريج بيزا وهو مائل. - يمكن تطوير الفكرة أكثر من مزيد من الاختبارات ، هذا لمن يرغب في تغطية الخلفية ، بالنسبة لي لا أحب عمل خلفية وتغطية سطح المكتب. أرجو تقبل تعليقي بصدر رحب وأذكر هذا ردي الأخير مهما كان تعليقك أو تعليق الأعضاء. موفقين.

شكل النموذج باستعمال فكرتك. وشكل النموذج باستعمال فكرتي

أنا فهمت من هذه المشاركة أن الموضوع لم ينتهي. وسأرجع لك بملاحظاتي الليلة إن شاء الله.

حل مؤقت ، هناك رقم في الكود 200 ، بدل به بالزيادة أو النقصان حتى يتناسب مع جهازك. أنا كنت عامل دراسة على التحويلات وطبقته على أحد برامجي ولكن أحتاج أبحث عنه. Hawiii_Data_02.accdb

تقصد شريط مهام النظام (الويندوز) ، أنا راح بالي للأكسس. أعتقد لها حل ، الليلة سأحاول إن شاء الله.