ö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

VarMi = 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

kodunuz hatalı çalışıyordu
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

VarMi = 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

yada alan zorunlu olarak kalacaksa
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 & ","""")"