الادخال عبر الباكورد

[النجاشي]

السلام عليكم ورحمه الله وبركاته

استاتذتي الكرام  

كيف استخدم باكورد لادخال رقم الصنف بنموذجfrmEdrajSenf وادراجه بنموذجfrm_ajrd بالفرعي 

اليدوي شغال ممتاز فاريد مثلا يكون خيار  علامه صح اذا اشرت عليه يكون الاستخدام عبر الباكورد واذا لم اختاره صح يكون يدوي

فما هي الخطوات لعمل ذالك

لم يسبق لي اي  معرفه عنه 

تحياتي احبتي

 

 

الباكورد.rar

[النجاشي]

للرفع

[sandanet]

اخي الكريم ابو زاهر التعامل مع الباركود نفس التعامل مع الادخال اليدوي وللتجربة قم بفتح محرر النصوص من الويندوز notepad وقم بتشغيل قاريء الباركود ومرر عليه علية تحتوي على ملصق الباركود سترى انه يقوم بكتابة الرقم في مستند النص امامك

لذلك انت في برنامجك اضغط على مربع النص الخاص برقم الصنف بنموذجfrmEdrajSenf وقم بتمرير ملصق الباركود على الجهاز سوف تلاحظ انه تم كتابته في مربع النص 

هذا كل مافي الامر .. فانت لاتحتاج الى وجود خيار علامة صح على الاطلاق 

[النجاشي]

استاذي الكريم @sandanet لقد قمت بالتجربه وصار يقبل معي الارقام بدون شرطه 

لكن عندي ارقام بهدذ الطريقه

مثلا 

81591-06350

يعطينا خطاء يظهر كما بالصوره

تم تعديل مارس 3, 2018 بواسطه ابو زاهر

[Shivan Rekany]

منذ ساعه, ابو زاهر said:

مثلا 

81591-06350

فی قاعدە بیاناتک مش موجود مثل هذه الارقام
لكن فيها 1-1 و 2-2 و 3-3 و 4-4
والرقم المكتوب اصلا غير موجود لذلك بيعطيك الرسالة
لذلك نحن بحاجة شرح وافي من حضرتك عن ماذا تريد بالضبط و ارفاق قاعدة بيانات حسب شرحك

[sandanet]

بعد اذن الاستاذ الكبير شفان

اخي زاهر اجعل حقل رقم الصنف "حقل نصي" في الجدول

[النجاشي]

استاذي @Shivan Rekany صحيح بالقاعده المرفوعه لم توجد  بها الارقام اليكم القاعده الاخيره توضح فيها الارقام

استاذي@sandanet هو في الجدول الحقل نصي  

فالمطلوب بنموذج frmEdrajSenf بحقل رقم الصنف تكون الشرطه ثابته بمنصف الحقل اي بعد 5 ارقام 

معذرتا علي التاخير كنت بتعشا

 

 

2الباكورد.rar

تم تعديل مارس 3, 2018 بواسطه ابو زاهر

[Shivan Rekany]

29 دقائق مضت, ابو زاهر said:

فالمطلوب بنموذج frmEdrajSenf بحقل رقم الصنف تكون الشرطه ثابته بمنصف الحقل اي بعد 5 ارقام 

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

Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5)

والكود صار هكذا

Private Sub Rajmsanf_AfterUpdate()
Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5)
  If DCount("[Rajmsanf]", "tfsil_jard", "[Rajmsanf]=[forms]![frmEdrajSenf]![Rajmsanf]") >= 1 Then
        
        MsgBox " سبق جرده   " & DLookup("[Almwka]", "tfsil_jard", "[Rajmsanf] = Forms![frmEdrajSenf]![Rajmsanf]")
        DoCmd.CancelEvent
        Me.Undo
        End If
End Sub

اتفضل جربه واعطينا الخبر

2الباكورد.rar

[النجاشي]

 استاذي@Shivan Rekany

لما اقرائها بالباكورد يصير كما بالصوره

 

 

[sandanet]

تفضل 

2الباكورد.zip

[النجاشي]

استاتذتي الكرام اشكركم من كل قلبي 

الحمدلله  ضبط معي بقي مشكله ببعض الارقام فقط

لقد عملت قناع الادخال للحقل الاتي 00000\-00000;0;_

بس في حاله اذا وجد حرق انجليزي بالرقم لايقبل 

مثلا 

81561-90A00

تحياتي

[sandanet]

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

[النجاشي]

14 دقائق مضت, sandanet said:

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

اشكرك استاذي الكريم جربتها وهي نفس المشكله 

ولكن دلنا استاذنا القدير ابو خليل الله يعطيه العافيه بطريقه قريبه من هذا الشكل الحمدلله ظبطت aaaaa\-aaaaa;0;

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

تحياتي وشكري وتقدير لك والا ستاذ شفان وكل الاخوه الذين ساعدونا 

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

تم تعديل مارس 3, 2018 بواسطه ابو زاهر

[sandanet]

منذ ساعه, ابو زاهر said:

اشكرك استاذي الكريم جربتها وهي نفس المشكله

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

لديك خانة رقم الصنف تقبل هذه الارقام 81591-06350  بينما قبل التعديل كانت لاتقبله والان يمكنك ملاحظة انه يقبل حتى الارقام التي بها حروف

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

وبعد التعديل والتجربة ارفقته لك .. ارجو عدم التسرع والحكم على فشل التعديل قبل تجربته

وهذه الصور توضح مراحل الاضافة بالترتيب

 

[النجاشي]

السلام عليكم 

استاذي الكريم @sandanet الله يجزيك كل خير 

انا اتاسف منك بشده والله انا لم احكم عليك بالفشل انت تاج راسي دوما ما تقصر معي 

ولكن استاتذي الكريم حتا لو وجد الفشل ليس عيبا فكل من قدم محاوله اشكره بشده 

والبرمجه بحر

فانا لم اجربه يدوي والان فتحت الكمبيوتر بعد ما شفت مشاركتك بالموبيل وقلت الا لزام اقوم افتح وارد عليك

استاذي بارك الله فيك انا اجربه بالقاري ولم يقبل معي يقبل الادخال يدوي فقط وهذا صحيح لم يكون موجود من قبل وانا صحيح تسرعت بالرد ولكن كان اجرب بالباكورد 

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

على كل حال اقدم اعتذاري منك اشكرك بشده 

واذا جربته بالباكورد عندك واشتغل رديت عليا 

الف تحيه اليك استاذي 

[sandanet]

اخي الكريم ابو زاهر بارك الله فيك لاداعي للإعتذار على شيء فأنا لم ازعل او اتضايق منك اطلاقاً فأنا احاول المساعدة قدر الامكان وانا فقط نوهت الى ضرورة فحص التعديل وذكر المشكلة اذا كانت فيه مشكلة اخرى لكي تستفيد انت ويستفيد الآخرين ايضاً .. اما التسرع بالاجابة "حتى وان كانت ايجابية بدون التأكد من المرفق وتجربته من حيث سلامته" فهذا أمر غير مفيد .

تحياتي

[النجاشي]

شكرا اليك استاذي من طيب اصلك الله يعطيك العافيه فكل ما في الامر سو فهم الله يبارك فيك ما قصرت 

تحياتي