Getting references from external db 
Author Message
 Getting references from external db

Hello there,

I written some code to get ok and broken references from
an external db. For some db's it works fine, other give
me errors. The error is: 452 - Invalid Ordinal

The Code:

Private Sub Command3_Click()
    Dim ref As Reference
    Dim appAccess As Object
    Set appAccess = CreateObject("Access.Application")
    Dim i As Integer
    appAccess.OpenCurrentDatabase Me.txtDB

    For i = 1 To appAccess.References.Count
        Select Case References.Item(i).IsBroken

        Case "False"
            Me.lstGoed.RowSource = Me.lstGoed.RowSource &
References.Item(i).Name & ";" & References.Item
(i).FullPath & ";"

        Case "True"
            Me.lstFout.RowSource = Me.lstFout.RowSource &
References.Item(i).Name & ";" & References.Item
(i).FullPath & ";"
        End Select
    Next i

    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing

End Sub

I have no idea where the error comes from. Can anybody
help me?

Thanks

Anubis



Mon, 17 Oct 2005 22:12:16 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Getting Errors when Access DB gets large

2. External References in EXCEL

3. Location of service binary and external references

4. Referencing external app from within WebMethod - Help!

5. how to programatically determine external references in an excel spreadsheet

6. Backing up tables to external access db's

7. Access external DB in VBA

8. Closing an external DB

9. getting info about external image files

10. Viewing a list of forms/reports etc in external DB

11. Linking Symbols to an External db Form

12. Getting external text in textboxes

 

 
Powered by phpBB® Forum Software