Access macro

  • Thread starter Thread starter TaGY2K
  • Start date Start date
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
 

Users who are viewing this thread

Back
Top Bottom