Tablodan toplu gönderme - Baskı Önizleme +- 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ığı: Tablodan toplu gönderme (/konu-tablodan-toplu-gonderme.html) |
Tablodan toplu gönderme - akd - 04/02/2010 Merhaba arkadaşlar, Ekleyecegim tablo 5 alanlı, alacağım tablo 3 alanlı, 2.alana formdaki 1 Metin kutusunun degerini göndermek istedim olumuyor 0 degeri ekleyince gidiyor metin kutusunu nasıl koda enpoze edecem bulamadım. Dim akd As ADODB.Connection, i As Integer Set akd = Application.CurrentProject.Connection akd.Execute " insert into Stok_Olustur(Katagori,Model,Tanimlama,Aciklamalar,Siralama) select Katagori," & Me.md & ",Tanimlama,0,Siralama from KategoriTanimlama where Katagori='" & Me.ktg & "'" akd.Execute "delete * from Stok_Olustur where IsNull(Katagori) " akd.Close Set akd = Nothing Me.Requery metin kutusunun adı Me.md bunun yerine 0 eklersem çalışıyor ama o alana bu metin kutusundaki degeri atamam gerek. Cvp: Tablodan toplu gönderme - akd - 04/02/2010 Arkadaşlar kodda şu kanıya vardım, metinsel degerlerde çalışmıyor, sayısal degerlerde çalışıyor ama verinin gidecegi yer metin olarak tanımlamış ama kabul etmiyor. metin kutusuna sayısal 1 deger yazınca aktarma işlemini yapıyor. Neden acaba? Cvp: Tablodan toplu gönderme - akd - 05/02/2010 programı ekliyorum arkadaşlar. Cvp: Tablodan toplu gönderme - Nurullah_Serdar - 05/02/2010 2003 ekleyemiyor musun örneğini. 'tablo1 verileri alacağın tablo 'tablo2 verileri göndereceğin tablo Dim rst1 As dao.Recordset Dim rst2 As dao.Recordset Set rst1 = CurrentDb.OpenRecordset("select * from tablo1") Set rst2 = CurrentDb.OpenRecordset("select * from tablo2") With rst1 Do While Not .EOF rst2.AddNew rst2!tablo2dekialanadı = !tablo1dekialanadı rst2!tablo2dekialanadı = !tablo1dekialanadı rst2!tablo2dekialanadı = !tablo1dekialanadı rst2.Update .MoveNext Loop End With bu kodu denermisin. Cvp: Tablodan toplu gönderme - Seruz - 05/02/2010 Metin olarak tanımlı alanlara veri atarken tek tırnak (') işaretlerini de ilave etmek gerekiyor. Test edemedim ancak kodu aşağıdaki şekilde düzeltirseniz çalışması gerekir. Kod:
akd.Execute " insert into Stok_Olustur(Katagori,Model,Tanimlama,Aciklamalar,Siralama) select Katagori,'" & Me.md & "',Tanimlama,0,Siralama from KategoriTanimlama where Katagori='" & Me.ktg & "'" Sn. Nurullah_Serdar'ın örneğin de bu işin dao ile nasıl yapıldığını görebilirsiniz. Tercih sizin, istediğinizi kullanın. Cvp: Tablodan toplu gönderme - Nurullah_Serdar - 05/02/2010 abi ben bu tür işlemler için bu yöntemi kullanıyorum. kod sade oluyor. bu seferde hatayı nerede yaptığınızı bulmanız kolaylaşıyor. böyle yazdığım zaman ve bulamadığım bir hata çıktığında msgbox kullanarak kodların satır satır altına alıyorum nereye kadar doğru olduğunu görüyorum ve hata bulması kolay oluyor. |