mensaje si no encuentra datos en una tabla al aplicar filtro
Publicado por DIGIROY (27 intervenciones) el 06/11/2018 20:58:47
Tengo una base donde en un formulario capturo datos por mes y año ,y otro formulario hace una consulta con los mismos criterios, pero quiero que al momento que haga la consulta, si no tengo datos capturados por determinado mes y año me aparezca un mensaje donde indique que no existen y no me haga el filtro en el formulario, ya que mi formulario se pone en blanco.
Agradezco de antemano su atención y espero puedan apoyarme
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Comando259_Click()
Dim filtro1, MES1, AÑO1 As String
Dim largo As Integer
AÑO1 = Nz(Me.AÑO1, 0)
MES1 = Nz(Me.MES1, "")
filtro1 = ""
If AÑO1 <> 0 Then
If MES1 <> "" Then
filtro1 = filtro1 & " and [ESTADO1] = '" & est1 & "'"
filtro1 = filtro1 & " and [AÑO1] = '" & AÑO1 & "'"
filtro1 = filtro1 & " and [MES1] = '" & MES1 & "'"
largo = Len(filtro1)
If largo > 0 Then '2
filtro1 = Right(filtro1, largo - 4)
End If '2
Me.[SUB_CONSULTA-2].Form.Filter = filtro1
Me.[SUB_CONSULTA-2].Form.FilterOn = True
Else
MsgBox "Seleccione un mes"End If
Else
MsgBox "Seleccione un año"End If
End Sub
Agradezco de antemano su atención y espero puedan apoyarme
Valora esta pregunta
0