21/09/2017, 21:58
ozanakkaya
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ı")