النهر العطشان قام بنشر سبتمبر 8, 2018 مشاركة قام بنشر سبتمبر 8, 2018 (معدل) السلام عليكم ارفق قاعدة بيانات اكسس تحتوي على جدول باسم Data فيها مواد غذائية واسعارها ولكل مادة الباركود الخاص بها وكذلك تحتوي قاعدة البيانات على form مرتبط بالجدول list الذي يمثل قائمة البيع المطلوب فضلا وليس 1- امرا عند ادخال رقم المنتج عن طريق قارئه الباركود يتم اظافة المنتج بالجدول list اوتماتيكيا ويتم التحديث بدون الضغط على اي زر في الكمبيوتر ويتم تفريغ حقل الادخال ليكون مستعد لقراءة منتج اخر 2- رسالة تنبيه في حالة عدم وجود المنتج ضمن قائمة المواد الموجودة في الجدول Data 3- رسالة تنبيه في حالة تكرار قراءة المادة بجهاز الباركود وشكرا test 4.rar تم تعديل سبتمبر 8, 2018 بواسطه النهر العطشان اظافة طلب 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 8, 2018 مشاركة قام بنشر سبتمبر 8, 2018 السلام عليكم استعمل هذا الكود في حدث بعد التحديث لمربع نص الباركود: If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Text9 = Null 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 8, 2018 الكاتب مشاركة قام بنشر سبتمبر 8, 2018 السلام عليكم شكرا استاذ صالح حمادي على سرعة الاجابة جعلها الله في ميزان حسناتك . لقد تم تجربة الكود وهو يعمل لكن هنالك مشكلتين صغيرتين اتمنى حلها من قبلكم . 1- عند تكرار نفس المادة في جهاز الباركود تظهر لي رسالة ان هذة المادة مكررة . 2- الحفظ اوتوماتيكيا بعد ادخال رقم الباركود الخاص بالمنتج عن طريق جهاز الباركود واظافة المادة للقائمة ومن ثم تفريغ مربع الادخال ليستقبل منتج اخر بدون كبسة زر في الكمبيوتر . وشكرا test 5.rar رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 8, 2018 مشاركة قام بنشر سبتمبر 8, 2018 بالنسبة للطلب الثاني فهو موجود في الكود الأول. و أما الطلب الأول يمكن تحقيقه بإضافة التعديل التالي على الكود: If DCount("*", "[list]", "[رقم الباركود]=" & Me.Text9) <> 0 Then MsgBox "هذه السلعة موجودة مسبقا" Exit Sub End If If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Requery Me.Text9 = Null Me.Text9.SetFocus test 5.rar 2 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 9, 2018 الكاتب مشاركة قام بنشر سبتمبر 9, 2018 السلام عليكم شكرا استاذ صالح حمادي على اجاباتك جعلها الله في ميزان حسناتك . لقد تم تجربة الكود الاخير وهو يعمل مشكورا فقط بقيت المشكلة الثانية وهي عدم حفظ المادة اوتوماتيكيا بعد ادخال الرقم الخاص بالباركود عن طريق قارئ الباركود فلحفظ المادة يجب الضغط على زر (enter) في الكيبورد ليتم الحفظ . المطلوب فضلا وليس امراً هو عند ادخال رقم الباركود بعد قراءة قارئ الباركود للمادة يتم حفظ المادة اوتماتيكيا ويتم تفريغ حقل الباركود ليكون مستعد لاستقبال رقم جديد وهكذا . وشكرا رابط هذا التعليق شارك More sharing options...
عاشق الرقي قام بنشر سبتمبر 9, 2018 مشاركة قام بنشر سبتمبر 9, 2018 ماشاء الله تبارك الله أستاذ صالح أخي النهر العطشان كما رأيت المثال فإنه يلبى المطلوب ولم افهم طلبك حيث أن السجل يتم حفظه وتفريغ حقل الباركود كلو تمام التمام ... أو ربما لم افهم السؤال والتمسك العذر 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 9, 2018 مشاركة قام بنشر سبتمبر 9, 2018 @النهر العطشان أظن أنه لازم تروي عطشك مليح المرفق يقوم بالحفظ بشكل جيد عندي سوف أوضح لك الأمر: جهاز الباركود يقوم بإدخال الرقم ثم يقوم بإرسال نقرة على زر entre لذلك لا أظنك جربت جهاز الباركود مع البرنامج 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 9, 2018 الكاتب مشاركة قام بنشر سبتمبر 9, 2018 السلام عليكم شكرا الاساتذة الكرام على اهتمامهم بسؤوالي : لقد تم تجربة البرنامج وهو رائع ولكن المطلوب فضلا وليس امرا كتابة رقم الباركود (عن طريق قارئ الباركود) في الحقل المؤشر بالصورة وان يكون الحفظ اوتماتيكيا . وشكرا لكل الجهود رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 10, 2018 مشاركة قام بنشر سبتمبر 10, 2018 22 ساعات مضت, النهر العطشان said: لقد تم تجربة البرنامج وهو رائع ولكن المطلوب فضلا وليس امرا كتابة رقم الباركود (عن طريق قارئ الباركود) في الحقل المؤشر بالصورة وان يكون الحفظ اوتماتيكيا . وشكرا لكل الجهود هل جربت البرنامج مع جهاز الباركود 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 11, 2018 الكاتب مشاركة قام بنشر سبتمبر 11, 2018 السلام عليكم نعم لقد تم تجربته بجهاز الباركود وهو لايحفظ ألا بعد الضغط على زر (enter) ولكن وجدت طريقة نجحت معي وهي الكود (Me.Refresh) في حدث (on change) لمربع نص الباركود . ولدي سؤال ضمن نفس البرنامج كيف يكون الكود في حالة اظافة حقل جديد للجدول وشكرا رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 12, 2018 مشاركة قام بنشر سبتمبر 12, 2018 في حال إضافة حقل جديد مثلا ليكن سعر الشراء نضيف السطر التالي: Me.سعر_الشراء = DLookup("[سعر_الشراء]", "[Data]", "[رقم الباركود]=" & Me.Text9) 1 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 12, 2018 الكاتب مشاركة قام بنشر سبتمبر 12, 2018 السلام عليكم شكرا استاذ صالح حمادي على اجاباتك جعلها الله في ميزان حسناتك . بقيت المشكلة السابقة وهي الحفظ التلقائي . لقد سبق وتم تجربة الطريقة التي كتبتها وهي كتابة الكود (Me.Refresh) في حدث (on change) لمربع نص الباركود . ولكن عند تجربتها وجدت انه يتم اخذ الرقم الاول من الباركود وحفظه ويتم اهمال باقي الارقام . فبقيت المشكله نفسها وهي : كتابة رقم الباركود (عن طريق قارئ الباركود) في الحقل المؤشر بالصورة وان يكون الحفظ اوتماتيكيا . وشكرا لكل الجهود . رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 السلام عليكم لقد جربت المرفق مع جهاز الباركود و هو يعمل بشكل ممتاز ربما لديك مشكل في الكمبيوتر أو جهاز الباركود 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 16, 2018 الكاتب مشاركة قام بنشر سبتمبر 16, 2018 السلام عليكم شكرا الى الاستاذ الفاضل صالح حمادي على سعة صدره . لقد تم تجربة البرنامج على اكثر من كمبيوتر وعلى جهازين باركود (جديدين) وكانت النتيجه ان البرنامج يعمل بصوره ممتازة ولاتوجد فيه اي مشكله لا في التصميم ولا في الكودات . ولكن البرنامج لايحفظ تلقائيا بعد كل قراءة الا اذا ضغطنا على زر (enter) في الكيبورد . وشكرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 16, 2018 مشاركة قام بنشر سبتمبر 16, 2018 ال سلام عليكم قمت بتجربة مثال الاستاذ صالح وهويعمل 100% اي انه يحفظ بمجرد القراءة النتيجة : افحص اعدادات قارىء الباركود عندك يجب ان تضبطه على Enter او Tab 2 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 20, 2018 مشاركة قام بنشر سبتمبر 20, 2018 في ١٦/٩/٢٠١٨ at 23:33, ابوخليل said: ال سلام عليكم قمت بتجربة مثال الاستاذ صالح وهويعمل 100% اي انه يحفظ بمجرد القراءة النتيجة : افحص اعدادات قارىء الباركود عندك يجب ان تضبطه على Enter او Tab استاذ الغالي من اين اضبط اعدادت قاري الباكورد بدي اطبق الطريقه عندي تحياتي اليك رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 21, 2018 مشاركة قام بنشر سبتمبر 21, 2018 غالبا يأتي ضمن المنتج كتيب او ورقة عبارة عن باركودات تتضمن تعليمات لضبط القراءة حسب رغبة العميل وتختلف هذه الاعدادات من منتج الى آخر ومن مصنع الى آخر تجد في بعضها ضبط الصوت ، وزمن الاشارة اذا كان القارىء يقرأ آليا ، والتحويل من يدوي الى آلي وغيرها الكثير وتجد احدها يعيد ضبط القارىء الى اعدادات المصنع ( كل ما سبق يتم بمجرد تمرير القارىء على الباركود ) وغالبا هذه التعليمات واضحة وسهلة ولا تحتاج الى معلم 1 رابط هذا التعليق شارك More sharing options...
النهر العطشان قام بنشر سبتمبر 22, 2018 الكاتب مشاركة قام بنشر سبتمبر 22, 2018 السلام عليكم شكرا الى الاساتذة الكرام نعم لقد اتجهت (بعد مقولة الاستاذ الفاضل ابوخليل المحترم بعد اجابته لي افحص اعدادات قارئ الباركود) الى جهاز الباركود وحسب علمي لايوجد اي تنظيم عن طريق الكمبيوتر لقارئ الباركود لانه يشتغل بدون تنصيب او لابدون (software) فاتجهت الى (دليل المستخدم) وعن طريقه عرفت ان هنالك باركود عند قرائته بالجهاز يتم تنظيم قارئ الباركود على قراءة رقم الباركود ثم الضغط على زر (enter) في الكمبيوتر . فالبرنامج يعمل بنسبة 100% . مره اخرى شكرا الى الاساتذة الكرام (الاستاذ صالح حمادي والاستاذ عاشق الرقي والاستاذ ابوخليل والاستاذ ابو زاهر المحترمون) ولكل من ساهم في معلومة جعلها الله في ميزان حسناته . رابط هذا التعليق شارك More sharing options...
أيمن عبادي قام بنشر سبتمبر 23, 2018 مشاركة قام بنشر سبتمبر 23, 2018 أخي الكريم هل من الممكن وضع نسخة من البرنامج بعد قيامك بالتعديل أكون لك من الشاكرين رابط هذا التعليق شارك More sharing options...
حربي العنزي قام بنشر سبتمبر 23, 2018 مشاركة قام بنشر سبتمبر 23, 2018 اخي الفاضل هل تكرمت علينا بوضع نسخة من البرنامج جزاك الله خيرا مع جزيل الشكر والاحترام رابط هذا التعليق شارك More sharing options...
Ahmed s Ramadan قام بنشر أكتوبر 28, 2018 مشاركة قام بنشر أكتوبر 28, 2018 هل تكرمت بوضع نسخة من البرنامج للاستفادة جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.