Si nulo cero

Colaborador

Unido: 03/Julio/2011
Localización: España
Estado: Sin conexión
Puntos: 1759

Tema: Si nulo cero
Enviado: 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.

mounir

Ver perfil usuario

Colaborador

Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6521

Enviado: 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.

xavi

Ver perfil usuario

Visite la página de los usuarios

Administrador

Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14926

Enviado: 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

Mi web

Nomada

Ver perfil usuario