Fill field in internet explorer from from

L

LeeTV

Hi,
I am wanting to fill fields in internet explorer from a form.
any one know the best approach for it.
Basically the information to be passed to iexplorer is to process credit
card information via pay-pal.
upon clicking the the button on the form,
iexplorer should open, log-in, and then the pages fields should be filled
with the data from the access form.
i had tried a send keys approach, but it kept freezing.
i have posted the code below. Are there any better solutions for this than a
send keys?
thanks
lee

code:
Public Sub FillVT()
Dim strLink As String
Dim blnOpening As Boolean
Dim strWebTitle As String
On Error GoTo err_handler

strLink = "MyURL" 'will change to true url.
strLink = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strLink
strWebTitle = "MyCaption"

Call Shell(strLink, vbMaximizedFocus)

blnOpening = True
Do While blnOpening = True
blnOpening = False
AppActivate strWebTitle, True
Loop

DoEvents

'I read some where that this user defined function is better than using
SendKeys
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True) ' amount (net) field
Call fSendKeys("{Tab}", True) 'shipping
Call fSendKeys("{Tab}", True) 'tax rate
Call fSendKeys("{Tab}", True) ' type
Call fSendKeys("{Tab}", True) 'item/svc
Call fSendKeys("{Tab}", True) 'order number



Call fSendKeys("MyPassword", True) 'enter pwd
Call fSendKeys("{ENTER}", True) 'send

' Call fSendKeys("DataForSecondField", True)
' Call fSendKeys("{Tab}", True)
' Call fSendKeys("DataForThirdField", True)


Exit Sub

err_handler:
If Err.Number = 5 Then 'Invalid procedure call or argument
blnOpening = True
End If
Resume Next

End Sub
 
Top