• Domingo 22 de Diciembre de 2024, 18:20

Autor Tema:  Re: agregar datos a una lista de acces 97  (Leído 939 veces)

jpardo84

  • Miembro activo
  • **
  • Mensajes: 65
    • Ver Perfil
Re: agregar datos a una lista de acces 97
« en: Domingo 31 de Agosto de 2003, 04:58 »
0
Hola amigos, tengo otro problemilla. Tengo una matriz(1000) por ejemplo y necesito descargar sus datos en una lista en acces 97. ya lo intente recorriendo la matriz con un for..next  y tratando de agregar dato por dato con el mètodo AddItem a la lista pero aqui no funciona este mètodo. ¿como le hago? Muchas gracias si alguien me puede ayudar..SALUDOS

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: agregar datos a una lista de acces 97
« Respuesta #1 en: Lunes 1 de Septiembre de 2003, 08:39 »
0
Utiliza un código de este estilo:

Dim int1 As Integer, strRowSource As String, str1(5) as string
     
str1(0) = "Elemento 1"  
str1(1) = "Elemento 2"  
str1(2) = "Elemento 3"  
str1(3) = "Elemento 4"  
str1(4) = "Elemento 5"

For int1 = LBound(str1) To UBound(str1)
      strRowSource = strRowSource & str1(int1) & ";"
Next int1
With Lista1
.RowSourceType = "Value List"
.RowSource = strRowSource
.Requery
End With

Espero que esto te sirva.
Suerte.

jpardo84

  • Miembro activo
  • **
  • Mensajes: 65
    • Ver Perfil
agregar datos a una lista de acces 97
« Respuesta #2 en: Lunes 1 de Septiembre de 2003, 22:12 »
0
Gracias a tu respuesta pude solucionar el inconveniente que tenía, fue muy acertada y estoy muy agradecido, que tenga un buen día, saludos.