Ciao a tutti, avrei bisogno di un aiuto per quanto riguarda scrivere un codice VBA, per fare una ricerca tramite una maschera inserendo intervallo tra due date.
Ho visto che si può fare tramite il comando BETWEEN, solo che mi da ancora errore, ma essendo per nulla pratico, non riesco a capire dove sia l'errore. Scrivo qua il codice che ho provato ad inserire:
Private Sub Command85_Click()
Dim t As String
[Form_Blue book].[DR N°].Locked = False
[Form_Blue book].[PN].Locked = False
[Form_Blue book].[Customer].Locked = False
[Form_Blue book].[Project].Locked = False
[Form_Blue book].[Short_description].Locked = False
[Form_Blue book].[DR start date].Locked = False
[Form_Blue book].[DR done by].Locked = False
t = "SELECT [DR N°],[PN],Customer,Project,[Short_description],[DR start date],[DR done by] FROM [Blue book] Where [DR start date] BETWEEN '*" & Text76.Value And Text78.Value & "*'"
[Form_Blue book].RecordSource = t
[Form_Blue book].Requery
[Form_Blue book].[DR N°].Locked = True
[Form_Blue book].[PN].Locked = True
[Form_Blue book].[Customer].Locked = True
[Form_Blue book].[Project].Locked = True
[Form_Blue book].[Short_description].Locked = True
[Form_Blue book].[DR date].Locked = True
[Form_Blue book].[DR by].Locked = True
End Sub
In pratica vorrei semplicemente che tramite i campi Text76 e Text78 si inserisca l'intervallo di date richiesto, e vengano stampati a video tutti i campi messi dopo "SELECT".
Cosa sto sbagliando?
Grazie a tutti