add dao 3.6 ref

[Corticus]

Hi,

Would someone please tell me how to add the DAO 3.6 reference using VBA?

Thanks!

-Corticus

 

[dk]

Application.References.AddFromGuid "{00025E01-0000-0000-C000-000000000046}", 5, 0

should do the trick

 

[Corticus]

yeah!

Thanks dk,

That's exactly what I wanted. Is there a place where I could find all the references listed with their description, so I don't have to keep asking everytime this comes up? :D
I've found a few sites that had some references listed, but nothing too extensive.

Thanks again!
-Corticus

 

[dk]

I use this procedure in Excel. It lists all references in the active workbook. I'm sure it wouldn't be too difficult to port it to Access, or to make something which gives the info about ALL registered components on your system.

Anyway, enjoy!

Sub ListRefs()
    Dim oReference As Object
    Dim lngRow As Long


    lngRow = 2

    'Put in headers
    Range("A1:F1").Value = Array("Name", "GUID", "Major", "Minor", "Description", "Full Path")
    Range("A1:F1").Font.Bold = True

    For Each oReference In ActiveWorkbook.VBProject.References
        Cells(lngRow, 1) = oReference.Name
        Cells(lngRow, 2) = oReference.GUID
        Cells(lngRow, 3) = oReference.Major
        Cells(lngRow, 4) = oReference.Minor
        Cells(lngRow, 5) = oReference.Description
        Cells(lngRow, 6) = oReference.FullPath
        lngRow = lngRow + 1
    Next oReference

    Cells.Columns.AutoFit


End Sub

 

[Corticus]

That's cool dk, thanks!

I'll post back when and if I can get it too work in Access. I'll definately get to use it in Excel as is.

-Corticus