blckngldhwk
Technical User
Recently our company started rolling out Citrix desktop clients to some of our employees in place of actual PCs. Would this change cause an error in the following code? The problem is only occurring with those who have switched to the Citrix client. Thanks!
I'm getting an error on the objIE.Document.All... lines. Says 'Object Error, Line Number: 101'. Any thoughts?
Code:
Dim Sys As Object, MyScreen As Object, MyArea As Object, objIE As Object, i as Integer
Set MyScreen = Sess.Screen
elchk$ = myscreen.getstring(36,27,04)
elchk = elchk$
If elchk = "ELIG" then
Else
Sess.Screen.Sendkeys("<pf12>")
g_HostSettleTime = 250 ' milliseconds
Sess.Screen.WaitHostQuiet (g_HostSettleTime)
End If
Covcod$ = myscreen.getstring(40,11,03)
covcod = covcod$
grpnum$ = myscreen.getstring(39,06,05)
grpnum = grpnum$
bu$ = myscreen.getstring(39,11,04)
bu = bu$
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Navigate "internal web address"
End With
While objIE.Busy
DoEvents
Wend
objIE.Document.All("txtcovcode").Value = covcod
objIE.Document.All("txtgroupnum").Value = grpnum
objIE.Document.All("txtgroupbu").Value = bu
objIE.Document.All("btnsearchnow").Click
End Sub
I'm getting an error on the objIE.Document.All... lines. Says 'Object Error, Line Number: 101'. Any thoughts?