Problema Casella di Riepilogo

[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