Hola neorent :hola: ..puedes hacer lo siguiente:hola eliza marti :DCódigo: Text
Private Sub Text1_LostFocus() If Text1.Text = "" Then MsgBox "Ingrese algun dato porfavor" Text1.SetFocus End If End Sub
bye bye.. :hola: .espero que te sirva.. ;)
Otra posibilidad:holas mucha graciuas es super util me salvo el cuello gracias espero poder ayudarlos algunas vez :D gracias adiosCódigo: Text
Private Property Get mpbObligatorios() As Boolean mpbObligatorios = Trim(txtTexto(0).Text) <> "" And Trim(txtTexto(1).Text) <> "" ' and... y asi cn todas las cajas de texto obligatorias End Property Private Sub txtTexto_Change(Index As Integer) ' En la propiedad Change (o Lostfocus, da igual), de la/s caja/s de texto cmdAceptar.Enabled = mpbObligatorios 'cmdAceptar sería el boton que graba End Sub
Saludos,