#Name? in text box where default is Date()

[Pat]

What reference do i need for the Date()?

[HansV]

Do you mean #Name?

[Pat]

Yes i do mean #Name?.
Another piece of information here is that the database is an MDE where there is no source MDB.

[HansV]

Date() is a standard function from the Visual Basic for Applications library. This library is always available. If it is not recognized, thus usually means that another reference is missing. However, there is no way to set or clear references in an .mde database, so I fear you're out of luck.

[Pat]

I thought so, my only hope is to make sure all the dll's and ocx's are present, so i am flying blind in this.

[HansV]

You can only find out by trial and error...

[Pat]

So true, wish me luck as you wave me ......

[Pat]

I have the following code that partly works:

Code: Select all

Private Sub CommandTest_Click()

    Dim strDB As String
    Dim appAccess As Object
    ' Initialize string to database path.
    Const strConPathToSamples = "C:\Data\TR corp\Accounting2000\"

    strDB = strConPathToSamples & "Accounting2000Interface.mde"
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    Dim intRef As Integer
    Dim strMsg As String
    
    If appAccess.References.Count = 0 Then
        MsgBox "ZERO references found...", vbInformation, "No References"
    Else
        Debug.Print "No of refs is " & appAccess.References.Count
        strMsg = ""
        For intRef = 1 To appAccess.References.Count
            strMsg = strMsg & appAccess.References(intRef).Name & ": "      <<<<<<<<<<<<<<<<<
            strMsg = strMsg & appAccess.References(intRef).FullPath & vbCrLf
        Next
    End If
    Debug.Print strMsg
    MsgBox "all done" & vbCrLf & strMsg
    
End Sub

It crashes on the pointed to line with "Method 'name' of object 'Reference' failed"

Is there another approach i can adopt here?

[Pat]

Is there any way to translate the Guid, Major and Minor properties into the Filename and path, or even just filename?

[HansV]

I don't think you can view the references in an .mde/.accde database.

[Pat]

You are right, but what i have got is a database A that can read and display the references in another database that is a MDE database.

My only problem is it won't show me what the MISSING reference filenames are.

[HansV]

I don't have a .mde database to test. With a .accde, your code returns the names and paths of all references.
If you wish, you can delete all objects from your .mde and attach it (zipped).

[Pat]

Why i am doing this is so the client can move the app to another server.

It seems i have found out why the 'Name' was incorrect.
I ran my code against the mde that works in the online environment. I ran it and captured the online references in a table, i then ran it on the server where the user wants it put and captured those references in another table, then compared the 2 tables.

The problem turned out to be a Unbroken reference that was NOT registered.

Thanks for your advice and interest Hans

[HansV]

Good for you!