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