Skip to main content

AccessTr.neT


Alt Tablolarda İşlemler

Alt Tablolarda İşlemler

#25
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.
.rar örnek.rar (Dosya Boyutu: 207,15 KB | İndirme Sayısı: 0)
Son Düzenleme: 18/10/2020, 18:24, Düzenleyen: fenerli6774.
Cevapla
#26
Doğrusu son eklediğim dosya: altablolara verigirişi
.rar alt tablolara veri girişi.rar (Dosya Boyutu: 148,07 KB | İndirme Sayısı: 2)
Cevapla
#27
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.
Cevapla
#28
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.
Cevapla
#29
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
Cevapla
#30
Sorun çözüldü mü sayın @fenerli6774?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task