[VBA ACCESS] problema

[mephistole]

Ciao a tutti..
in questo codice..

...
Private Sub Comando25_Click()
Dim conteggio As String
Dim miodb As DAO.Database
Dim mioRST As DAO.Recordset

conteggio = DCount("Giorno", "T_Mese", WHERE(T_Mese.Mese = Me.Combo_Mese.Column(0)))
MsgBox conteggio


Set miodb = Nothing
Set mioRST = Nothing


End Sub
...
al click del puslante mi da errrore di compilazione: Sub o Function non definita...???
Non capisco il problema!! aiutoooo

[gibra]

Confesso che mastico poco il VBA di Access, ma una cosa è sicura:
è dura se non indichi la riga che genera l'errore.
Che sia DCount(...)

A parte questo, non capisco perchè crei e distruggi due oggetti (miodb e mioRS) che non usi...

[mephistole]

mi da errore in where...e ho creato miodb mioRST per un'altra roba...

[Jeremy75]

Bisognerebbe capire cosa fa DCount ..... ma è sicuro che hai sbagliato qui

........ WHERE(T_Mese.Mese = Me.Combo_Mese.Column(0)))

che sarà sicuramente

"WHERE T_Mese.Mese = " & Me.Combo_Mese.Column(0))

facci sapere....
Ciao

[umbimbo]

non ci và la where:

conteggio = DCount("Giorno", "T_Mese", (T_Mese.Mese = Me.Combo_Mese.Column(0)))