Imprimir página | Cerrar ventana

Print vs Assert

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=87022
Fecha de impresión: 26/Marzo/2026 a las 15:29


Tema: Print vs Assert
Publicado por: javier.mil
Asunto: Print vs Assert
Fecha de publicación: 28/Noviembre/2024 a las 18:54
Buenas

Quería compartir la instrucción ASSERT de VBA , que recientemente descubrí por accidente. Supongo que para los mas PROS de Access ya la conocéis peroooo por si acaso hay todavía algún despistado que No la conocía.....


Para probar: Crear un formulario en blanco (vacio) con 2 botones de comando y luego pulsar cada uno de los botones y veréis el resultado que produce

Private Sub Command1_Click()
      Dim x As Integer
      x = 5


Debug.Print x > 0        ' << Ver resultado en la ventana de Inmediato
Debug.Assert x > 0     ' << No pasa nada porque x > 0 es True

End Sub


Private Sub Command2_Click()
      Dim x As Integer
      x = 5

Debug.Print x < 0      ' << Ver resultado en la ventana de Inmediato
Debug.Assert x < 0    ' << Detendrá la ejecución del programa  porque x < 0 es False

End Sub


 



-------------
https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info





Respuestas:
Publicado por: Mihura
Fecha de publicación: 28/Noviembre/2024 a las 19:40
Yo considero (y algún otro que yo me se Wink) mucho más simple poner un IF con un  STOP.

If x < 0 then Stop

y a partir de ahí, a buscar el gazapo.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Imprimir página | Cerrar ventana