Buongiorno a tutti. Ho un problema che non riesco a superare nonostante le molte ore impiegate in ricerche su svariati forum e in molte prove.
Ho il seguente codice vba:
Option Compare Database
'------------------------------------------------------------
' pippo
'
'------------------------------------------------------------
Function pippo()
On Error GoTo pippo_Err
Dim qd As QueryDef
Dim strQryName As String
Dim strSQLTest As String
strQryName = "test"
Dim TQuery As QueryDef
For Each TQuery In CurrentDb.QueryDefs
If TQuery.Name = "Test" Then CurrentDb.QueryDefs.Delete ("Test")
Next
DoCmd.SetWarnings False
Dim dba As DAO.Database
Dim tabella As DAO.Recordset
Set dba = CurrentDb
Dim id As Variant
Set tabella = dba.OpenRecordset("tbl_tmp_gestione_prodotto", dbOpenDynaset)
id = tabella.Fields("codice_interno")
strSQLTest = "SELECT * FROM tbl_gestione_prodotto WHERE [codice interno] = id"
Set qd = CurrentDb.CreateQueryDef(strQryName, strSQLTest)
DoCmd.OpenQuery (strQryName), acViewNormal, acEdit
pippo_Exit:
Exit Function
pippo_Err:
MsgBox Error$
Resume pippo_Exit
End Function
quando lo eseguo il codice mi presenta una finestra di dialogo chiedendomi di inderire il valore id.
quello che voglio ottenere è che la query lavori usando come parametro per la clausola WHERE la variabile id come valore.
grazie.