filtro combinato FILTER
- FabioM1
- Autore della discussione
- Visitatori
6 Anni 1 Mese fa #435
da FabioM1
FabioM1 ha creato la discussione filtro combinato FILTER
Private Sub cmd_applica_filtro_Click()
Dim filtro As String
Dim filtro_cliente As String
Dim filtro_evaso As String
Dim and1 As String
filtro_cliente = "[an_descr1]='" & Me.cmb_flt_cliente & "'"
filtro_evaso = "[fl_evaso]='" & Me.cmb_flt_evaso & "'"
and1 = " AND "
If IsNull(Me.cmb_flt_cliente) And IsNull(Me.cmb_flt_evaso) Then
Me.FilterOn = False
Me.Requery
Else
If IsNull(Me.cmb_flt_cliente) Then
filtro_cliente = ""
and1 = ""
End If
If IsNull(Me.cmb_flt_evaso) Then
filtro_evaso = ""
and1 = ""
End If
filtro = filtro_cliente & and1 & filtro_evaso
Me.Filter = filtro
Me.FilterOn = True
Me.Requery
End If
End Sub
Private Sub cmd_clear_flt_clienti_Click()
Me.cmb_flt_cliente = Null
Call cmd_applica_filtro_Click
End Sub
Private Sub cmd_clear_flt_evaso_Click()
Me.cmb_flt_evaso = Null
Call cmd_applica_filtro_Click
End Sub
Dim filtro As String
Dim filtro_cliente As String
Dim filtro_evaso As String
Dim and1 As String
filtro_cliente = "[an_descr1]='" & Me.cmb_flt_cliente & "'"
filtro_evaso = "[fl_evaso]='" & Me.cmb_flt_evaso & "'"
and1 = " AND "
If IsNull(Me.cmb_flt_cliente) And IsNull(Me.cmb_flt_evaso) Then
Me.FilterOn = False
Me.Requery
Else
If IsNull(Me.cmb_flt_cliente) Then
filtro_cliente = ""
and1 = ""
End If
If IsNull(Me.cmb_flt_evaso) Then
filtro_evaso = ""
and1 = ""
End If
filtro = filtro_cliente & and1 & filtro_evaso
Me.Filter = filtro
Me.FilterOn = True
Me.Requery
End If
End Sub
Private Sub cmd_clear_flt_clienti_Click()
Me.cmb_flt_cliente = Null
Call cmd_applica_filtro_Click
End Sub
Private Sub cmd_clear_flt_evaso_Click()
Me.cmb_flt_evaso = Null
Call cmd_applica_filtro_Click
End Sub
Si prega Accedi a partecipare alla conversazione.
Tempo creazione pagina: 0.108 secondi
- Sei qui:
- Home
- Forum
- MsAccess 2010 - Sharepoint 2010
- filtro combinato FILTER