(17/12/2020, 22:34)berduş yazdı: öncelikle belirteyim forum kuralları gereği her konu tek soruya yönelik olmalıdır dolayısıyla sadece bir sorunuza yanıt verebilirim
çalışmanızda öncelikle saptadığım sorunu söyleyeyim eğer ödemetürü tablosunda kayıt yoksa eklemesini sağlayan
kodunuz hatalı çalışıyorduVarMi = DCount("[txt_ögrencino]", "T_ÖDEMELER", "[ögrencino]=" & Me.txt_ögrencino)
If VarMi = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO T_ÖDEMELER ([ögrencino]) VALUES (" & Me.txt_ögrencino & ")"
DoCmd.SetWarnings True
End If
T_ÖDEMELER tablosunda ödemetürü alanı zorunlu alan dolayısıyla "INSERT INTO T_ÖDEMELER ([ögrencino]) VALUES (" & Me.txt_ögrencino & ")" kodu kayıt ekleyemiyor çünkü kodda ödemetürü alanını eklememişsiniz
öncelikle ya T_ÖDEMELER tablosunda ödemetürü alanını zorunlu alan olmaktan çıkarıp ekleme kodunu aşağıdaki gibi düzenlemelisiniz
yada alan zorunlu olarak kalacaksaVarMi = DCount("[ögrencino]", "T_ÖDEMELER", "[ögrencino]=" & Me.txt_ögrencino)
If VarMi = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO T_ÖDEMELER ([ögrencino]) VALUES (" & Me.txt_ögrencino & ")"
DoCmd.SetWarnings True
End If
ekleme kodu olan DoCmd.RunSQL kodu aşağıdaki gibi düzenlenmeli
DoCmd.RunSQL "INSERT INTO T_ÖDEMELER ([ögrencino],[ödemetürü]) VALUES (" & Me.txt_ögrencino & ","""")"
Teşekkür ederim, çok teşekkür ederim. Sorun çözüldü.