توليد رقم كودبار للصنف عشوائيا دون تكرار

[hougar]

السلام عليكم

اخوتي لدي طلب حول امكانية ايجاد طريقة لانشاء زر أمر في نموذج بيانات الصنف يعمل على توليد رقم كودبار للصنف عشوائيا دون تكرار نفس الرقم مع صنف آخر .....

وشكرا

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

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

تفضل اخي الكريم

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

طريقة الاستخدام

       If IsNull([BarcodeItem]) Then
          Me!BarcodeItem = fnAutoField()
    End If

تحياتي

تم تعديل أكتوبر 7, 2021 بواسطه محمد أبوعبدالله

[hougar]

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

نفع الله بك وبارك لك في اجتهاد وعملك ووفقك