Ho risolto il filtro nel modo seguente:
dDataFiltro = DateSerial(cboAnno, cboMese, 1) 'valorizzo primo giorno del mese
dDataFiltro1 = DateSerial(Year(dDataFiltro), Month(DateAdd("m", 1, dDataFiltro)), 0) 'valorizzo ultimo giorno del mese
Me.Filter = "DATAtabDFda >=#" & Format(dDataFiltro, "mm/dd/yyyy") & "# AND DATAtabDFda <=#" & Format(dDataFiltro1, "mm/dd/yyyy") & "#" & "AND MEMOtabDFlf Is Null" 'creo il filtro
Me.FilterOn = True 'applico
Ora vorrei migliorare l'inserimento verificando che entrambe le combo siano compilate e ho scritto questo:
Dim dDataFiltro As Date
Dim dDataFiltro1 As Date
If Me.cboMese.Value Is Empty Then
MsgBox "Inserire mese da filtrare", vbOKOnly
cboMese.SetFocus
Exit Sub
Else
If Me.cboAnno.Value Is Empty Then
MsgBox "Inserire anno da filtrare", vbOKOnly
cboAnno.SetFocus
Exit Sub
Else
dDataFiltro = DateSerial(cboAnno, cboMese, 1)
dDataFiltro1 = DateSerial(Year(dDataFiltro), Month(DateAdd("m", 1, dDataFiltro)), 0)
Me.Filter = "DATAtabDFda >=#" & Format(dDataFiltro, "mm/dd/yyyy") & "# AND DATAtabDFda <=#" & Format(dDataFiltro1, "mm/dd/yyyy") & "#" & "AND MEMOtabDFlf Is Null"
Me.FilterOn = True
End If
End If
Pero mi da il seguente errore sull prima If: "Necessario oggetto". Dove sbaglio?