L'input per la query deve contenere almeno una query o una tabella

[YaleOCS]

[code]
Private Sub Comando33_Click()
DoCmd.RunSQL "INSERT INTO acquista (ID_Gioco,Data_Acquisto)
VALUES((SELECT (Id)
FROM giochi
WHERE giochi.id = id.value, Date())"
End Sub
[code]