Private Sub Onay13_Click()
Dim koduret As Long
If Me.Onay13 Then
Kontrol:
koduret = Int((100000 - 999998 + 1) * Rnd + 100000)
If Dlookup ("kodu", "Tablo2") = True Then
GoTo Kontrol
Else
Me.kodu.Value = "TDX-" & Int((100000 - 999998 + 1) * Rnd + 100000)
End If
Else
End If
End Sub
Onay kutusunun Click Olayına aşağıdaki kodu yazın...
İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
