Mental retardation

[filburt1]

I get this error when trying to Run with Full Compile or compile my project:



What...the...hell.

Project attached in next post.

[filburt1]

Project:

[petejc21]

I opened your project and I got the same error gawd knows what it is but its obviously the project, not your installation of VB.

[petejc21]

I removed the module and tried it and it ran okay, I assume its somethng in there?

[filburt1]

It's something wrong with this:

Public Function MakeURL(Suffix As String, Optional Hostname As String = ServerSettings.Address, _
        Optional Port As Integer = ServerSettings.Port, _
        Optional Path As String = ServerSettings.Path) As String
    MakeURL = "http://" & Hostname.Address & IIf(Port = "80", "", ":" & Port) & Path & Suffix
End Function

So, what's wrong with that?

[MrPolite]

sure it's from the code?! try running it by F8, it wont even run a single line of code to get that error

[Hampster]

Something's wrong with your ServerSettings delcaration I guess... If your try debug.print ServerSettings.Port (or any member of ServerSettings) it does the same error.

Visual Basic searches backward in the calls list to execute the first enabled error handler it finds. If not, it presents a default unexpected error message and halts execution.

[filburt1]

Originally posted by Hampster
Something's wrong with your ServerSettings delcaration I guess... If your try debug.print ServerSettings.Port (or any member of ServerSettings) it does the same error.

It's something wrong with it. I took out references to it in that function and it ran at least, so the investigation continues...

[honeybee]

Originally posted by filburt1
It's something wrong with this:

Public Function MakeURL(Suffix As String, Optional Hostname As String = ServerSettings.Address, _
        Optional Port As Integer = ServerSettings.Port, _
        Optional Path As String = ServerSettings.Path) As String
    MakeURL = "http://" & Hostname.Address & IIf(Port = "80", "", ":" & Port) & Path & Suffix
End Function

So, what's wrong with that?

Why are you using HostName.Address, where the Hostname is a string?

.

[filburt1]

I saw that as I posted it and fixed it, but it didn't make a difference.

This seems to work but I like the original function much better:

Public Function MakeURL(Suffix As String, Optional hostname As String, Optional port As Long, _
         Optional path As String) As String
    If hostname = Empty Then hostname = ServerSettings.Address
    If port = 0 Then port = ServerSettings.port
    If path = Empty Then path = ServerSettings.path
    
    MakeURL = "http://" & hostname & IIf(port = "80", "", ":" & port) & path & Suffix
End Function

[honeybee]

When I try to open your project, I get an error about some ActiveX control not registered.

When I open the BAS file alone and press F5, I get an Unexpected error. When I comment out the MakeURL function, VB proceeds correctly to tell me there's no startup object.

.

[honeybee]

Here you go:

In the declaration of the MakeURL, simply declare the optional arguments as optional, and don't assign them any values.

Public Function MakeURL(Suffix As String, Optional Hostname As String, _
        Optional Port As Long, _
        Optional Path As String) As String
    MakeURL = "http://" & Hostname & IIf(Port = "80", "", ":" & Port) & Path & Suffix
End Function

.