offdexter87

salve a tutti...sto lavorando ad un piccolo programmino in access con
dao..e tutto si è inceppato ad un errore di run-tim '13' - Tipo non
corrispondente...
il programmino non deve far altro che leggere i dati in una tabella e
calcolare gli incassi totali tra due date che vengono inseriti
all'interno di due caselle di testo in una maschera...questo è il codice...
_________________________________________________
Private Sub trova_Click()
Dim d As database
Dim t As Recordset
Dim somma As Double
somma = 0
Set d = CurrentDb()
Set t = d.openrecordset("vendite")
t.MoveFirst
Do Until t.EOF
If t![data vendita] >= dal And t![data vendita] <= al Then
somma = somma + totale
End If
t.MoveNext
Loop
ris = somma
t.Close
End Sub
__________________________________________________ _______
dov'è l'intoppo?la tabella di chiama vendite,le due caselle per
l'inserimento delle date si chiamano "dal" e "al" e la casella per
visualizzare il risultato si chiama "ris"...