Mostrar mensaje cuando falten datos en texbox
Buenas noches amigos, Estoy creando una base de datos de usuarios en excel,, y lo lleno por medio de un userform... La cuestión es que las personas que lo llenan aveces por la rapidez o por ahorrar tiempo, omiten datos del usuario que más adelante podemos necesitar..
Como haría en el userform para que me aparezca un mensaje que me indique que debo llenar los datos completos para poder guardar el formulario y si es posible que me indique el nombre del texbox que esta vacío y que necesita llenar,,, de antemano agradezco por la colaboración.
Como haría en el userform para que me aparezca un mensaje que me indique que debo llenar los datos completos para poder guardar el formulario y si es posible que me indique el nombre del texbox que esta vacío y que necesita llenar,,, de antemano agradezco por la colaboración.
1 Respuesta
Respuesta de jrgces
1
Prueba con algo parecido a este código, que iría en el evento _Click del botón que termina la edición:
Private Sub CommandButton1_Click()
Dim ctrControl As MSForms.Control
For Each ctrControl In Me.Controls
If TypeOf ctrControl Is MSForms.TextBox Then
If ctrControl.Value = "" Then
MsgBox "El cuadro de texto " & ctrControl.Name & " no puede quedar vacío." & vbNewLine & "Por favor, edítelo.", vbCritical + vbOKOnly
ctrControl.SetFocus
Exit Sub
End If
End If
Next ctrControl
'A partir de aquí iría el código a ejecutar si todos los cuadros de texto tienen algún valor
End Sub
Private Sub CommandButton1_Click()
Dim ctrControl As MSForms.Control
For Each ctrControl In Me.Controls
If TypeOf ctrControl Is MSForms.TextBox Then
If ctrControl.Value = "" Then
MsgBox "El cuadro de texto " & ctrControl.Name & " no puede quedar vacío." & vbNewLine & "Por favor, edítelo.", vbCritical + vbOKOnly
ctrControl.SetFocus
Exit Sub
End If
End If
Next ctrControl
'A partir de aquí iría el código a ejecutar si todos los cuadros de texto tienen algún valor
End Sub
