Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim VarMi, GSayim, GIZNo As Integer

Dim GZNo, GMetin As String



VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")

GIZNo = Me.Z_NO

GSayim = 0



Do Until VarMi = 0

    If VarMi <> 0 Then

        GZNo = Me.[Z NO]

        Me.Z_NO = Me.Z_NO + 1

        VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")

        GSayim = GSayim + 1

    End If

Loop



If GSayim = 0 Then

    Exit Sub

ElseIf GSayim = 1 Then

    GMetin = GZNo & Chr(34) & " Z Numarası"

ElseIf GSayim > 1 Then

    GMetin = GIZNo & Chr(34) & "den " & Chr(34) & GZNo & Chr(34) & "e kadar Z Numarası "

End If



MsgBox (Chr(34) & [KASA NO] & Chr(34) & " Kasa Numarasına " & Chr(34) & GMetin & " Daha Önce Girildiği İçin " & Chr(34) & Me.Z_NO & Chr(34) & " Değeri Atandı")