Imprimir página | Cerrar ventana

Si nulo cero

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84990
Fecha de impresión: 27/Marzo/2026 a las 06:03


Tema: Si nulo cero
Publicado por: Nomada
Asunto: Si nulo cero
Fecha de publicación: 06/Febrero/2020 a las 20:10
Buenas.
Como puedo hacer para que al salir de un campo tipo Moneda, si borro su contenido y no escribo nada, muestre 0?

Gracias.


Respuestas:
Publicado por: mounir
Fecha de publicación: 06/Febrero/2020 a las 20:30
Hola!
Supongamos que el campo se llama "Precio", en el formulario podrías poner este código:-

Private Sub Form_Current()
Me.precio = IIf(IsNull(Me.precio), "0", Me.precio)
End Sub

Private Sub precio_Exit(Cancel As Integer)
Me.precio = IIf(IsNull(Me.precio), "0", Me.precio)
End Sub


-------------
Un Saludo.

Publicado por: xavi
Fecha de publicación: 06/Febrero/2020 a las 23:20
Hay un pequeño matiz. Si borro el contenido y no escribo nada, el campo no es nulo: es vacío. 

Hay que controlar los 3 posibles valores que puede contener un control cuadro de texto aparentemente nulo: el propio nulo, el vacío ("") o un espacio. Visualmente son lo mismo pero informaticamente no.

En el evento Exit

If Trim(Nz(Me!Precio, "")) = "" Then Me!Precio = 0

Un saludo



-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Nomada
Fecha de publicación: 07/Febrero/2020 a las 17:30
Gracias a los dos.
Perfecto. He optado por la solución de xavi.
Este hilo se puede cerrar satisfactoriamente.
Saludos.


Imprimir página | Cerrar ventana