Unir la mayoría de controles en pocas líneas
¿Se puede componer algo que no sea individual cada control? Corto para la funcionalidad de los controles.
Te envío el evento vía mail un modulo. Vas donde están todos controles
Al no poderse hacer para todos por lo menos para la mayoría de controles unirlos en una rutina sola
Si necesitas algo más, te envío el libro. Este lo baje de la WEB
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Podemos validar el Empty de los controles de esta forma.
En un arreglo pones los controles que quieras validar
En un segundo arreglo pones el texto que quieras mostrar para cada control vacío:
'Para validar si el contro está vacío
'Nombres de los controles
vcS = Array("Combobox1", "Textbox1", "Textbox2", "Textbox3", "Textbox4", _
"Combobox2", "Textbox5", "Combobox3")
'Textos de los mensajes
vtx = Array("PERSONA JURIDICA", "NOMBRE DEL CLIENTE", "PRIMER APELLIDO", "SEGUNDO APELLIDO", "FECHA DE NACIMIENTO", _
"tipo de documento", "numero de documento", "tipo de via")
'
For i = LBound(vcS) To UBound(vcS)
If Me.Controls(vcS(i)) = Empty Then
MsgBox "DEBES INTRODUCIR " & vtx(i), vbExclamation, "ALTA CLIENTES"
Exit Sub
End If
NextEn el array puedes meter los 14 controles.
S a l u d o s
