اذهب الي المحتوي
أوفيسنا

باركو تلقائي


إذهب إلى الإجابة الإجابة بواسطة محمد أبوعبدالله,

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

  • تمت الإجابة
قام بنشر

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

ضع هذا الكود في وحدة نمطية جديدة

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

 

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information