Problema Casella di Riepilogo

[fraduecenny]

Ho una casella di riepilogo del tipo "Tabella/Query"
Questa mi serve per visualizzare l'output di una chiamata SQL

Premendo un bottone dovrebbe comparire nella cesella di riepilogo l'output della query filtrata da un parametro (ID non univoco) che si trova in una casella di testo.

Private Sub Comando11_Click()
    
    Dim strSQL As String
    Dim intAnag As Long
    
    intAnag = ID.Value  /*indicizzo il valore del'ID*/
    
    strSQL = "SELECT ID, data, numero, evento FROM Tabella_Analisi " & _
        " WHERE ID = '" & intAnag & "' ORDER by ID" /*costruisco la chiamata query*/
        
    ListaAnalisi.RowSource = strSQL /*mando in output la query nella casella di riepilogo*/
 
End Sub 

Ma non succede proprio nulla, ma proprio niente di niente. Non riesco a capire perchè questo script l'ho usato 1000 volte in altri contesti.

Lo script è in VBA per Access 2002

[fraduecenny]

Originariamente inviato da fraduecenny

Errore trovato, certe cose sono più fastidiose quando le trovi che non quando non funzionano!!!

Ho messo gli apici ad un intero nella chiamata SQL.

Private Sub Comando11_Click()
    
    Dim strSQL As String
    Dim intAnag As Long
    
    intAnag = ID.Value  /*indicizzo il valore del'ID*/
    
    strSQL = "SELECT ID, data, numero, evento FROM Tabella_Analisi " & _
        " WHERE ID = '" & intAnag & "' ORDER by ID" /*costruisco la chiamata query, OK MA SENZA GLI APICI QUANDO USO L'INTERO :dhò: */
        
    ListaAnalisi.RowSource = strSQL /*mando in output la query nella casella di riepilogo*/
 
End Sub 

Ma non succede proprio nulla, ma proprio niente di niente. Non riesco a capire perchè questo script l'ho usato 1000 volte in altri contesti.

Lo script è in VBA per Access 2002