Visual Basic - Textbox

Life is soft - evento anual de software empresarial
 
Vista:

Textbox

Publicado por Patricio (47 intervenciones) el 20/05/2010 20:24:10
Hola a todos,
Favor necesito ayuda en lo siguiente

Tengo un form con varios textbox y lo que quiero es que el usuario no deje ninguno de estos sin completar, es como colocarle una restriccion
Ejemplo

Text 1 nombre
Text 2 Apellidos

la idea es que el usuario no pase a la otra pantalla pos click a un commnabutton sin que haya completado todos los datos solicitados.

Favor si me pueden dar un ejemplo simple se los agradeceria

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Textbox

Publicado por Josue Arauz (1 intervención) el 21/05/2010 05:18:58
es muy sencillo solo utilizas la propiedad del textbox, en el comand button que te envia al otro form debes poner una condicion puede ser con un while o un if, el que tu elijas por ejemplo:
digamos que el textbox 1 se llame nombre, y el textbox 2 se llame apellido
el siguiente codigo iria dentro de la linea de codigo del comand button

if nombre.text = "" or apellido.text = "" Then
MsgBox("Por Favor debe llenar todos los datos")

else
form1. Hide();
form2.Show();

End If

y ya seria todo, si tienes mas textbox solo es cuestion de que le agregues otro or con el nombre del otro textbox y la misma condicion.

espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Textbox

Publicado por Patricio (47 intervenciones) el 21/05/2010 20:20:34
Estimado , te agrego mi aplicacion , si puedes postear lo que necesito sobre ella..

La idea es que el usuario no pase a la otra pantalla pos click a un commnabutton sin que haya completado todos los datos solicitados .

Option Explicit
Dim base As Connection
Dim tabla As Recordset
Dim codigo As String, bandera As Boolean, consulta As String

Private Sub Command1_Click()
codigo = Val(Text2)
If codigo > 0 Then
With tabla
.AddNew
!codigo = Text2
!Orden = Text7
!Fecha = DTPicker1
!Tipo = Combo1
!Documento = Text6
!Proveedor = Text1
!Nombre = Text3
!Unidad = Text4
!Cantidad = Text5
.Update
MsgBox "Datos Almacenados", vbInformation, "AVISO"
If MsgBox("Desea imprimir etiquetas?", vbYesNo + vbQuestion, "Consulta") = vbYes Then
Form11.Text1 = Text2.Text
Form11.Text2 = Text3.Text
Form11.Text3 = Text5.Text
Unload Form1
Form11.Show
End If
End With
Else
MsgBox "Debe agregar un codigo para iniciar", vbCritical, "CUIDADO"
Text2.SetFocus
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar