MarkK
bit cruncher
- Local time
- Today, 13:31
- Joined
- Mar 17, 2004
- Messages
- 8,181
- I have this code in a standard module. I used to hit keys <Alt> <T> <M> <Enter> in any module, which ran this as if it was a macro and produced instant dated boxes to offset blocks of related routines.
- This has now stopped working in all my Access files. I can set a breakpoint and step through this code in a debugger. Everything appears to execute normally, but the keys are not sent to the active code window.
- Does anyone know how I can get this working again?
- Thanks in advance. Mark
- This has now stopped working in all my Access files. I can set a breakpoint and step through this code in a debugger. Everything appears to execute normally, but the keys are not sent to the active code window.
- Does anyone know how I can get this working again?
- Thanks in advance. Mark
Code:
Sub AA_SectionHeader()
Dim i As Integer
SendKeys _
"'******************************************************************** " & Chr(13) & _
"'* " & Format(Date, "mmm d yyyy") & Chr(13) & _
"'* >" & Chr(13) & _
"'*" & Chr(13) & _
"'********************************************************************" & Chr(13)
For i = 1 To 3
SendKeys "{UP}"
Next i
For i = 1 To 9
SendKeys "{Right}"
Next i
End Sub