Me. diye başlayan başvurular hata veriyor. İlk önce isimlerinin başına txt koydum. Değişiklik olmadı. Yuvarlama nın adını Yuv olarak değiştirdim olmadı. Sonra ilk hata verisi olan Me.Yuvarlamayı koddan sildim. Bu sefer Me.akAy da hata verdi. Kısacası Me. ile başlayan 41. satırdaki kodun Me. ile başlayan başvuruları hata verdi. Çözemedim. Sabırla uğraştığınız için de teşekkür ederim.
Yanlış dosya eklemişim. Özür.
Doğrusu son eklediğim dosya: altablolara verigirişi
1. Hatanız Türkçe karakter kullanmanız.
2. Hatanız düzensiz / kuralsız kodlamanız.
sorguda txtÖdenen olarak girdiğiniz alanın adı fomunuzda txtOdenen, bunun dışında txt1Ödeme, txt1Borç gibi türkçe karakterler kullandığınız denetimler var.
Formlarınızı hazırlarken metin kutuları gibi denetimleri txt_xxx, birlişik giriş kurularını cmb_xxx gibi ve türkçe karakter kullanmadan kısa öz adlandırırsanız hem gruplandırmış hem denetimleri rahat bulabilir olursunuz. Bu sayede kodlama yaparken bazı yerde türkçe karakterler kullanmak sureti ile hata ile karşılaşma olasılığınız olmaz. Türkçe karakter, buyuk harf ve yerleşik işlev adları kullanmamaya dikkat edin. Sorun buradan kaynaklanıyor başka bir sıkıntı görmedim.
Türkçe karakterleri yine de değiştirdim. Ama Yuvarlamada Türkçe karakter yok ki. Onu da zaten txtYuv diye değitirmiştim öncesinde.
sayın fenerli bakın kaçıncı defadır aynı uyarıyı yapıyoruz ama siz aynı hatada ısrara devam ediyorsunuz. formunuzda txtÖdenen yok txtOdenen var.
kodu aşağıdaki gibi düzenleyip dener misiniz? sadece if Varmi=0 then bloğunu değiştirdim gerisi aynı
if Varmi = 0 Then
DoCmd.RunSQL "INSERT INTO tblHarçlıklar (SıraID,YılID, Ay, Ekgösterge, Katsayı, Yuvarlama, Ödenen, 1Ödeme, 2Ödeme, 3Ödeme, 4Ödeme, 1Borç, 2Borç, 3Borç, 4Borç) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & _
YilDegeri & "','" & _
Me.akAy & "','" & _
Me.akEk & "', '" & _
Me.akKat & "', '" & _
Me.txtYuv & "', '" & _
Me.txtOdenen & "', '" & _
Me.txt1Ödeme & "', '" & _
Me.txt2Ödeme & "', '" & _
Me.txt3Ödeme & "', '" & _
Me.txt4Ödeme & "','" & _
Me.txt1Borç & "','" & _
Me.txt2Borç & "','" & _
Me.txt3Borç & "','" & _
Me.txt4Borç & "')"
End If