Private Sub Command6_Click()

Dim txtSql As String

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

         " SELECT ADLAR.ADID " & _

         " FROM ADLAR " & _

         " WHERE (((ADLAR.DEPARTMANF)=" & Me.DPTID & "))"



CurrentDb.Execute txtSql



End Sub

dilerim işinize yarar
iyi çalışmalar