Imprimir página | Cerrar ventana

Como pasar datos de varios cuadros de texto y un c

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=86769
Fecha de impresión: 26/Marzo/2026 a las 17:51


Tema: Como pasar datos de varios cuadros de texto y un c
Publicado por: Zuesangel
Asunto: Como pasar datos de varios cuadros de texto y un c
Fecha de publicación: 07/Septiembre/2023 a las 01:18
Como llenar un cuadro de texto con otros cuadros de texto
Buena tarde compañeros mi inconveniente seria como pasar datos de varios cuadros de texto y un cuadro combiando  a un cuadro de texto,  ingrese un ejemplo.
tengo campos o cuadro de texto con nombre:
IP
IBM
Nombre
Usuario
y cuadro combinado  estos se llenan  y al mismo tiempo se llena o se  copia la información de estos cuadros de texto a un solo cuadro de texto que esta del lado.
lo habia hecho con el generador de expresiones con este código:
=+'************************************'+Car(13)+Car(10)+Nz('IP:')+Nz([IP])+Car(13)+Car(10)+Car(13)+Car(10)+
'IBM:'+[IBM]+Car(13)+Car(10)+Car(13)+Car(10)+'Nombre:'+[Nombre]+Car(13)+Car(10)+Car(13)+Car(10)
+'Usuario:'+[Usuario]+Car(13)+Car(10)+Car(13)+Car(10)+'Sistema:'+[Sistema]+Car(13)+Car(10)+Car(13)
+Car(10)+Nz('Distribuidor:')+Nz([Distribdor].[Column](1))+Car(13)+Car(10)
+'************************************'+Car(13)+Car(10)+'Se validaron correctamente los datos.'
+Car(13)+Car(10)+'Se procede con lo solicitado. 'Car(13)+Car(10)+'************************************', pero cuando  el cuadro de texto o campo IP es nulo con la función NZ ([campo]) se solventa pero sigue apareciendo el texto "IP: ", Nz('IP:') como validarlo si el campo IP es nulo que no imprima el texto texto "IP: " , o abra otra forma de hacerlo talvez con código vba, de antemano gracias por su atención.



-------------
Has el Bien y no mires a quien



Respuestas:
Publicado por: dokk
Fecha de publicación: 07/Septiembre/2023 a las 07:24
Sustituye Car(13)+Car(10)+Nz('IP:')+Nz([IP])
por iif(Nz([IP])=0;"";Car(13)+Car(10)+'IP:'+Nz([IP]))

A ver si funciona.


-------------
Albert Hostein
Aprendiendo cayendo


Publicado por: xavi
Fecha de publicación: 07/Septiembre/2023 a las 07:32
Hola,

Tal como lo punes siempre va a aparecer ya que evalúas el literal 'IP:' que no es nulo

En lugar de utilizar un Nz, trabajar con SiInm y EsNulo (IIf y IsNull en versión inglesa)

Ahora
...+Nz('IP;')+Nz([IP])+Car(13)+Car(10)...
Esto siempre escribe IP: y salta línea


Como creo que funciona
....SiInm(EsNulo([IP]);"";"IP:" & [IP] & Car(13) & Car(10)) ...
Esto solo es escribe 'IP:',  la IP y salta línea si hay valor en la IP

Adicional: el operador de concatenación más académico es el &.

Escrito del tiron

Un saludo


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

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


Publicado por: Zuesangel
Fecha de publicación: 08/Septiembre/2023 a las 05:35
Estimado xavi, muy agradecido con el código que me  brindaste, este código SiInm(EsNulo([IP]);"";"IP:" & [IP] & Car(13) & Car(10)), me funciono al 100%. Muchas gracias por la ayuda. ClapClapClapClapClap

-------------
Has el Bien y no mires a quien


Publicado por: Zuesangel
Fecha de publicación: 08/Septiembre/2023 a las 05:37
De igual forma dokk, me funciono también tu código, muchas gracias por la ayuda. Handshake ClapClap

-------------
Has el Bien y no mires a quien



Imprimir página | Cerrar ventana