Hey guy's I am just starting a new project and trying to move some work VB from Excel into Access.
Here is my code and I am getting the Compile Error listed in the title. I am basically trying to run this from the debugger.
The error is referencing this line of code
Application.Wait Now + TimeSerial(0, 0, 11)
Here is my code and I am getting the Compile Error listed in the title. I am basically trying to run this from the debugger.
The error is referencing this line of code
Application.Wait Now + TimeSerial(0, 0, 11)
Code:
Public Function TEMP_SKPIUPDATE_ALL_NAMC()
Dim QPR
Dim lnk
Dim frm
Dim dwn
Dim Start
Dim fin
Dim drp1
Dim drp2
Dim drp3
Dim src1
Dim NAMC As Integer
' This macro will automatically open and download the TMMK-VEH daily scrap
'and store the file in the same directory
Set QPR = CreateObject("InternetExplorer.application")
QPR.Visible = True
QPR.navigate "https://www.portal.toyotasupplier.com/wps/myportal/"
Do While QPR.Busy: DoEvents: Loop
Do While QPR.readyState <> 4: DoEvents: Loop
With QPR.Document.Forms("Login")
.User.Value = "******"
.Password.Value = "*****"
.submit
End With
[b]Application.Wait Now + TimeSerial(0, 0, 11)[/b]
QPR.navigate ("https://www.portal.toyotasupplier.com/skpi/")
End Function