مساعدة في اختيار الكود من جدول الموظفين لقارئ الباركود لجدول حضور وانصراف

[ابو مهند شتية]

السلام عليكم ورحمة الله

برجاء المساعدة عند قراءة الباركود يجب ان يكون الكود موجود في الجدول  وغير ذلك لا يقبل مع بقاء التكست بوكس فارغ للقراءة التالية

ولكم وافر التحية مرفق المثال

YasEnEx2021.rar

[Eng.Qassim]

7 hours ago, YASSERSHTTYA77 said:

السلام عليكم ورحمة الله

برجاء المساعدة عند قراءة الباركود يجب ان يكون الكود موجود في الجدول  وغير ذلك لا يقبل مع بقاء التكست بوكس فارغ للقراءة التالية

ولكم وافر التحية مرفق المثال

YasEnEx2021.rar 238.82 kB · 6 downloads

السلام عليكم

1-      قم بتغيير Data Type  لحقل (باركود الموظف بالعربي) الى Number  ثم اعمل علاقة بينه وبين ID  في جدول EnEX

2-      حقل الباركود غير موجود في استعلام CHIK فقم بأضافته

3-      حينما يكون حقل EnDate2 و حقل ExDate2 فارغين فانه يعطيك خطأ اذا ادخلت اكثر من سجل

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

[ابو مهند شتية]

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

معذرة ربما اخطأت في شرح ما اطلبه 

ما اقصده من طلبي ان التحقق من الباركود  ( كود الموظف )اذا موجود في جدول emp يتم قراءته وتسجيله واذا غير موجود لا يتم اي اجراء ويبقي التكست بوكس فارغ للقراءة التالية

تم تعديل يوليو 10, 2021 بواسطه YASSERSHTTYA77
تصحيح

[Eng.Qassim]

5 minutes ago, YASSERSHTTYA77 said:

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

معذرة ربما اخطأت في شرح ما اطلبه 

ما اقصده من طلبي ان التحقق من الباركود  ( كود الموظف )اذا موجود في جدول emp يتم قراءته وتسجيله واذا غير موجود لا يتم اي اجراء ويبقي التكست بوكس فارغ للقراءة التالية

معذرة لم اكن افهم قصدك لكنني ركزت على رسالة الخطأ من الاستعلام

[ابو مهند شتية]

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

منتظر المساعدة 

[د.كاف يار]

في ١٠‏/٧‏/٢٠٢١ at 18:28, YASSERSHTTYA77 said:

السلام عليكم ورحمة الله

برجاء المساعدة عند قراءة الباركود يجب ان يكون الكود موجود في الجدول  وغير ذلك لا يقبل مع بقاء التكست بوكس فارغ للقراءة التالية

ولكم وافر التحية مرفق المثال

YasEnEx2021.rar 238.82 kB · 18 downloads

في حدث بعد التحديث ضع التالي في البداية 

If Nz(DCount("[باركود]", "Emp", "[باركود]=" = [الباركود]), 0) = 0 Then
MsgBox "الباركود غير مسجل في النظام", vbCritical + vbMsgBoxRight + vbOKOnly, "تنبيه"
[الباركود]=Null
Exit Sub
End If

 

YasEnEx2021.zip

تم تعديل يوليو 11, 2021 بواسطه د.كاف يار

[ابو مهند شتية]

منذ ساعه, د.كاف يار said:

If Nz(DCount("[باركود]", "Emp", "[باركود]=" = [الباركود]), 0) = 0 Then
MsgBox "الباركود غير مسجل في النظام", vbCritical + vbMsgBoxRight + vbOKOnly, "تنبيه"
[الباركود]=Null
Exit Sub
End If

 

YasEnEx2021.zip 345.84 kB · 0 downloads

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

تم تعديل يوليو 11, 2021 بواسطه YASSERSHTTYA77

[د.كاف يار]

تفضل هذا التعديل

 

YasEnEx2021.rar

[ابو مهند شتية]

2 ساعات مضت, د.كاف يار said:

تفضل هذا التعديل

 

YasEnEx2021.rar 238 kB · 4 downloads

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

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