Print vs Assert

   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

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
javier.mil Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4856	Tema: Print vs Assert Enviado: 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

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Enviado: 28/Noviembre/2024 a las 19:40
	Yo considero (y algún otro que yo me se ) 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. Access Aplicaciones Tecsys.es