0

Hi everyone
I'm new in VBA and I have a problem with my code, if someone can help my I will be grateful.

I have this part of code in Excel VBA an work fine

Dim NumeroArchivo As Integer
Dim conta As Integer
Dim ListArchivAbierto As String
NumeroArchivo = Workbooks.Count
If NumeroArchivo >= 0 Then
    For conta = 1 To NumeroArchivo
        ListArchivAbierto = Workbooks(conta).Name
    Next conta
End If

But if I try put this code with properties access, doesn't work

    NumeroArchivo = DataAccessPages.Count
    If NumeroArchivo >= 0 Then
        For conta = 1 To NumeroArchivo
            ListArchivAbierto = DataAccessPages(conta).Name
        Next conta
        MsgBox (ListArchivAbierto)
    End If

I hope someone can help me
Thank you

2
Contributors
1
Reply
2
Views
4 Years
Discussion Span
Last Post by Nutster
0

What kind of errors are you getting? How does it not work? What version of Access are you using? Data Access Pages only exist in Access 2003 and 2007.

Edited by Nutster: Access version info.

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.