دادن يك كود به طور خود در text box در ويژوال بيسيك

[mehdiafzali]

سلام
من يك برنامه براي يك مغازه نوشتم و شامل(ثبت جنس، ثبت مشتريان و ...) مي باشد من مي خواهم وقتي كه روي ثبت مشتري يا جنس مي زنم يك كود به طور خودكار به text box بده و درون اكسس ذخيره ش كنه . بايد چيكار كنم. سريع!

 

[the_king]

سلام
من يك برنامه براي يك مغازه نوشتم و شامل(ثبت جنس، ثبت مشتريان و ...) مي باشد من مي خواهم وقتي كه روي ثبت مشتري يا جنس مي زنم يك كود به طور خودكار به text box بده و درون اكسس ذخيره ش كنه . بايد چيكار كنم. سريع!

بهتره برای ID رکورد ها از همان AutoNumber خود Microsoft Access استفاده کنید که بصورت خودکار مقدار دهی میشه،
چون تضمین می کنه که در دو رکورد متفاوت ID یکسانی درج نشه. اگر بخواهید خودتان یک کد بسازید باید با تمام رکورد های
ثبت شده در جدول مقایسه کنید تا مطمئن شوید که یک کد تکراری نساخته اید.

یک کد 6 رقمی عددی :

    Randomize
    Text1.Text = CStr(Int(Rnd * 900000) + 100000)

یک کد 6 رقمی-حرفی :

    Randomize
    Dim Index As Long, Text As String
    For Index = 1 To 6
        Text = Text & Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", Int(Rnd * 36) + 1, 1)
    Next
    Text1.Text = Text