om veel typen te besparen werkt perfect.
Dim strSQL As String
strSQL = "INSERT INTO [TblAUDIO2] ([Artiest],[Titel],[TIPHIT],[Rel_dat],[COMPONIST],[LAND],[LABEL],[HOELANG])
SELECT [Artiest],[Titel],[TIPHIT],[Rel_dat],[COMPONIST],[LAND],[LABEL],[HOELANG] " & "FROM [TblAUDIO1] " & "
Where [TblAUDIO1].[id]= " & Me![Id] & ""
CurrentDb.Execute strSQL, dbFailOnError
Dim strSQL As String
strSQL = "INSERT INTO [TblAUDIO2] ([Artiest],[Titel],[TIPHIT],[Rel_dat],[COMPONIST],[LAND],[LABEL],[HOELANG])
SELECT [Artiest],[Titel],[TIPHIT],[Rel_dat],[COMPONIST],[LAND],[LABEL],[HOELANG] " & "FROM [TblAUDIO1] " & "
Where [TblAUDIO1].[id]= " & Me![Id] & ""
CurrentDb.Execute strSQL, dbFailOnError
Laatst bewerkt: