Como pasar los datos de un list a un text

[fedefrankk]

Hola a todos, tengo una agenda con 7 text .. text1(0)....hasta el ..... text1(7)
en un list1 me sale un nombre que yo busque... cuando hago click en ese nombre quiero que me aparezcan en todos los text con los datod correspondiente... se entiende?

tengo el codigo para usarlko en un MSflexGerid que es este:

Código PHP:

  Private Sub MSFlexGrid1_Click()
Dim i As Integer
For i = 0 To Text1.UBound
Text1(i).Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, i)
Next i
End Sub  
   

y el que uso para el list1 pero me sale error es este:

Código PHP:

  Dim i As Integer
For i = 0 To Text1.UBound
Text1(i).Text = List1.Index
Next i  
   

aca les dejo una imagen
saludos a todos y gracias

[walfaro]

pues fijate que yo tengo una agenda y uso TreeView donde me muestra los nombres de los contactos y al darle clic al contacto deseado me muestra todos los datos en 12 text

la base que tengo esta en access, solo agrega un TreeView y un ImageList1 para tus iconos y lo modificas segun a tu estilo...

copia este codigo a tu form.....

si necesitas alguna consulta me lo puedes hacer llegar o dejame tu mail...

Option Explicit
Dim flagNuevoRegistro As Boolean
Dim rst As ADODB.Recordset
Dim cn As ADODB.Connection

Private Sub Form_Load()

Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset

With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\TU BASE DE DATOS.mdb;Persist Security Info=False"
.CursorLocation = adUseClient
.Open


End With

With rst
.CursorLocation = adUseClient
.Open "Select * from NOMBRE DE TU TABBLA", cn, adOpenStatic, adLockOptimistic
End With

Dim txt As Control
For Each txt In Me.Controls
If TypeOf txt Is TextBox Then
Set txt.DataSource = rst
End If
Next
Set Text2.DataSource = rst
Text2.DataField = "nombres"
Set Text3.DataSource = rst
Text3.DataField = "Telefono1"
Set Text4.DataSource = rst
Text4.DataField = "Extension1"
Set Text5.DataSource = rst
Text5.DataField = "Telefono2"
Set Text6.DataSource = rst
Text6.DataField = "Extension2"
Set Text7.DataSource = rst
Text7.DataField = "Celular1"
Set Text8.DataSource = rst
Text8.DataField = "Celular2"
Set Text9.DataSource = rst
Text9.DataField = "Email"
Set Text10.DataSource = rst
Text10.DataField = "Empresa"
Set Text11.DataSource = rst
Text11.DataField = "Direccion"
Set Text12.DataSource = rst
Text12.DataField = "Notas"

Call Cargar_Treeview

End Sub

Private Sub Cargar_Treeview()
Dim i As Long
Dim nodo As Node
rst.MoveFirst
With TreeView1.Nodes
.Clear
For i = 1 To rst.RecordCount
Set nodo = .Add(, , , rst!Nombres, 1)
rst.MoveNext
Next i
End With
rst.MoveFirst
End Sub


Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
If flagNuevoRegistro = True Then
Exit Sub
End If

rst.MoveFirst
While Not rst.EOF And rst!Nombres <> Node
rst.MoveNext
Wend
End Sub

[seba123neo]

Hola, si es de 0...a 7 entonces son 8 textbox...¿pero de donde sacas los datos..? de una base o que?

saludos.

[Txoco]

Qué tal?

Efectivamente, List1 no parece una matriz, si no un control único, de ahí el error: la propiedad Index sólo debería estar disponible si el control referenciado está dentro de una colección.

Creo que el dato que quieres sacar es List1.ListIndex, o probablemente List1.List(List1.ListIndex). Incluso List1.Text si Style no es DropDownList.

[fedefrankk]

Hola... aca les dejo el codigo del text y de donde saco los datos, los datos los saca de una base de datos de acces

Código PHP:

  Private Sub Text3_Change()
If Text3 = "" Or IsNumeric(Text3) = True Then ' NO SE COMO HACER PARA VALIDAR QUE NO ME TOME SIMBOLOS NI EL DEL (PARA BORRAR) 
Text3 = ""
Text3.SetFocus
List1.Clear
Else
Call abrir
x = "Select * from contactos where nombre_apellido like '" & Text3.Text & "%'"
apertura.Open x, conectar
'Do While Not apertura.EOF
List1.AddItem apertura!nombre_apellido
'apertura.MoveNext
'Loop
apertura.Close
Call cerrar
End If
End Sub  
   

el codigo que tengo en el list es este :

Código PHP:

  Text1(1).Text = List1  
   

de esta manera logro que al hacer click en el list, me ponga en el text1(0) lo que aparece en el list.. pero los otros text se quedan vacio
y otro tema es que el list se llena con cada letra que toco o borro se autollena...

