[VBA/ACCESS]Errore durante esecuizione di una query

[Astharot]

Ho una casella combinata, dopo l aggiornamento (in cui scelgo dei campi da trovare in una tabella) eseguo la seguente query:

Private Sub Ricerca_Cliente_per_Aggiornare_Acquisto_AfterUpdat e()

Dim sSql As String
Dim sSelect As String
Dim sWhere As String

sSelect = "Select Acquisti.Cod_Acquisti, Acquisti.Cod_Cliente, Acquisti.Cod_Progressivo, Acquisti.Tipo_Acquisto, Acquisti.Numero, Acquisti.Importo_Totale, Acquisti.Data, Acquisti.Note From Acquisti "
sWhere = "Where Acquisti.Cod_Cliente Like '" & Replace(Me.Ricerca_Cliente_per_Aggiornare_Acquisto .Column(0), "'", "''") & "'" & " and Acquisti.Cod_Progressivo Like '" & Replace(Me.Ricerca_Cliente_per_Aggiornare_Acquisto .Column(1), "'", "''") & "'"
sSql = sSelect & sWhere

Set rs = CurrentProject.Connection.Execute(sSql)

If Not IsNull(rs(0).Value) Then
Me.Cod_Acquisti = rs(0).Value
Me.Cod_Cliente = rs(1).Value
Me.Cod_Progressivo = rs(2).Value
Me.Tipo_Acquisto = rs(3).Value
Me.Numero = rs(4).Value
Me.Importo_Totale = rs(5).Value
Me.Data = rs(6).Value
Me.Note = rs(7).Value
End If

End Sub


l errore che mi appare è il seguente: runtime -21472117904(80040e10)
l errore si verifica soltanto quando nella select ci sono questi campi:
Tipo_Acquisto (stringa 255)
Importo_Totale (numerico [Dimensione campo: Intero lungo; formato:Euro])
Note (stringa 255)
mentre per gli altri campi non mi da nessun problema e me li visualizza correttamente all interno dei textbox della maschera

qualche suggerimento??????

[darksoullight88]

ciao. innanzitutto ti consiglio di dare un'occhiata al regolamento in modo da usare i tag code.
inoltre quando si apre un recordset è buona norma controllare che non sia vuoto con la funzione BOF.
poi basta fare una piccola ricerca su google per capire la natura dell'errore che in questo caso è parametri insufficienti.
prova a farti creare la query da access.probabilmete è qualche campo scritto male.

[gibra]

Prima di eseguire una SELECT, è buona pratica verificare la stringa che sarà inviata al motore del database, ovvero vedere cosa contiene la tua variabile:

sSql

in questo modo è più semplice verificare se e dove c'è un errore.

In VB6 faccio

Debug.Print sSql

In MSAccess, sinceramente non ne ho idea...

[darksoullight88]

la sintassi in vba è la stessa.