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

تقييد حقل الباركود بالارقام المدخلة في البرنامج


JAMAL SINANI

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

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

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

لدي برنامج من خلاله يقرأ الباركود وذلك حسب الارقام المدخلة سابقا لكل الاصناف

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

مع شكري وتقديري لهذا الصرح المميز

الصورة  تشرح الامر

واحاول ان شاء ان ارفع برنامج مبسط لهذا الموضوع

مشكلة.jpg

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

تفضل اخي الفاضل 

On Error Resume Next
'''''''''''''''''''''''
Me.txt1 = DLookup("[BARCODEحقل]", "TABOL1 جدول", "[BARCODEحقل]='" & Me.SERH حقل البحث & "'")
''''''''''''''''''
If Len(Me.TXT1 & "") = 0 Then
MsgBox "هذا الباركود غير مسجل"
Undo
Exit Sub
End If

انشأ مربع نص  غير منضم وسميه TXT1

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information