Skip to main content

AccessTr.neT


Sorgu sonucunu tabloya yazma

Sorgu sonucunu tabloya yazma

Çözüldü #1
Herkese Merhaba ,


Access'e yani başlayan biriyim.Benim iki tane sıkıntım var.

1.) Yazdığım sorgu sonucunu hazırladığım bir tabloya yazmak istiyorum.Bunun için hazırladığım sorgu
Bunun INSERT INTO ile yapamıyorum bana kodun çok uzun olduğunu söylüyor.
Bunu yapmanın başka bir yolu varmıdır?

2.) Hazırladığım bir sorgu sonucunu mevcut olan bir tablonun yada yeni bir tablo yaratarak sorgu sonucu değerleri içine yazmak istiyorum.

Forumda aramaya çalıştım ve bulamadığımdan yeni konu açmak zorunda kaldım.

Emeği geçecek olan herkese şimdiden teşekkürler.

İyi Çalışmalar.
(11/02/2009 11:05)yazaki Adlı Kullanıcıdan Alıntı: Herkese Merhaba ,


Access'e yani başlayan biriyim.Benim iki tane sıkıntım var.

1.) Yazdığım sorgu sonucunu hazırladığım bir tabloya yazmak istiyorum.Bunun için hazırladığım sorgu
Bunun INSERT INTO ile yapamıyorum bana kodun çok uzun olduğunu söylüyor.
Bunu yapmanın başka bir yolu varmıdır?

2.) Hazırladığım bir sorgu sonucunu mevcut olan bir tablonun yada yeni bir tablo yaratarak sorgu sonucu değerleri içine yazmak istiyorum.

Forumda aramaya çalıştım ve bulamadığımdan yeni konu açmak zorunda kaldım.

Emeği geçecek olan herkese şimdiden teşekkürler.

İyi Çalışmalar.


2 ikinci sorum yanlış olmuş. özür dilerim.
Tekrar yazıyorum.

Mevcut ana tablomun her ay yeni bir tablo olarak kaydedilmesidir.Bunu kullanıcının yapmasını nasıl sağlarım.

İyi Çalışmalar.
Son Düzenleme: 11/02/2009, 11:08, Düzenleyen: yazaki.
Cevapla
Çözüldü #2
cok saol paylasım
Cevapla
Çözüldü #3
1. soru için tablo veya sorgunun ne olduğu gerekli.


2. sorunun cevabı.
Forma buton ekle tıklandığında olayına
Kod
DoCmd.CopyObject CurrentProject.FullName, Format(Date, "mm"), acTable, "Tablo"

koddaki
"DoCmd.CopyObject CurrentProject.FullName" dosyanın dizini ile birlikte adı, bu kısmı değiştirmene gerek yok
"Format(Date, "mm")" kopyalanan dosyanın yeni adı (02) olarak belirler.
"Tablo" Kopyalanacak tablonun adı
Kod
DoCmd.CopyObject CurrentProject.FullName, Format(Date, "mm") & "Tablo", acTable, "Tablo"

yukarıdaki kod ile de tablo adının başına ay yazarak kaydeder tablo adı "personel" ise "02Personel" olarak tablonun kopyasını ekler. Tabiki mart ayında "03Personel"

konu ile ilgili örnek ektedir.
.rar Yeni Microsoft Office Access Uygulaması.rar (Dosya Boyutu: 14,71 KB | İndirme Sayısı: 65)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #4
Sayın sledgeab;

Benim için de iyi bir örnek oldu. Teşekkürler.
Cevapla
Çözüldü #5
Sayın sledgeab,

Öncelikle hem hızlı hemde doğru cevabınız için tekrar teşekkür ederim.

birinci sorunum olan sorguyu gönderiyorum.Bu sorgu sonucunu hazırladığım ODEME tablosuna insert etmek istiyorum.
Sutun isimlerim bire bir aynıdır.

Çok efektif bir şey değil ama dediğim gibi cok acemi olduğum için elimden gelen şimdilik bu .

Tekrar Teşekkürler.

