tablodan tabloya 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 tabloya gönderme (/konu-tablodan-tabloya-gonderme.html) Sayfalar:
1
2
|
tablodan tabloya gönderme - akd - 28/01/2010 Merhaba arkadaşlar, aşağıdaki kod ile KategoriTanimlama tablosundaki kategori seçimine göre, formdaki seçilen firma FrmID numarası ile UrunSatis tablosuna aktarmak istedim, FrmID alan adını ekleyince hata veriyor. onun yerine 0 ekleyince çalışıyor lakin işime yaramıyor çünkü aktarılanların hangi firmaya ait oldugunu tanımlamam lazım. Dim akd As ADODB.Connection Set akd = Application.CurrentProject.Connection akd.Execute " insert into UrunSatis(MstID, Katagori, Tanimlama, Aciklama, Siralama) select FrmID, Katagori, Tanimlama, Aciklama, Siralama from [KategoriTanimlama] where Katagori='" & ktg & "'" akd.Execute "delete * from UrunSatis where Katagori <> Katagori " akd.Close Set akd = Nothing Cvp: tablodan tabloya gönderme - Seruz - 28/01/2010 Burada kullandığınız select cümlesine göre, Kod:
select FrmID, Katagori, Tanimlama, Aciklama, Siralama from [KategoriTanimlama] Test edemedim ancak FrmID yerine SiraNo yazarsanız doğru çalışır. Yok, ben tablodaki Sirano alanını değilde formdaki FrmID adlı metin kutusundaki bilgiyi yazdırmak istiyorum diyorsanız. Şu şekilde yazmalısınız. Kod:
akd.Execute " insert into UrunSatis(MstID, Katagori, Tanimlama, Aciklama, Siralama) select "& me.FrmID & ", Katagori, Tanimlama, Aciklama, Siralama from [KategoriTanimlama] where Katagori='" & me.ktg & "'" Cvp: tablodan tabloya gönderme - akd - 29/01/2010 Çok teşekkür ederim sayın seruz, elinize sağlık. aynı kategoriyi birdaha kaydetmemesi için aşağıdaki kodu yazdım, daha basit bir denetleme şekli varmı acaba? If Dlookup ("Katagori", "UrunSatis", "Katagori='" & [ktg] & "'") = [ktg] Then MsgBox " Bu Kategoriden Daha Önce Kayıt Yapılmış...", vbInformation, "Akd.yazılım..." Exit Sub End If Cvp: tablodan tabloya gönderme - Nurullah_Serdar - 29/01/2010 tablo özelliklerinden hangi alanda yenileme olmasını istemiyorsan alanın yenileme özelliğini hayır yap. Cvp: tablodan tabloya gönderme - akd - 29/01/2010 bu formda o özelligi kulanamam serdar kardeşim, çünkü, 1 firmaya 1 kategoriden 1 takım kayıt yapılsın istiyorum, 1 takımın içinde 20 den fazla aynı deger kaydediliyor. Cevabın için teşekkür ederm... Cvp: tablodan tabloya gönderme - Nurullah_Serdar - 29/01/2010 o zaman If DCount("Katagori", "UrunSatis", "Katagori='" & [ktg] & "'") <> 0 Then MsgBox " Bu Kategoriden Daha Önce Kayıt Yapılmış...", vbInformation, "Akd.yazılım..." Exit Sub End If kodunu kullanacaksın. |