Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Cerrar automáticamente un formulario que no contenga o muestre datos

Access - Cerrar automáticamente un formulario que no contenga o muestre datos

Volver
Nuevo Tema
<<>>
 
Vista:

Cerrar automáticamente un formulario que no contenga o muestre datos

Publicado por Jose Luis Santiago (2 intervenciones) el 06/11/2016 21:27:50
llamo un formulario atraves de una consulta, pero si no encuentra datos, lo abre en blanco
quiero que si encuentra datos, que muestre un mensaje y no abra el formulario
campo que use se llama IDRQ, y el formulario se llama requis

1
2
3
4
5
6
If Me.IDRQ = Null Then
MsgBox " La tabla no consta de ningun registro"
DoCmd.Close acForm, "requi"
Cancel = True
End
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Cerrar automáticamente un formulario que no contenga o muestre datos

Publicado por jch (65 intervenciones) el 08/11/2016 18:15:36
Buenos días!!!
Solo tendrias que agregarle un else a tu condición if

1
2
3
4
5
6
7
8
9
10
If Me.IDRQ = Null Then
              MsgBox " La tabla no consta de ningun registro"
                DoCmd.Close acForm, "requi"
                 Cancel = True
ELSE
              MsgBox " tiene registros pero no se debe abrir"
 
End
 
End If
en este caso de todos modos abres el formulario yo seria de la idea que evalues la tabla mediante en evento previo a abrir el un formulario, esto se haria contando el numero de regisros de tu tabla si es = 0 entonces no tiene registros else si tiene registros ... etc
Espero te sirva mi comentario
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cerrar automáticamente un formulario que no contenga o muestre datos

Publicado por con este me funciono (2 intervenciones) el 08/11/2016 19:19:08
hola con este fue que me funciono

1
2
3
4
5
6
7
8
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.CEDULA_RNC) Then
MsgBox " La tabla no consta de ningun registro", , "CONTROL CAC"
DoCmd.Close acForm, "vrequis"
Cancel = True
End
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar