مهند محسن قام بنشر أكتوبر 9, 2020 قام بنشر أكتوبر 9, 2020 السلام عليكم اخوتي هل من الممكن توليد باركود تلقائي للصنف الذي لم لايوجد فيه باركود مع فائق اشكر
تمت الإجابة محمد أبوعبدالله قام بنشر أكتوبر 9, 2020 تمت الإجابة قام بنشر أكتوبر 9, 2020 وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في وحدة نمطية جديدة Function fnAutoField() As String Dim strRndNo As String 10: strRndNo = Format((999999999 * Rnd) + 1, "100000000") If DCount("*", "tblItems", "BarcodeItem='" & strRndNo & "'") > 0 Then GoTo 10 fnAutoField = strRndNo End Function وهذا الكود في النموذج يتأكد من وجود قيمة في BarcodeItem وإلا يضع باركود جديد If IsNull([BarcodeItem]) Then Me!BarcodeItem = fnAutoField() End If 1
مهند محسن قام بنشر أكتوبر 9, 2020 الكاتب قام بنشر أكتوبر 9, 2020 الاستاذ العزيز محمد كل الشكر والاحترام
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان