AccessTr.neT

Denemez olur muyum Ercan Hocam, bütün varyasyonları denedim. Bana mısın demiyor


Oktay Hocam sizin için 2003 yaptım

sadece şunu deneyin
Varmi = Nz(DLookup("alttur_id", "T_ALTTUR", "[genturno]= [genturkutu] And [alttur] = [falttur] "), 0)
Çünkü hiç değişken yok gördüğüm kadarıyla
Hatta şunu
Varmi = Nz(DLookup("alttur_id", "T_ALTTUR", "[genturno]= [genturkutu] And [alttur] = [falttur] "))*1

Oktay Hocam ;
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.

sizin eklediğiniz örneği görmedim (geç gördüm), oysaki ilk mesaja eklemişsiniz.)) Oktay hocamada teşekkürler.