o problema é alterar o código para alem dos filtros que faz me filtre também entre datas
Junto o bd
O que necessita codificar é a parte laranja do formulário com a data inicial e data final e que funcione também com os outros filtros
Código que utilizo no botão Filtrar
- Código:
Private Sub Command28_Click()
Dim strSQL As String, intCounter As Integer
'Build SQL String
For intCounter = 1 To 9
If Me("Filter" & intCounter) <> "" Then
If Me("Filter" & intCounter).Tag = "Dia" Then
strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = #" & Format(Me("Filter" & intCounter), "mm/dd/yyyy") & "# And "
Else
strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " And "
End If
End If
Next
If strSQL <> "" Then
'Strip Last " And "
strSQL = Left(strSQL, (Len(strSQL) - 5))
'Set the Filter property
Reports![NUIPCSREG_38].Filter = strSQL
Reports![NUIPCSREG_38].FilterOn = True
Else
Reports![NUIPCSREG_38].FilterOn = False
End If
End Sub