qathi

استاذنا @M.Abd Allah ملاحظة بسيطة وجدت عند استعمال هذا الكود انه يبطل عمل زر التاب Tab فهل يوجد كود عند الضغط على هذا الزر التاب Tab يتم الانتقال الى الكائن او الحقل التالي او السابق بدون الحاجة الى استخدام كود سلكت التحديد

الله عليك استاذنا @M.Abd Allah فينك من زمااااان جيب لي راسك اقبلها 😘 بارك الله فيك وجزاك الله عني خير شكرا لردك وكذلك انك خصصت من وقتك الثمين لأعطائي الحل حفظك الله ورعاك وزادك الله نورا وعلما

ابداع وتلق وعمل مهم جدا أخي @فريدالطحان وياريت يتم تطويرة من اساتذتنا الافاضل

السلام عليكم اساتذتنا واعضاء منتدانى الرائع حياكم الله وبعد ..... مشكلة قديمة جديدة مؤرقة ارجو حلها بعد عدة محاولات واستخدام امثله وجدتها هنا في منتدانا اوفيسنا لم تفلح ارفع لكم المشكلة وارجو ان اتلقى من خبرائنا الافاضل الحل أن شاء الله عند استخدام الكود التالي في اي حدث عند مفتاح للأسفل لحقل معين فانه يعمل مثل حقل k3 If KeyCode = 115 Then 'f2 Form_Form1.k1.SetFocus ElseIf KeyCode = 114 Then 'f3 Form_Form1.k5.SetFocus End If لكن ليس من المعقول تكرار هذا الكود بكتابته في كل مره عند كل الحقول والكائنات النموذج خاصتاً عندما يكون الكود بة سطور كثيرة لأوامر أكثر فقمت بعملها في دالة مستقلة واستداعها بكود مختصر مثل حقل k4 وزر Bo1 لكنها لم تعمل Call AllowKey فقمت باضافة دالة وجدتها من المنتدى Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer If KeyCode = 115 Then 'f4 Form_Form1.k1.SetFocus ElseIf KeyCode = 114 Then 'f3 Form_Form1.k5.SetFocus End If End Function واستدعائها بالكود التالي: KeyCode = AllowKeyCode(KeyCode, Shift) عند وضعها في حدث عند مفتاح للأسفل اي حقل يودي هذا الكود الى عدم امكانية ادخال بيانات في الحقل وهذه مشكلة كبيرة كما في حقل k2 فقمت بوضع كود الدالة السابقة أو هذه في حدث عند مفتاح للأسفل النموذج Call AllowKey أو KeyCode = AllowKeyCode(KeyCode, Shift) لكن لا تعمل هذه الاكواد ارجو حل المشكلة بعمل كود يتم استداعة في جميع الحقول والكائنات النموذج بكود مختصر او اي حل بسيط عند الضغط على المفتاح المطلوب يتم نقلي او تنفيذ امر معين وانا في اي مكان في النموذج ولا يؤثر على عمل النموذج نفسة من ادخال البيانات او يتعارض مع اكواد اخرى ولكم من كل الشكل والتقدير مرفق ملف فيه جميع ماذكر Key1.rar Key1.accdb

استاذنا @Foksh ماشاء الله .. تعيش وتتهناء أن شاء الله .. انتظر ابدعاتك استاذنا الغالي وياريت اعرف اسمك الاول حتى اناديك كما تعودنا

للرفع .. ارجو المساعدة للأهمية بارك الله فيكم

استاذنا @Foksh متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً

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

جربت الملف استاذنا @Foksh اسمح لي استاذنا بهذه الملاحظة وارجو ان يكون يسع صدرك لي عند الضغط على الزر لايضهر معالج جهاز الاسكانر لانه يوجد في المعالج زر المعاينة وعند الضغط عليه تظهر الصور وتستطيع ان تقتص الجزء الذي تريد عكس الملف الذي ارسلته .. مباشرة يقوم بسحب الصورة الى مجلد .. مما يكون صورة جزء منها المطلوب وبقية الصورة عبارة عن فراغ ابيض مشوهه

نفس المشكلة السابقة استاذنا @Foksh

للرفع..