si necesitas alguna consulta me lo puedes hacer llegar o dejame tu mail...

mi correo es [email protected]
saludos a todos

[Avellaneda]

Hola, yo creo que el error está aquí:

Código:

Dim i As Integer
For i = 0 To Text1.UBound
Text1(i).Text = List1.Index
Next i

Prueba sustituyendo esa línea por:

Text1(i).Text = List1.List(i)

[fedefrankk]

Hola Avellaneda, hice lo que me dijiste, cada ves que en list box aparece un nombre y hago un clik se repite en todos los text... voy a dejar como lo hice antes que vos me enseñaste a hacerlo.. con el FLesGrid,,,, solamente me queda un problema por resolver... (va varios jajaja).. pero voy por partes

Cada ves que busco el titulo del flex grid se me va hacia abajo y no se queda en su lugar... te muestro el codigo y una imagen

codigo del text que busca:

Código PHP:

  Private Sub Text2_Change()
Call abrir
de = "Select count(*) as ultimo from contactos"
apertura.Open de, conectar
ultimo = apertura!ultimo + 1
apertura.Close
    MSFlexGrid1.FixedCols = 0
    MSFlexGrid1.Cols = 8
    MSFlexGrid1.FixedRows = 0
    MSFlexGrid1.Rows = ultimo
    MSFlexGrid1.ColWidth(0) = 1801
    MSFlexGrid1.ColWidth(1) = 1301
    MSFlexGrid1.ColWidth(2) = 1301
    MSFlexGrid1.ColWidth(3) = 1101
    MSFlexGrid1.ColWidth(4) = 1312
    MSFlexGrid1.Font = 8
    MSFlexGrid1.TextMatrix(0, 0) = "NOMBRE y APELLIDO"
    MSFlexGrid1.TextMatrix(0, 1) = "TEL PERSONAL"
    'On Error Resume Next
    MSFlexGrid1.TextMatrix(0, 2) = "TEL COMERCIAL "
    MSFlexGrid1.TextMatrix(0, 3) = "CELULAR"
    MSFlexGrid1.TextMatrix(0, 4) = "E-MAIL"
   MSFlexGrid1.TextMatrix(0, 5) = ""
     MSFlexGrid1.TextMatrix(0, 6) = ""
    MSFlexGrid1.TextMatrix(0, 7) = ""
    Call cerrar
apertura.CursorLocation = adUseClient
If Text2 = "" Or IsNumeric(Text2) = True Then
Text2 = ""
Text2.SetFocus
MSFlexGrid1.Clear
Else
Call abrir

x = "Select * from contactos where nombre_apellido like '" & Text2.Text & "%'"
apertura.Open x, conectar
MSFlexGrid1.Rows = apertura.RecordCount + 1
MSFlexGrid1.Sort = flexSortStringNoCaseAscending
i = 0
Do While Not apertura.EOF
    With MSFlexGrid1
        .TextMatrix(i, 0) = apertura!nombre_apellido
        .TextMatrix(i, 1) = apertura!domicilio
        .TextMatrix(i, 2) = apertura!tel_personal
         'On Error Resume Next
        .TextMatrix(i, 3) = apertura!tel_comercial & ""
        .TextMatrix(i, 4) = apertura!email & ""
        .TextMatrix(i, 5) = apertura!cel & ""
        .TextMatrix(i, 6) = apertura!comentarios & ""
    End With
 i = i + 1
    apertura.MoveNext
Loop
    Call cerrar
    End If
End Sub  
   

ese codigo tambien configura el MSFlexGrid1

el codigo para que cuando hago click en el MSFlexGrid1 se vallan los datos a los text es el siguiente (que me lo pasaste vos)

Código PHP:

  Dim i As Integer
For i = 0 To Text1.UBound
Text1(i).Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, i)
Next i  
   

aca dejo la imagen que sale el error de los titulos

gracias a todos y SALUDOS

[Avellaneda]

Hola,

todo se reduce a esto:

...
MSFlexGrid1.Rows = apertura.RecordCount + 1
i = 1
Do While Not apertura.EOF
...

i es la variable contadora de las filas del grid, como la fila cero es el encabezado, debe empezar por la fila uno.

[fedefrankk]

Hola, buenas... le puse

Código PHP:

  MSFlexGrid1.Rows = apertura.RecordCount + 1
i = 1
Do While Not apertura.EOF  
   

tampoco funciona, por hay se borra el titulo, o queda abajo no se cual sera el problema, sigo intentando,
muchas gracias por contestar son muy amables

gracias fede

PD: si quieren subo el proyecto

[seba123neo]

subilo mejor, porque asi podemos estar un año...

[fedefrankk]

Hola aca les dejo el link para bajar lo que estoy haciendohttp://www.foxen.com.ar/01/Agenda.rarSaludos a todos