SoloCodigo

holasssss
bueno les cuento:
resulta que estoy haciendo un programa que trabaja con una base de datos, entonces ocupo varios textbox, y es para un usuario, el cual no puedo almacenar datos en null o blanco, osea no puedo hacer algo como esto tabla("campo") = text1.tex &"" pk se almacena un valor en cero por asi decirlo y lo que yo quiero es que el textbox cuando pierda el foco compruebe si es que contine datos en el y si no tiene datos que no me deje salir de ese texbox hasta que ingrese algo.....
no se si se entendio pero le muestro mas o menos como deberia ser lo que pasa es que soy aficionado y quiero ver si me pueden guiar.

Private Sub Text4_LostFocus()
'aqui debria ir el codigo que controla que el texto contenga algun dato
End Sub

saludos manos adios   xD

Hola neorent   ..puedes hacer lo siguiente:

Código: Text

1. Private Sub Text1_LostFocus()
2. If Text1.Text = "" Then
3.     MsgBox "Ingrese algun dato porfavor"
4.     Text1.SetFocus
5. End If
6. End Sub
7.  

bye bye.. .espero que te sirva..

hola eliza marti  

gracias por tu ayuda no pense que fuera tan simple pero si resulta gracias

 

Otra posibilidad:

Código: Text

1. Private Property Get mpbObligatorios() As Boolean
2.     mpbObligatorios = Trim(txtTexto(0).Text) <> "" And Trim(txtTexto(1).Text) <> "" ' and... y asi cn todas las cajas de texto obligatorias
3. End Property
4.  
5. Private Sub txtTexto_Change(Index As Integer) ' En la propiedad Change (o Lostfocus, da igual), de la/s caja/s de texto
6.     cmdAceptar.Enabled = mpbObligatorios 'cmdAceptar sería el boton que graba
7. End Sub
8.  

Saludos,

holas mucha graciuas es super util me salvo el cuello gracias espero poder ayudarlos algunas vez  gracias adios