باركو تلقائي

[مهند محسن]

السلام عليكم اخوتي

هل من الممكن توليد باركود تلقائي للصنف الذي لم لايوجد فيه باركود

مع فائق اشكر

[محمد أبوعبدالله]

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

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

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

 

[مهند محسن]

الاستاذ العزيز محمد 

كل الشكر والاحترام