+- 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ığı: Aktarma Hatası (/konu-aktarma-hatasi--91134.html)
Sayfalar:
1
2
Aktarma Hatası - ates2014 - 11/07/2024
Arkadaşlar, aşağıdaki kod ile sorgudaki verileri tabloya aktarmak istiyorum
Set rst1 = CurrentDb.OpenRecordset("SELECT * FROM S_MdfRct where UrunAdi ='" & [Urun] & "'")
bu satır hata veriyor neden acaba.?
Private Sub Komut15_Click()
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("SELECT * FROM S_MdfRct where UrunAdi ='" & [Urun] & "'")
Set rst2 = CurrentDb.OpenRecordset("select * MdfRecete ")
With rst1
Do While Not .EOF
rst2.AddNew
rst2!UrunAdi = !Yeni
rst2!ParcaAdi = !ParcaAdi
rst2!En = !En
rst2!Boy = !Boy
rst2!TakimSay = !TakimSay
rst2!Rengi = !Rengi
rst2.Update
.MoveNext
Loop
End With
End Sub
RE: Aktarma Hatası - berduş - 11/07/2024
Koşulsuz kullandığınızda hata veriyor mu?
urunadi, met8n mi sayısal mı?
urun degeri nereden geliyor, boş olma ihtimali var mı?
RE: Aktarma Hatası - onur_can - 11/07/2024
sn berduş, hatanın nereden kaynaklanabileceğini belirtmiş, alan türüne göre sözdizimi değişebilir. Ayrıca boş olursa yönlendrme yapılması gerekir.
Kodunuzda da bazı eksik ve hatalı kısımlar var. Set yaptığınız nesneleri Kapatma komutları kullanmamışsıniz.
Kod:
Set rst2 = CurrentDb.OpenRecordset("select * MdfRecete ")örnek eklerseniz daha net çözümler sunulabilir.
RE: Aktarma Hatası - ates2014 - 11/07/2024
Merhabalar, şart metinsel, sorgudaki alan adı "UrunAdi" form üzerindeki kontrol metin kutusu adı "Urun"
sorgunun Sql kodu aşağıda
SELECT MdfRecete.UrunAdi, MdfRecete.ParcaAdi, MdfRecete.En, MdfRecete.Boy, MdfRecete.TakimSay, MdfRecete.Mt2, MdfRecete.Rengi, CCur(Nz(DLookUp("BrmFiyat","Hammaddeler","Hammadde='" & [Rengi] & "'"),0)) AS Fiyat, [Mt2]*[Fiyat] AS Tutar
FROM MdfRecete
WHERE (((MdfRecete.UrunAdi)=[Formlar]![F_RECETE_HAZIRLAMA]![Urun]));
RE: Aktarma Hatası - ates2014 - 11/07/2024
Sorunumu çözdüm arkadaşlar, o sorguyu form üzerinden filitrelediğim için olmuyormuş malesef,
ilginiz için çok tşk ederim...
RE: Aktarma Hatası - berduş - 11/07/2024
recordset ile tek tek dolaşmanıza gerek yok aslında
kabaca aşağıdakine benzer bir kod işinizi görür
xSQL = " INSERT INTO S_MdfRct ( Id, UrunAdi, SURNAME, GENDER, BIRTHDATE, CITY, TOWN, TELNR )" & _
" SELECT Id, UrunAdi, SURNAME, GENDER, BIRTHDATE, CITY, TOWN, TELNR" & _
" FROM MdfRecete" & _
" where UrunAdi ='" & Urun & "'"
CurrentDb.Execute xSQLkoddaki alan adlarını kendi tablonuza uyarlamalısınız