[AccessD] Code Not Working in XP

Okay this test code below works for me on WinXP. It opens up an IE 
window or overwrites it  if one is open
So a coupleof  things to try
1. put your final value for strfile in the url address of IE on a WinXP 
box and see if it works, the url may be jiggered or
    you may have a security permission problem in IE (internet options) 
that is causing a problem
     There is some weird way to query these IE permissions in VBA code. 
and reset them, I have seen it somewhere.
     You would be amazed at what you can stick in an IE URL address bar 
and it works.
       Like the following
      javascript:alert("Actual URL address: " + location.protocol + "//" 
+ location.hostname + "/");

2. You may want to rewrite this with an xmlhttp get method as per code  
further below, if  you are trying to parse some returned value
3. try this code works on WinXP access97

Sub testda()
Dim strfile As String
Dim strpath As String
'strpath = " http://web.com/vr.asp?xml=orafin%2Stock="
'<http://webapps.pgdp.usec.com/vr/vr.asp?xml=orafin%2Fsistock&ParamStock=> "
 '  strfile = strpath & Me.StockNumber
 '  If Dir(strfile) = "" Then
 '     strfile = strpath & Me.StockNumber
 '  End If
 strfile = 
"http://moneycentral.msn.com/investor/research/printrep.asp?Symbol=MSFT"
   Call fHandleFile(strfile, WIN_MAX)
End Sub

-------

Dim xmlhttp As MSXML2.XMLHTTP40
Dim sString As String
Dim strURL As String
sString = "?iPage=qd&Symbol=MSFT"
strURL = "http://moneycentral.msn.com/scripts/webquote.dll"
Set xmlhttp = New MSXML2.XMLHTTP40

xmlhttp.Open "GET", 
"http://moneycentral.msn.com/scripts/webquote.dll?iPage=qd&Symbol=MSFT", 
False
xmlhttp.send

Debug.Print xmlhttp.responseText




Hollis,Virginia wrote:

>Ok, I have been playing around on Microsoft site today. It looks like the
>problem may be the rundll32.exe in the fHandleFile code. I haven't figured
>out why yet or what would need to be changed to correct this.
>
>Any ideas?
>
>Virginia
>
>-----Original Message-----
>From: Hollis,Virginia [mailto:HollisVJ at pgdp.usec.com]
>Sent: Friday, January 30, 2004 11:52 AM
>To: 'Access Developers discussion and problem solving'
>Subject: RE: [AccessD] Code Not Working in XP
>
>
>Do you know what needed to be changed with the permissions? I talked to IT
>about the problem and they do not know what I am talking about. They said
>they need specifics. I do not know enough about XP or how they have the
>permissions set up to give them an answer.
>
>Virginia
>
>-----Original Message-----
>From: Perry Harold [mailto:pharold at proftesting.com]
>Sent: Thursday, January 29, 2004 6:35 PM
>To: 'Access Developers discussion and problem solving'
>Subject: RE: [AccessD] Code Not Working in XP
>
>
>Maybe something with the permission settings on the XP boxes.  Had something
>similar that worked great with 98 & did the same thing as yours when
>switching to XP until some permissions were set to allow them access to the
>shared resources.
>
>Perry Harold
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hollis,Virginia
>Sent: Thursday, January 29, 2004 11:29 AM
>To: 'accessD at databaseadvisors.com'
>Subject: [AccessD] Code Not Working in XP
>
>
>I have been using the code shown below to access data on our Intranet. The
>code matches a field entry in the database and looks up the details. In this
>example it finds a stock number.
> 
>Problem: The code does not work for users that are running XP. It does not
>do anything, it will not even try to access the web. They click the button
>and nothing happens.
> 
>What can I do to correct this for users of XP?
> 
>Virginia
>  _____  
> 
>  strPath = " http://web.com/vr.asp?xml=orafin%2Stock=
>   
>   strFile = strPath & Me.StockNumber
> 
>   If Dir(strFile) = "" Then
>      strFile = strPath & Me.StockNumber
>   End If
> 
>   Call fHandleFile(strFile, WIN_MAX)
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada