(30/10/2025, 18:52)atoykan yazdı:

Private Sub Onay13_Click()

    Dim koduret As Long

    Dim mevcutkod As Variant



    If Me.Onay13 = True Then

        Kontrol:

        koduret = Int((999998 - 100000 + 1) * Rnd + 100000)

        mevcutkod = Dlookup ("kodu", "Tablo2", "kodu='TDX-" & koduret & "'")



        If Not IsNull(mevcutkod) Then

            GoTo Kontrol

        Else

            Me.kodu.Value = "TDX-" & koduret

        End If

    Else

        Me.kodu.Value = Null

    End If

End Sub

şeklinde revize edin.

    Else

        Me.kodu.Value = Null

    End If

kısmı tiki kaldırdığınızda mevcut kod kaydını siler.

emeğinize sağlık tşkler hocam