Aynı Numaranın Tekrarını Engelleme

1 2 3
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ı")

22/09/2017, 10:59

sormaneden07

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


OZAN abi ellerine sağlık çok güzel olmuş hayırlı cumalar dilerim
1 2 3