طريقة انشاء ارقام التأكيد

[بلال اليامين]

السلام عليكم

اريد طريقة انشاء ارقام التاكيد 

[MTGFM]

وضح سؤالك واين ملفك علشان نعدل علية

[بلال اليامين]

اليك الصورة لتوضيح

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

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

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

Function fnAutoField() As String
 Dim strRndNo As String
    strRndNo = Format((9999 * Rnd) + 1, "10000")
    fnAutoField = strRndNo
End Function

ثم نضع في النموذج في حدث عند الادراج الكود التالي

 Me!TextBox1 = fnAutoField()

وفي زر الحفظ نضع الكود التالي

    If Me!TextBox3 = Me!TextBox1 Then
       MsgBox "error", vbInformation
       Me!TextBox1 = fnAutoField()
    Else
 
    End If

ان واجهت مشكلة في التطبيق لا قدر الله ارفق مثال ليتم التعديل عليه ان شاء الله

تحياتي

[بلال اليامين]

اخي اليك المثال

الصلاحيات المستخدمين.rar

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

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

الصلاحيات المستخدمين.rar

تحياني