مطلوب كود ربط الباركود بالصنف وتفاصيلة

[safwat Maher]

السلام عليكم .... بارك الله فيكم جميعا

عندى باركود لكل منتج 

مطلوب كود عند كتابة البار كود فى الخانة المخصصة له باستخدام جهاز قارى الباركود

عايز كود بمجرد ادخال الباركود يتم اظهار اسم الصنف المرتبط به وسعرة فى النموذج والنموذج مرتبط بجدول 

موجود جدول باسم Model 

وبه Model  اسم الصنف

ParCode  رقم الباركود

وبارك الله فيكم

 

[sandanet]

اخي الكريم الامر بسيط فقط كل ماعليك هو نسيان امر الباركود قليلاً وقم بعمل استعلام q1 مستند على جدول Model وقم بعمل تصفية لهذا الاستعلام عن طريق حقل ParCode ..بمعنى آخر افتح الاستعلام بوضع التصميم وضع الامر التالي [forms]![form1]![Text1]  كمعيار لحقل ParCode مع تغيير اسم form1 الى اسم النموذج الى النموذج الذي تريد اظهار النتائج فيه .. وكذلك Text1 هو مربع النص الذي سوف يقرأ ارقام الباركود لاحقاً

الآن انشيء نموذج منفرد بحيث يكون مصدره الاستعلام q1 وضع فيه جميع الخانات التي تريد اظهارها مثل اسم الصنف والتاريخ والكمية واهم شيء text1 الخاص برقم الباركود 

الآن توجه الى حدث بعد التحديث لمربع النص text1 وضع الامر التالي Me.requery

ومبروك عليك 

[safwat Maher]

في 10/28/2017 at 05:33, sandanet said:

اخي الكريم الامر بسيط فقط كل ماعليك هو نسيان امر الباركود قليلاً وقم بعمل استعلام q1 مستند على جدول Model وقم بعمل تصفية لهذا الاستعلام عن طريق حقل ParCode ..بمعنى آخر افتح الاستعلام بوضع التصميم وضع الامر التالي [forms]![form1]![Text1]  كمعيار لحقل ParCode مع تغيير اسم form1 الى اسم النموذج الى النموذج الذي تريد اظهار النتائج فيه .. وكذلك Text1 هو مربع النص الذي سوف يقرأ ارقام الباركود لاحقاً

الآن انشيء نموذج منفرد بحيث يكون مصدره الاستعلام q1 وضع فيه جميع الخانات التي تريد اظهارها مثل اسم الصنف والتاريخ والكمية واهم شيء text1 الخاص برقم الباركود 

الآن توجه الى حدث بعد التحديث لمربع النص text1 وضع الامر التالي Me.requery

ومبروك عليك 

اخى الكريم بارك الله فيك وجعلة الله فى ميزان حسناتك

كنت اتمنى بهذا الكود لتسهيل التعديل حيث اننى ليس خبرة فى الاكسيس

بعد تحديث خانة الباركود يظهر اسم الموديل المرتبط بها فى نفس الجدول

حيث txtParcod  حى حقل الباركود

و Model  اسم جدول البيانات

و Model  هى خانة اسم الموديل فى جدول البيانات

Private Sub txtParcod_AfterUpdate()
[Model] = DLookup("[Model]", "Model", "[Model]='" & [Model] & "'")

بس ما زبطت معايا

 

 

[sandanet]

اخي الكريم ارجو منك ارفاق قاعدة بياناتك لتسهيل الامر