02/07/2023 - Antony73 ha scritto:
Il codice è il minimo indispensabile. Si potrebbe implementare con qualche riga di codice che guarda se i campi data sono compilati o meno.
Se uno è compilato e l'altro non è compilato allore chiedere se compilare l'altro se si vuole filtrare anche per intervallo di data.
Da aggiungere nell'evento click ovviamente.
Per me è già tanto, davvero! vorrei approffondire come si fa… fai conto che è la prima volta che mi ci metto a fare qualcosa in access nella mia vita e non ho mai studiato (ho preso il manuale, arriva domani! ;))
Già vedere che una cosa funziona è una scarica di addrenalina! Ma scrivere i codici è ancora una difficile per me, ma ci arriverò mi sta piacendo assai questo nuovo mondo.
Intanto, inserendo la CBO nel codice….. sballa tutto…
Ne sarei felice solo di far funzionare i miei filtri come si dovrebbero!!! ;D
Private Function MyFilterForm() As String
Dim strFilterDate As String
Dim FilterCBODip As String
Dim varSel As Variant
For Each varSel In Me.LisAccert.ItemsSelected
MyFilterForm = MyFilterForm & "'" & Me.LisAccert.ItemData(varSel) & "',"
Next varSel
If MyFilterForm <> vbNullString Then
MyFilterForm = Mid$(MyFilterForm, 1, Len(MyFilterForm) - 1)
MyFilterForm = "accertamenti IN (" & MyFilterForm & ")"
If Len(txtDaData & vbNullString) > 0 And Len(txtAData & vbNullString) > 0 Then
strFilterDate = "ProssimaVisita>=" & CLng(txtDaData) & " and ProssimaVisita<" & CLng(txtAData) + 1
If FilterCBODip <> vbNullString Then
FilterCBODip = "[Dipendente] = """ & Me![CC_Dipendente] & """"
MyFilterForm = MyFilterForm & " and " & strFilterDate & " and " & FilterCBODip
End If
End If
End If