MartyConnelly
martyconnelly at shaw.ca
Fri Jan 30 19:40:51 CST 2004
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