اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


safwat Maher

الردود الموصى بها

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

ومبروك عليك 

  • Like 3
رابط هذا التعليق
شارك

في 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] & "'")

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

 

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information