Hi all
I have a webpage form I need filling out once a button is pressed on the Access form, this then auto populates the information from the access form onto the webpage, at the minute I am using tab stops which is starting to get a little messy as I need to press multiple tabs to get to the correct field, is there a way I can do this using the Field ID names from the website?
I have a webpage form I need filling out once a button is pressed on the Access form, this then auto populates the information from the access form onto the webpage, at the minute I am using tab stops which is starting to get a little messy as I need to press multiple tabs to get to the correct field, is there a way I can do this using the Field ID names from the website?
Code:
Private Sub Command1764_Click()
Dim strLink As String
Dim blnOpening As Boolean
Dim strWebTitle As String
On Error GoTo err_handler
strLink = "http://EXAMPLE-WEBSITE.co.uk"
strLink = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strLink
Call Shell(strLink, vbMaximizedFocus)
blnOpening = True
Do While blnOpening = True
blnOpening = False
Loop
Dim started As Single: started = Timer
Do: DoEvents: Loop Until Timer - started >= 1
DoEvents
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(Me.ReferenceNumber, True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("Me.OrderDate", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("{Tab}", True)
Call fSendKeys("Me.Address", True)
Exit Sub
err_handler:
If Err.Number = 5 Then 'Invalid procedure call or argument
blnOpening = True
End If
Resume Next
End Sub