Programación General > Visual Basic 6.0 e inferiores

 Obligar Que Un Textbox Tenga Datos

(1/1)

neorent:
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  :D xD

eliza_marti:
Hola neorent  :hola: ..puedes hacer lo siguiente:


--- Código: Text ---Private Sub Text1_LostFocus()If Text1.Text = "" Then    MsgBox "Ingrese algun dato porfavor"    Text1.SetFocusEnd IfEnd Sub 
bye bye.. :hola: .espero que te sirva.. ;)

neorent:

--- Cita de: "eliza_marti" --- Hola neorent  :hola: ..puedes hacer lo siguiente:


--- Código: Text ---Private Sub Text1_LostFocus()If Text1.Text = "" Then    MsgBox "Ingrese algun dato porfavor"    Text1.SetFocusEnd IfEnd Sub 
bye bye.. :hola: .espero que te sirva.. ;)
--- Fin de la cita ---
hola eliza marti  :D

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

 :bravo:

Shiquilla:
Otra posibilidad:


--- Có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 obligatoriasEnd 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 grabaEnd Sub 

Saludos,

neorent:

--- Cita de: "Shiquilla" --- Otra posibilidad:


--- Có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 obligatoriasEnd 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 grabaEnd Sub 

Saludos,
--- Fin de la cita ---
holas mucha graciuas es super util me salvo el cuello gracias espero poder ayudarlos algunas vez :D  gracias adios

Navegación

[0] Índice de Mensajes