Herkese Selamlar
Bir formum ve ona bağlı alt formum var.
amacım bir buton veya başka bir şekilde alt formdaki verileri başka bir tabloya almak.
şimdiden teşekkürler.

Command6 tıklandığında olayına;

Private Sub Command6_Click()



Dim txtSql As String

txtSql = " INSERT INTO KAYIT ( adi, DEPARTMAN ) " & _

         " SELECT ADLAR.ADI, DEPARTMAN.DEPARTMAN " & _

         " FROM DEPARTMAN INNER JOIN ADLAR ON DEPARTMAN.DPTID = ADLAR.DEPARTMANF " & _

         " WHERE (((DEPARTMAN.DPTID)=" & Me.DPTID & "))"



CurrentDb.Execute txtSql

End Sub

yazarak dener misiniz?
dilerim işinize yarar

Hocam Çok Teşekkürler...
Kayıt yapıyor

(31/07/2019, 17:49)aydint33 yazdı: Hocam Çok Teşekkürler...
Kayıt yapıyor

Birde acaba kayıt yaptığım yer. değerlerini birincil anahtardan alsa gene kayıt yapabilirmiyim.. aynı kodla olmadı ama

"adlar" tablosundaki "ADID" alanını da mı almasını istiyorsunuz "KAYIT" tablosuna?
peki birincil anahtar kayıt tablosundaki "ID" alanına mı eklenecek?
eğer öyleyse "KAYIT" tablosundaki "ID" alanının türü otomatik sayı değil sadece sayı olmalı

hocam kayıt tablosundaki adi ve departman metin değerinde. Kayıt yaparken metin değerleri değilde karşılık anahtar değerleri gelebilirmi. 
tam anlatabildimmi bilemiyorum.