• Domingo 22 de Diciembre de 2024, 13:21

Autor Tema:  Re: Pasar por referencia un array de texbox  (Leído 1455 veces)

Sareny

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Pasar por referencia un array de texbox
« en: Martes 14 de Mayo de 2002, 13:04 »
0
Intento crear un procedure en el cual modifico un array de textbox pero no se como pasarlo para que me funcione.

pongo esto:

Public Sub LoadDataInControls(record As Recordset, ByVal texte As texbox)
    With record
        If .BOF = True Or .EOF = True Then Exit Sub
        For i = 0 To texte().ubound
            Set texte(i).DataSource = record
            texte(i).DataField = .Fields(i).Name
        Next i
    End With
end sub

y llamo al procedure:

Call LoadDataInControls(rsUbi, Text1)

No funciona, que hago mal?
Podriais ayudarme?

thedoctor

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Re: Pasar por referencia un array de texbox
« Respuesta #1 en: Jueves 16 de Mayo de 2002, 14:50 »
0
Public Sub LoadDataInControls(record As Recordset, ByVal texte() As texbox)
With record
If .BOF = True Or .EOF = True Then Exit Sub
For i = 0 To texte().ubound
Set texte(i).DataSource = record
texte(i).DataField = .Fields(i).Name
Next i
End With
end sub

y llamo al procedure:

Call LoadDataInControls(rsUbi, Text1())

Si no funciona en mi e-mail te espero ...

Sareny

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Pasar por referencia un array de texbox
« Respuesta #2 en: Jueves 16 de Mayo de 2002, 19:12 »
0
Ja esta, pero gracias de todos modos
he definido la variable texte como variant
y la he pasado como referencia y no por valor. Entondes todo ok!