شكرا لك استاذنا @Foksh على ردك وتعديلك الملف واعتذر عن تاخر ردي لأسباب مرضية قمت بتجربة الملف الان .. لا يعمل عند توصيل الاسكانر او عدم توصيلة تظهر نفس الرسالة "لا يوجد ماسح ضوئي متصل" بالرغم ان جهاز الاسكانر موصل قمت بعمل ايقاف للكود التالي فعمل الكود كما في السابق If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub End If ارجوا حل المشكلة .. بارك الله فيكم

السلام عليكم احيي اساتذتنا الافاضل واعضاء منتدانا الشامخ وأسأل الله أن تكونوا في أتم الصحة والعافيه المطلوب كالتالي: عند الضغط على زر (سحب اسكانر) {ولم يكن جهاز الاسكانر غير موصل تظهر رسالة تخبر المستخدم أن الجهاز الاسكانر غير موصل } ولا يؤدي ذلك لظهور مشاكل اخر .. لأني قمت بمحاولات سابقة كانت تؤدي الى اخطاء وشكرا لكم على ماتقدموه لنا من وقتكم وجهدكم الثمين مرفق ملف للتعديل علية ScanPro.zip

وهو كذلك

أخي @Foksh يوجد شيء بسيط هل بالامكان ضهور رسالة اذا كان الاسكانر غير موصل تخبر المستخدم أنه لا يوجد جهاز اسكانر موصل .. لا يتعارض مع عمل الكود علما باني قمت بعدة محاولات كانت تسبب اخطاء

بارك الله فيك أخي @Foksh قمت بتجربة الملف نعم .. جزاك الله عني خيرا

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه المطلوب كالتالي: عند الضغط على زر (سحب اسكانر) {يتم حفظ الصور من الاسكانر الى داخل مجلد Items الموجود بداخل مجلد Image } برقم الصنف مع اضافة حرف T وكذلك نفس الامر لزر (اضافة) وللعلم فأن الاكواد تعمل في حالة مجلد واحد مرفق ملف للتعديل علية ScanPro.rar

حفظك الله وزادك الله علماً اخي واستاذي @Moosak دعوت لك في ظهر الغيب شكرا لك أخي @saud3 اكتمل الحل بردك بارك الله فيك دعوت لك في ظهر الغيب

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

للرفع...

ملاحظة: هذه توضيح عرض مكونات السجل الواحد كلها تجمع في في حقل واحد بنفس طريقة هذه العرض التي بالاعلى 👆 بدلالة رقم InvID أرجو أن الفكرة وصلت أذا كان لم يفهم الطلب الرجاء اخباري بذلك

السلام عليكم اساتذتي واخواني الافاضل اعضاء منتدانا الرائع اسأل الله لكم دوام الصحة والعافية المطلوب كالتالي: عرض جميع سجلات للاستعلام (KashfItems) في حقل واحد .. بشرط أن رقم الحقل (InvID) للاستعلام مساوي لرقم حقل (InvID) للجدول الرائيسي (InvHT) مع فاصل / بين كل اسم الصنف وسعر والكمية والاجمالي مثال كيف يتم عرض السجل في حقل الاستعلام: - فرشات الوان وسط / سعر: 2350 / الكمية: 1 / الاجمالي : 2350 - طلاء الوان ازرق / سعر: 120 / الكمية: 1 / الاجمالي : 120 - طلاء الوان ازرق / سعر: 120 / الكمية: 2/ الاجمالي : 240 ملاحضة: جدول الاصناف Items جدول رئيسي للفاتورة InvHT جدول فرعي للفاتورة InvTT وشكراً لكم على كل ماتقدموه لنا من وقتكم وجهدكم الثمين .. وجزاكم الله عنا خيرا مرفق الملف للتعديل علية: InvSale_12.rar InvSale_12.accdb

شكرا أخي @kanory جاري التجربة

السلام عليكم اساتذتنا واخواني اعضاء المنتدى أسأل الله لكم العافية مطلوب: كود VBA يقوم بتشغيل مهمة معينة في الوقت المحدد ( الوقت ياخذه من حقل من جدول ) وشكرا لكم

للرفع ..