ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,284
- Office Version
- 2007
- Platform
- Windows
Hi,
I am using the code below which will run on a click event.
I would also like to have it run should the user press the ENTER button on the keyboard.
Please advise thanks.
I am using the code below which will run on a click event.
I would also like to have it run should the user press the ENTER button on the keyboard.
Please advise thanks.
Rich (BB code):
Private Sub KnownInvoice_Click()
Const FILE_PATH As String = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\"
If Len(Dir(FILE_PATH & OpenKnownInvNumber.Value & ".pdf")) = 0 Then
If MsgBox("INVOIVR NUMBER NOT FOUND, OPEN FOLDER ?", vbCritical + vbYesNo, "INVOICE NUMBER NOT FOUND.") = vbYes Then
CreateObject("Shell.Application").Open ("C:\Users\Ian\Desktop\REMOTES ETC\DR\DR COPY INVOICES\")
End If
Else
CreateObject("Shell.Application").Open (FILE_PATH & OpenKnownInvNumber.Value & ".pdf")
OpenKnownInvNumber.Value = ""
End If
End Sub