filtro combinato FILTER

  • FabioM1
  • Avatar di FabioM1 Autore della discussione
  • Visitatori
  • Visitatori
3 Anni 11 Mesi 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

Si prega Accedi a partecipare alla conversazione.

Tempo creazione pagina: 0.163 secondi
Powered by Forum Kunena