aşağıdaki açıklamaların yapılması uygun görülmüştür.
Alıntı:ödeme türü kredi kartını seçtiğimde kredi kartına nakit seçtiğimde giren alan adına kayıt olmuyor
ifadenize yönelik olarak;
bahsettiğiniz bu durumun eklediğim örnek üzerinden talebiniz olan tablodan tabloya kaydetme ile ilgili bir durum değildir.aksine,bu tarafınızca yapılmış bir denetim işlemi olduğu gerekçesi ile ayrı bir konudur.
bu hususa dair,şu bilgilendirmede bulunmak faydalı olabilir.elbette ki bu yazdığınız ile tam olarak kast ettiğiniz nedir pek anlaşılmamak ile birlikte
a) eğer ÖDEME formundaki bu denetimden NAKİT veya KREDİ KARTI değerini seçtiğinizde ÖDEME tablosundaki odemeturu alanına değer aktarması ise bunu yapıyor zaten.
b) eğer kast ettiğiniz pesinsatislar adlı tablodaki KREDİKARTI adlı alana bu değeri aktarmak ise olmayacaktır çünkü;her iki tablodaki bu alanların VERİ TÜRÜ farklı.biri METİN diğeri SAYI.bu nedenle,aynı olması gerekmektedir.
ÖDEME formundaki kayıtların ÖDEME tablosuna kaydedilmesi gerekmektedir ki mevcuttaki aktif olan kaydın verilerinin diğer tabloya aktarımı sağlanabilsin.bu nedenle,
kod sayfasına geçiniz ve ALINAN adlı denetimin ÇIKILDIĞINDA olay yordamındaki kodları
'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If Len(DLookup("KODU", "pesinsatislar", "KODU=" & Nz(Me.KODU, 0) & " and GİREN=" & Me.ALINAN & " and [ÖDEME TARİHİ]='" & Me.TARİH & "'")) > 0 Then
Me.Undo
MsgBox ("Bu kayıt mevcuttur!" & vbCr & vbCr & "PEŞİN SATIŞLAR adlı tabloya" & vbCr & vbCr & "aktarım yapılmayacaktır!"), vbCritical, "MÜKERRER KAYIT UYARISI"
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO pesinsatislar (KODU,TARİH,GİREN) SELECT ÖDEME.KODU, ÖDEME.[ÖDEME TARİHİ], ÖDEME.ALINAN FROM ÖDEME WHERE [KODU]=" & Nz(Me.KODU, 0)
DoCmd.SetWarnings True
End If
yukarıdkai kodlar ile değiştirmek sureti ile kullanmayı deneyiniz.
bilginize...iyi çalışmalar,saygılar.