none
ERROR AL CARGAR DATOS EN LISTBOX RRS feed

  • Pregunta

  • Hola

    Dispongo de un codigo que recorre todas las carpetas de un directorio, hasta aqui todo bien; el problema surge cuando quiero cargar ese listado de nombres en un listbox colocado en un formalrio de Access.

    Estoy trabajando con VBA. Anexo el codigo y el error me muestra.

    Agradecido por sus respuestas

    Private Sub List1_DblClick(Cancel As Integer)
    
        Set fs_objeto = CreateObject("Scripting.FileSystemObject")
        Set Directorio = fs_objeto.GetFolder(Leer_Ini(MyPath, "PATH", "Ad_Path", ""))
        Set subdirectorios = Directorio.subfolders
        
        For Each Subdirectorio In subdirectorios
            List1.AddItem (Subdirectorio.Name)
        Next
        
        Set fs_objeto = Nothing
        Set Directorio = Nothing
        Set subdirectorios = Nothing
    
    End Sub
    

    viernes, 11 de diciembre de 2020 21:24

Todas las respuestas

  • Hola, 

    pulsa con el botón derecho en el objeto List1, en modo diseño. Allí te aparecerán las propiedades, tienes que buscar la propiedad RowSourceType o si el idioma está en español Tipo de origen de la fila. Allí tienes que seleccionar Lista de valores para poder usar Additem. 

    Saludos.

    domingo, 13 de diciembre de 2020 17:41