Dim Metin8 As String
20 Burasına bunu yazın
Metin8 = Format(CStr(Int(Rnd() * 9999)), "0000")
barkod12 = Me.KODU & "" & Format(CStr(Int(Rnd() * 1000)), "0000") & "" & Format([SatisNo], "0000")
Me.barkodu = barkod12 & "" & BarkodHesapla(barkod12)
If rs.EOF = True Then GoTo 500
rs.MoveFirst
Do Until rs.EOF
If rs!barkodu = Me.barkodu Then GoTo 20 Burasına bunu yazın
Benzersiz numara buluncaya kadar devam edecektir...