Buongiorno,
chiedo aiuto per trovare una soluzione:
Ho testato il codice di sotto ma non funziona.
Ricevo errore come da screen shot postato. Sembra un errore di sintassi.
OBIETTIVO: creare una nuova query utilizzando un parametro che viene generato all'interno del codice stesso (come obiettivo finale il valore parametro (di tipo testo) dovrebbe essere prelevato da un recordset ADO aperto nello stesso codice tramite un ciclo LOOP automatizzando una serie di azioni identificate ad hoc dal codice - > purtroppo non essendo un programmatore vorrei arrivarci passo passo, la parte del recordset devo ancora impostarla).
Ringrazio in anticipo.
Option Compare Database
Private Sub Command0_Click()
Dim Cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Set Cat.ActiveConnection = CurrentProject.Connection
Dim ponum As String
ponum = "NFE1-PI-A-PO-J-001"
Dim strSql As String
strSql = "SELECT PSR.[PO NO], PSR.[PO POS] FROM PSR" _
& "WHERE [PO NO] ='& ponum &'"
cmd.CommandText = strSql
Cat.Views.Append "ListaPO", cmd
Set cmd = Nothing
Set Cat = Nothing
Application.RefreshDatabaseWindow
End Sub
