Hello, I just signed up for this forum while researching, and i come accross problem whit my code, i can't resolve it, so if someone see something i don't pls help.
Code:
Private Sub Command26_Click()
Dim strSQL As String
strSQL = "INSERT INTO [Prodata_djela] ([ID],[Ime djela],[Tehnika slikanja],[Godina_stvaranja],[Fotografija],[Umjetnik_id])"
strSQL = strSQL + " SELECT [Umjetnicko_djelo].[ID],[Umjetnicko_djelo].[Ime djela],[Umjetnicko_djelo].[Tehnika_slikanja],[Umjetnicko_djelo].[godina_stvaranja],[Umjetnicko_djelo].[Fotografija],[Umjetnicko_djelo].[Umjetnik_ID]"
strSQL = strSQL + " WHERE Prodata_djela.ID= ')" & Me.[ID] & ""
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings True
End Sub