JAMAL SINANI قام بنشر أغسطس 27, 2019 قام بنشر أغسطس 27, 2019 السلام عليكم ورحمة اله وبركاته مرحبا استاذتي الكرام لدي برنامج من خلاله يقرأ الباركود وذلك حسب الارقام المدخلة سابقا لكل الاصناف اريد ان اضع كود يعطي رسالة تنويه في حال ادخال كود غير موجود من ضمن الاكواد المدخلة في البرنامج ويرفض العملية مع شكري وتقديري لهذا الصرح المميز الصورة تشرح الامر واحاول ان شاء ان ارفع برنامج مبسط لهذا الموضوع 1
حسين العربى قام بنشر أغسطس 27, 2019 قام بنشر أغسطس 27, 2019 تفضل اخي الفاضل 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 1
JAMAL SINANI قام بنشر أغسطس 27, 2019 الكاتب قام بنشر أغسطس 27, 2019 الف شكر لك استاذ حسين العربى وربي يوفقك في الدنيا والاخرة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.