none
incrementar variable cuando la funcion recibe valor RRS feed

  • Pregunta

  • Hola,

    al generar informe analizo los datos con vba y deseo escribir resultado anàlisis en un texbox.

    la funcion la tengo así:

    Public Sub escribe_texbox(ByVal entrada As String)
    
    Dim vtexto As String
    Dim vindice As Integer
    vtexto = entrada
    Me.txt_ent = "- " & vindice & " " & vtexto & vbCrLf
    vindice= vindice +1
    
    
    End Sub
    

     


    esta función me escribe sin problemas, pero no encuentro manera que me incremente vindice, tendria que poner un bucle... pero no

    hay manera que me incremente...

    Gracias por adelantado


    Spandau
    • Editado Spandau jueves, 20 de octubre de 2011 22:10
    jueves, 20 de octubre de 2011 22:08

Respuestas

  • Hola

    Tendrás que declarar la variable en la cabecera de tu módulo como private.

    Sino, cada vez que ejecutas el procedimiento se inicializa y por lo tanto siempre obtendrás 1.

    Salu2,


    José Mª Fueyo [MS MVP Access]
    • Marcado como respuesta Spandau domingo, 23 de octubre de 2011 21:43
    viernes, 21 de octubre de 2011 8:25

Todas las respuestas

  • Hola

    Tendrás que declarar la variable en la cabecera de tu módulo como private.

    Sino, cada vez que ejecutas el procedimiento se inicializa y por lo tanto siempre obtendrás 1.

    Salu2,


    José Mª Fueyo [MS MVP Access]
    • Marcado como respuesta Spandau domingo, 23 de octubre de 2011 21:43
    viernes, 21 de octubre de 2011 8:25
  • correcto, ya me funciona correctamente:

    Private vindice as integer
    Public
    Sub escribe_texbox(ByVal entrada As String) Dim vtexto As String vindice= vindice +1 If vindice >= 1 Then
    Me.txt_ent = Me.txt_ent & vbCrLf
    vtexto = entrada Me.txt_ent = "- " & vindice & " " & vtexto & vbCrLf 'escribimos a texbox     Me.txt_ent.Value = Me.txt_ent & vindice & " - " & i & vbTab & " - " & vtexto end if End Sub

     


    Spandau
    sábado, 22 de octubre de 2011 23:20