T
TaGY2K
Guest
Here is my macro... I am just wondering what the outside enter key called?
the enter key that is very right where all the number are.. cause I want to replace the key with this {enter}
Option Compare Database
Function RORs()
'dim cnConnection As New ADODB.Connection
Dim counter As Integer
Dim n As Integer
Dim dbCurr As Database
Set dbCurr = DBEngine.Workspaces(0).Databases(0)
Dim rs As DAO.Recordset ', dbOpenDynaset
Set rs = dbCurr.OpenRecordset("test")
SendKeys "%{tab}", True
counter = 0
Do Until rs.EOF Or (counter >= 500)
SendKeys rs!account, True
SendKeys "{enter}", True
wait (0.05)
rs.MoveNext
counter = counter + 1
wait (1)
Debug.Print "account"
Loop
End Function
Function wait(second As Integer)
starttime = Now()
Do While Now() < starttime + second / (3600# * 24#)
Loop
End Function
the enter key that is very right where all the number are.. cause I want to replace the key with this {enter}
Option Compare Database
Function RORs()
'dim cnConnection As New ADODB.Connection
Dim counter As Integer
Dim n As Integer
Dim dbCurr As Database
Set dbCurr = DBEngine.Workspaces(0).Databases(0)
Dim rs As DAO.Recordset ', dbOpenDynaset
Set rs = dbCurr.OpenRecordset("test")
SendKeys "%{tab}", True
counter = 0
Do Until rs.EOF Or (counter >= 500)
SendKeys rs!account, True
SendKeys "{enter}", True
wait (0.05)
rs.MoveNext
counter = counter + 1
wait (1)
Debug.Print "account"
Loop
End Function
Function wait(second As Integer)
starttime = Now()
Do While Now() < starttime + second / (3600# * 24#)
Loop
End Function