Private Sub Comando32_Click()
If IsNull(Me.txt_inicio) Or IsNull(Me.txt_fin) Then
MsgBox "Es necesario ingresar las fechas del periodo a buscar", vbCritical
Exit Sub
Else
Select Case Lista0
Case Is = "Beneficiario"
On Error GoTo etiqueta
Me.listatramites.RowSource = "SELECT Id_tram,area_tram,folio_tram,fecha_tram,nombre_beneficiarios,concepto_tram,neto_pagar,Descripcion_fuente,fecha_lista_pres" & _
",fecha_lista_caja,n_clc_pagos,fecha_pagos FROM estatus_pagos WHERE [nombre_beneficiarios] LIKE '*" & Texto2 & "*' AND [fecha_tram] BETWEEN #" & Me.txt_inicio & "# AND #" & Me.txt_fin & "# ORDER BY estatus_pagos.folio_tram ASC;"
Case Is = "Concepto"
On Error GoTo etiqueta
Me.listatramites.RowSource = "SELECT Id_tram,area_tram,folio_tram,fecha_tram,nombre_beneficiarios,concepto_tram,neto_pagar,Descripcion_fuente,fecha_lista_pres" & _
",fecha_lista_caja,n_clc_pagos,fecha_pagos FROM estatus_pagos WHERE [concepto_tram] LIKE '*" & Texto2 & "*' AND [fecha_tram] BETWEEN #" & Me.txt_inicio & "# AND #" & Me.txt_fin & "# ORDER BY estatus_pagos.folio_tram ASC;"
Case Is = "Todo"
On Error GoTo etiqueta
Me.listatramites.RowSource = "SELECT Id_tram,area_tram,folio_tram,fecha_tram,nombre_beneficiarios,concepto_tram,neto_pagar,Descripcion_fuente,fecha_lista_pres" & _
",fecha_lista_caja,n_clc_pagos,fecha_pagos FROM estatus_pagos WHERE [fecha_tram] BETWEEN #" & Me.txt_inicio & "# AND #" & Me.txt_fin & "# ORDER BY estatus_pagos.folio_tram ASC;"
End Select
Call cuenta_registros
Call suma_monto
End If
etiqueta:
If Err.Number = 91 Then
MsgBox "Es necesario ingresar las fechas del periodo a buscar", vbInformation, "ATENCIÓN"
End If
End Sub