Merhaba,

Bir kaç tablo üzerinden Sorgu tablosu oluşturarak veri çekiyorum, çekmiş olduğum veriyi alt form a yüklüyorum daha sonra bu sorgu tablosundan çekmiş olduğum veriyi farklı bir tabloya kaydetmek istiyorum.

Bu konuda yardımcı olabilir misiniz?

Şimdiden teşekkürler

Örnek uygulamanızı ekleyiniz.

(11/12/2018, 12:25)ozanakkaya yazdı: Örnek uygulamanızı ekleyiniz.

Örnek uygulama harici olarak çalışmıyor ama şu şekil anlatım

Veri tablosu -----

ad
soyad
grubu

Sorgu tablosu -----

Grup bazlı sorgu tablosu oluşturdum ve daha sonra sorguları 
8 adet alt formum var ve grubuna göre alt forumların kaynağını sorgu tablolarından belirttim.

örneğin 5. alt formumda ki verileri farklı bir veri tablosuna kaydetmek istiyorum.

yani sorgu ile alt foruma aldığım verileri nasıl veri tablosuna kaydederim.

Ekleme sorgusu veya ado ile sorgudaki verileri diğer tabloya aktarmak için kod eklemeniz gerekiyor. Kodu yazabilmem için örneği görmem gerekli.

(11/12/2018, 12:41)ozanakkaya yazdı: Ekleme sorgusu veya ado ile sorgudaki verileri diğer tabloya aktarmak için kod eklemeniz gerekiyor. Kodu yazabilmem için örneği görmem gerekli.

Sub Ekle()

 

On Error GoTo ErrorHandler

 

  

Dim strSQL As String

Dim rs As DAO.Recordset



  

strSQL = "SELECT  * FROM SrgMdrTemp "

 

Set rs = CurrentDb.Recordsets(strSQL)

 

With rs

   

    If Not .BOF And Not .EOF Then

        .MoveLast

        .MoveFirst

 

        While (Not .EOF)

CurrentDb.Execute "INSERT INTO "

       

            .MoveNext

 

        Wend

       

    End If

   

    .Close

 

End With

 

ExitSub:

    Set rs = Nothing

 

    Exit Sub

ErrorHandler:

    Resume ExitSub

End Sub

Bu şekil bir kod var ama Set rs = CurrentDb.Recordsets(strSQL) burda hata veriyor

strSQL = "SELECT  * FROM SrgMdrTemp " bunda yazan SrgMdrTemp veri tablosu değil sorgu tablosu

Bu tür sorularda, örneği görmeden kod yazmak, hazır kodu düzeltmek zor.

        While (Not .EOF)

CurrentDb.Execute "INSERT INTO "

       

            .MoveNext

 

        Wend

Bu kısım hatalı, tablo, sorgu ve formun bulunduğu örnek uygulama eklerseniz incelenip kod yardımında bulunulabilir. Sorunuz görünüş itibariyle ekleme sorgusu ile çözülecek, ancak tablodaki alanlar ne, tablo isimleri ne bilmediğim için kod ekleyemem.