ادخال الباركود عن طريق الباركود ريدر مع ايقاف ادخال من لوحة المفاتيح

طيب جرب المحاولة الأولى هذه وأخبرني

لأنه ليس عندي قاري باركود

za-BarCode-END.rar

ربنا يبارك فيك ويذيك من فضله علما واسعا هو المطلوب تعمل بشكل ممتاز سأحاول فهم فكرتك ... شكرا لك

ويبارك فيك

المهم مازال متبقي مفاتيح لم يتم ايقافها

وسنحاول في المحاولة الثانية إن شاء الله

جزاك الله الف خير ... فيه مشكلة ان شاء الله تكون بسيطة وهي انه يقرأ بالباركود 10 ارقام فقط من 11 رقم ويترك الرقم الاول من اليسار

وايضا اخي لو امكن ايقاف اللصق ... وجزاك الله خيرا

طيب وليه نوقف اللصق

الأسهل نمسح النسخ

ههههه يعني نقوم بافراغ حافظة النظام Clipboard

بالاستعانة بموديول

Dim t

Call EmptyClipboard

If (Me.last_t) = "" Then Me.last_t = TimeToMillisecond()

If KeyCode >= 1 And KeyCode <= 127 Then
         If KeyCode = 13 Then
         DoCmd.Save
         Else
         Me.now_t = TimeToMillisecond()
         Me.t = Me.now_t - Me.last_t
         Me.last_t = TimeToMillisecond()
                If (Me.t) >= 100 Then
                KeyCode = 0
                End If
        End If
End If

الفارق الزمني تم تعديله من 20 إلى 100 كما هو موضح بالكود

جرب على الباركود ونشوف النتيجة

ولو نفع إن شاء الله نحاول نختصر الكود

za-BarCode-END up2.rar

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

مشكور أخي و بارك الله فيك

طيب قم بحذف السطر البرمجي

If (Me.last_t) = "" Then Me.last_t = TimeToMillisecond()

وجرب هل له تأثير على وظيفة الكود أم لا ؟

نريد اختصار الكود كلما أمكن

لأن هناك قاعدة برمجية بتقول:

كود أقصر كود أفضل

جزاك الله خيرا .. نفذت ومازالت نفس المشكلة . عندما اذهب للعمل سأجرب باركود ريدر اخر ربما تكون المشكلة في الباركود ريدر معي . شكرا لك

جربت على باركود ريدر اخر نفس المشكلة لا يقرأ الرقم الأول من اليسار .. وعندما جربت اكثر من مرة وجدته يقرأ الرقم كاملا مرة في وسط عدد كبير من المرات وقمت بحذف الكود مؤقتا فوجدته يقرأ بشكل عادي .. هذا للعلم واشكرك على الاستفادة الكبيرة