mantener informacion en un text y en un combo

[inemart]

hola... soy principiante en la programacion de visual basic 6 y necesito una ayudadita necesito mantener informacion fija en un combobox y en un text despues de que cargue la informacion que contendra
porfa se los agredesco de antemano .....

[David]

No entiendo, ¿a qué te refieres con mantener fija?.

[inemart]

me refiero a mantener la informacion fija a que cuando la informacion este en el combo y en el text no cambie cuando yo le cambie la informacion del combo.
tengo un text de folio de nota de venta y un combo de sucursal entonces el combo esta cargado con diferentes sucursales(nombres de tiendas) entonces ingreso el folio de nota y en automatico me devuelve a que sucursal pertenece ese folio y tambien me dice el nombre del cliente en otro text, pero si llego a cambiar la sucursal que contiene el combo el folio anterior no perteneceria a esa sucursal y me afectaria al text cliente. gracias ....
espero que me haya explicado un poco mejor .....

[David]

Sin saber exactamente qué es lo que estás haciendo en el combo es un poco difícil, una idea sería tener una variable Boolean que tenga alcance en todo el módulo, cuando ingresas al folio esa variable se pone a True, luego en el combo, antes de cambiar el valor del cliente preguntas si esa variable es True, y si así es, no cambiar.

La situación cambia cuando están enlazados a datos, pero como no especificaste... .

[inemart]

ok gracias por tus respuestas.
me habian comentado de un evento clip o clic no se extactamente que hace esa pequeña rutina que cuando cambie el item del combo cambie la informacion de los text pero lo estoy investigando pero lo que encuentro no se refiere a nada de lo que necesito
¿conocen algo de eso?
saludos.....

[inemart]

alguna aportacion plisss lo necesito mucho.......

[David]

Es que sin ver el código que tienes ahora es algo difícil saber qué está pasando.

¿Podrías poner el código del ComboBox?.

[inemart]

Private Sub CmbSucursal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Trim(Me.CmbSucursal.Text) <> "" Then
Dim StrSuc As String
StrSuc = ValidaCombo(CmbSucursal, RsSucursal, "Codigo")
If StrSuc > 0 Then
strSQL = "Select * " & _
"From vtasclipper.dbo.vtaesp AS VE " & _
"Left Join BzrProcesos.dbo.Bzr_Rel_FacClientes As RC ON Rc.Cte_Clipper = VE.Cliente " & _
"Left Join BackOfficeCatalogos.dbo.CatClientes AS CatClientes ON RC.Cte_Bisoft = CatClientes.Codigo " & _
"Where folio ='" & TxtFolio & "' " & _
"AND Sucursal =" & StrSuc
RS.Open strSQL, Ocnn, adOpenDynamic, adLockOptimistic
If RS.RecordCount > 0 Then
Me.TxtCliente.Text = RS.Fields("Nombre")
SendKeys vbTab
Else
MsgBox ("Folio incorrecto")
TxtFolio.Text = ""
CmbSucursal = ""
TxtFolio.SetFocus
End If
Else
MsgBox "Sucursal no valida"
CmbSucursal = ""

End If
RS.Close
End If
End Sub

este es el codigo del combo que contiene una funcion que hice que se llama validacombo lo que hace el validacombo es ver que los datos que esten en el combo sean los correctos si los escribe el usuario y verificar si se encuetran en la base de datos en SQL:
espero que se entienda un poco mas gracias por sus aportaciones
,.,.,.,.,., s.a.l.u.d.o.s.,.,.,.,..,.,.

[David]

Si lo único que quieres es que en determinado momento no se permita cambiar ni el combo ni el text solo deberías colocar:

Código vb:

Nombre_Combo.Locked = True
Nombre_TextBox.Locked = True
 

[inemart]

SIIIIIIII, gracias me funcio para el text pero no para el combo
muchas gracias

[David]

¿Qué pasó con el Combo? ¿Cuál era exactamente el comportamiento que esperabas? ¿Dió algún error?

[inemart]

esperaba que el combo no se desplegara, no me dio ningun, solamente se sigue desplegando

[inemart]

Iniciado por inemart

esperaba que el combo no se desplegara, no me dio ningun, solamente se sigue desplegando

[David]

Se puede desplegar, pero no se puede seleccionar nada .

Pero si de todos modos, no quieres ni que se despliegue puedes poner Disabled = True.

[inemart]

gracias si me funciono pero hay un inconveniente cuando yo borre la informacion ya no me permite volver a escribir en los campos de text.....
creo que es por la funcion que le puse......
agradesco sus respuestas.........