Hata resimlerini ekledim.
Bu arada ek kod yazarak çözdüm ama mesele o değil.
Dim varmi As Integer
Dim bak1 As Integer
Dim bak2 As Integer
Dim sonkay As Integer
'mükerrer kayıt kontrolü
bak = Nz(DLookup("alttur_id", "T_ALTTUR", "genturno=" & [genturkutu]), 0)
bak1 = Nz(DLookup("alttur_id", "T_ALTTUR", "alttur = '" & [falttur] & "'"), 0)
If bak = 0 And bak1 = 0 Then
varmi = 0
Else
varmi = 1
End If
sonkay = Nz(DMax("alttur_id", "T_ALTTUR"), 0)
'alttür ismini ara ve id numarasını varmi değişenine ata
'en büyük id numarasını sonkay değişkenine ata
If varmi = 0 Then 'sonuç sıfırsa aynı isim yok demektir
[/quote]Oktay Hocam;
Çok teşekkürler
Alıntı:Varmi = Nz(DLookup("alttur_id", "T_ALTTUR", "[genturno]= [genturkutu] And [alttur] = [falttur] "), 0)Bu kod oldu. Sorun çıkarmadan yoluna devam etti. Sağolun.