+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Tablolarla İşlemler (/konu-alt-tablolarla-islemler.html)
Alt Tablolarla İşlemler - fenerli6774 - 24/10/2020
rsSQL1 deyimindeki "SQL1"i komut kendisi mi oluşturuyor? Çünkü ben önceki örnekteki "Sorgu1" sorgusunu sildim. Eğer komut satırındaki "SQL1" önceki örnek dosyamdaki "Sorgu1" sorgusundan veri çekiyorsa tekrar oluşturacağım.
Eğer kendisi oluşturuyorsa aşağıdaki komutun "rsSQL1.Fields" kısmında hata veriyor.
If Varmi = 0 Then
DoCmd.RunSQL "INSERT INTO tblHarcliklar (SıraID,YilID, Ay, Ekgosterge, Katsayi, Yuvarlama, Odenen, Odemebir, Odemeiki, Odemeuc, Odemedort, Borcbir, Borciki, Borcuc, Borcdort) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & YilDegeri & "','" & Me.txtAy & "','" & Me.akEkgosterge & "', '" & Me.txtKatsayi & "', '" & Me.txtYuvarlama & "', '" & Me.txtOdenen & "', '" & Me.txtOdemebir & "', '" & Me.txtOdemeiki & "', '" & Me.txtOdemeuc & "', '" & Me.txtOdemedort & "','" & Me.txtBorcbir & "','" & Me.txtBorciki & "','" & Me.txtBorcuc & "','" & Me.txtBorcdort & "')"
End If
RE: Alt Tablolarla İşlemler - berduş - 24/10/2020
strSQL1 = "SELECT * FROM Kutukdefteri WHERE (((Durumu)='Aktif') AND ((Yatılılıkdurumu)='Parasız'));"RE: Alt Tablolarla İşlemler - fenerli6774 - 24/10/2020
If Varmi = 0 Then
DoCmd.RunSQL "INSERT INTO tblHarcliklar (SıraID,YilID, Ay, Ekgosterge, Katsayi, Yuvarlama, Odenen, Odemebir, Odemeiki, Odemeuc, Odemedort, Borcbir, Borciki, Borcuc, Borcdort) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & YilDegeri & "','" & Me.txtAy & "','" & Me.akEkgosterge & "', '" & Me.txtKatsayi & "', '" & Me.txtYuvarlama & "', '" & Me.txtOdenen & "', '" & Me.txtOdemebir & "', '" & Me.txtOdemeiki & "', '" & Me.txtOdemeuc & "', '" & Me.txtOdemedort & "','" & Me.txtBorcbir & "','" & Me.txtBorciki & "','" & Me.txtBorcuc & "','" & Me.txtBorcdort & "')"
End If
komut dizesinde yukarıda 3. satırda VALUES("&rsSQL1.Fields...... kısmında hata veriyor. "Fields" kısmında hata veriyor.
"Metod or data member not found" uyarısı veriyor.
RE: Alt Tablolarla İşlemler - fenerli6774 - 24/10/2020
Bahsettiğim problemi çözdüm. Geri dönüş yapacağım.
RE: Alt Tablolarla İşlemler - fenerli6774 - 24/10/2020
If Varmi = 0 Then
DoCmd.RunSQL "INSERT INTO tblHarcliklar (SıraID,YilID, Ay, Ekgosterge, Katsayi, Yuvarlama, Odenen, Odemebir, Odemeiki, Odemeuc, Odemedort, Borcbir, Borciki, Borcuc, Borcdort) VALUES (" & rsSQL1.Fields("SıraID") & ", '" & YilDegeri & "','" & Me.txtAy & "','" & Me.akEkgosterge & "', '" & Me.txtKatsayi & "', '" & Me.txtYuvarlama & "', '" & Me.txtOdenen & "', '" & Me.txtOdemebir & "', '" & Me.txtOdemeiki & "', '" & Me.txtOdemeuc & "', '" & Me.txtOdemedort & "','" & Me.txtBorcbir & "','" & Me.txtBorciki & "','" & Me.txtBorcuc & "','" & Me.txtBorcdort & "')"
End If
komutunun sonuna end if den önce Else ekleyip aynı komutu tekrar yazdım.
Amacım işlemi hatalı yapmış isem verileri güncellemek. İşe yaradı ama eksik oldu.
Güncelleme yapacağına ekleme yaptı.
Ekleme yapmadan önce eski verileri nasıl sildirebilirim.
Yani 2014 yılı Eylül ayı bordrosunu yanlış yaptıysam. Düzeltip tekrar butona bastığımda önceki 2014 yılının eylül ayını silip yeni verileri yazmasını istiyorum.
Bu arada yazdığınız komutları biraz çözer gibi oldum. Teşekkür ediyorum. Özellikle sabrınıza.
RE: Alt Tablolarla İşlemler - feraz - 24/10/2020
Dosyanızı inceleyemedim lakin alttaki kod tablodaki tüm verileri silmesi gerek.tabload yerne hangi tablodaki veriler silinecekse o ad yazılmalı.
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From [tabload]"
DoCmd.SetWarnings Trueİlgili koduda örnek olarak alttaki gibi yaparsanız şartlı siler.
Alttaki sadece bir kalıp fikir açısından.
Delete * From [tabload] WHERE [AlanAd]='Eylül'"