SELECT DISTINCT TDR.CLCARDCODE, TDR.CLCARDNAME, TDR.VADE, Sum(TDR!TEMMUZ_TEDARIK*TDR!FIYAT_1) AS TEMMUZ_ODEME, Avg(IIf(TDR!TEMMUZ_TEDARIK*TDR!FIYAT_1>0,CDate("01.07.2008")+TDR!VADE)) AS TEMMUZ_VADE, TDR.PARACINSI AS [DOVIZ 01], Sum(TDR!AGUSTOS_TEDARIK*TDR!FIYAT_1) AS AGUSTOS_ODEME, Avg(IIf(TDR!AGUSTOS_TEDARIK*TDR!FIYAT_1>0,CDate("01.08.2008")+TDR!VADE)) AS AGUSTOS_VADE, TDR.PARACINSI AS [DOVIZ 02], Sum(TDR!EYLUL_TEDARIK*TDR!FIYAT_1) AS EYLUL_ODEME, Avg(IIf(TDR!EYLUL_TEDARIK*TDR!FIYAT_1>0,CDate("01.09.2008")+TDR!VADE)) AS EYLUL_VADE, TDR.PARACINSI AS [DOVIZ 03], Sum(TDR!EKIM_TEDARIK*TDR!FIYAT_1) AS EKIM_ODEME, Avg(IIf(TDR!EKIM_TEDARIK*TDR!FIYAT_1>0,CDate("01.10.2008")+TDR!VADE)) AS EKIM_VADE, TDR.PARACINSI AS [DOVIZ 04], Sum(TDR!KASIM_TEDARIK*TDR!FIYAT_1) AS KASIM_ODEME, Avg(IIf(TDR!KASIM_TEDARIK*TDR!FIYAT_1>0,CDate("01.11.2008")+TDR!VADE)) AS KASIM_VADE, TDR.PARACINSI AS [DOVIZ 05], Sum(TDR!ARALIK_TEDARIK*TDR!FIYAT_1) AS ARALIK_ODEME, Avg(IIf(TDR!ARALIK_TEDARIK*TDR!FIYAT_1>0,CDate("01.12.2008")+TDR!VADE)) AS ARALIK_VADE, TDR.PARACINSI AS [DOVIZ 06], Sum(TDR!OCAK_TEDARIK*TDR!FIYAT_2) AS OCAK_ODEME, Avg(IIf(TDR!OCAK_TEDARIK*TDR!FIYAT_2>0,CDate("01.01.2009")+TDR!VADE)) AS OCAK_VADE, TDR.PARACINSI AS [DOVIZ 07], Sum(TDR!SUBAT_TEDARIK*TDR!FIYAT_2) AS SUBAT_ODEME, Avg(IIf(TDR!SUBAT_TEDARIK*TDR!FIYAT_2>0,CDate("01.02.2009")+TDR!VADE)) AS SUBAT_VADE, TDR.PARACINSI AS [DOVIZ 08], Sum(TDR!MART_TEDARIK*TDR!FIYAT_2) AS MART_ODEME, Avg(IIf(TDR!MART_TEDARIK*TDR!FIYAT_2>0,CDate("01.03.2009")+TDR!VADE)) AS MART_VADE, TDR.PARACINSI AS [DOVIZ 09], Sum(TDR!NISAN_TEDARIK*TDR!FIYAT_2) AS NISAN_ODEME, Avg(IIf(TDR!NISAN_TEDARIK*TDR!FIYAT_2>0,CDate("01.04.2009")+TDR!VADE)) AS NISAN_VADE, TDR.PARACINSI AS [DOVIZ 10], Sum(TDR!MAYIS_TEDARIK*TDR!FIYAT_2) AS MAYIS_ODEME, Avg(IIf(TDR!MAYIS_TEDARIK*TDR!FIYAT_2>0,CDate("01.05.2009")+TDR!VADE)) AS MAYIS_VADE, TDR.PARACINSI AS [DOVIZ 11], Sum(TDR!HAZIRAN_TEDARIK*TDR!FIYAT_2) AS HAZIRAN_ODEME, Avg(IIf(TDR!HAZIRAN_TEDARIK*TDR!FIYAT_2>0,CDate("01.06.2009")+TDR!VADE)) AS HAZIRAN_VADE, TDR.PARACINSI AS [DOVIZ 12], Sum((TDR!TEMMUZ_TEDARIK*TDR!FIYAT_1)+(TDR!AGUSTOS_TEDARIK*TDR!FIYAT_1)+(TDR!EYLUL_TEDARIK*TDR!FIYAT_1)+(TDR!EKIM_TEDARIK*TDR!FIYAT_1)+(TDR!KASIM_TEDARIK*TDR!FIYAT_1)+(TDR!ARALIK_TEDARIK*TDR!FIYAT_1)+(TDR!OCAK_TEDARIK*TDR!FIYAT_2)+(TDR!SUBAT_TEDARIK*TDR!FIYAT_2)+(TDR!MART_TEDARIK*TDR!FIYAT_2)+(TDR!NISAN_TEDARIK*TDR!FIYAT_2)+(TDR!MAYIS_TEDARIK*TDR!FIYAT_2)+(TDR!HAZIRAN_TEDARIK*TDR!FIYAT_2)) AS TOPLAM
FROM TDR GROUP BY TDR.CLCARDCODE, TDR.CLCARDNAME, TDR.VADE, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI, TDR.PARACINSI
Son Düzenleme: 11/02/2009, 13:29, Düzenleyen: yazaki.
Cevapla
Çözüldü #6
sn yazaki, bu şekilde çözüm bulunması zor, örneği ekleyebilir misin?
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da