Help with MDE compile error

[johngordon]

I was attempting to create a MDE file and got a error message which states: Compile error in hidden module: Module 2

I've enclosed a copy of Module 2:

Sub

http://www()

Dim intRtn As Integer
Dim strURL As String, googleSearchString As String
strURL = "

http://www.google.com/search?q="

googleSearchString = CurrentView.body.STLOCATION.Text
strURL = strURL & googleSearchString
intRtn = Shell("rundll32.exe url.dll,FileProtocolHandler" & strURL)
End Sub

I do not known where the error is. Please let me know if you see something I missed.

Thanks,

John

 

[Guest_imported]

barring what looks like a typo (see line 3).. this code should work fine... I tested it by replacing the CurrentView.body... statement with a string value "big red truck" and it opened google right up no prob...
anyways
going line by line...
(((YOUR CODE)))

1)Dim intRtn As Integer
2)Dim strURL As String, googleSearchString As String
3)strURL = " [URL unfurl="true"]http://www.google.com/search?q=";[/URL]
4)googleSearchString = CurrentView.body.STLOCATION.Text
5)strURL = strURL & googleSearchString
6)intRtn = Shell("rundll32.exe url.dll,FileProtocolHandler" & strURL)

(((MY ADVICE)))
1)no problem
2)no problem
3)unless this was a typo... get rid of the trailing ; (were not in java here
4)not sure if the currentview is giving an error.. maybe add a line below it to test what is returned...
5)should be no problem unless invalid data in googleSearchString
6)no problem

 

[johngordon]

Worked fine. Thanks!