Also allow code to be run if user presses the ENTER button

[ipbr21054]

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.

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

 

[bobsan42]

What type is the control? Which will be the active control when you press Enter?
This can be initiated from any control on the form which can initiate KeyDown event.
Something like this adjusted to your form has to work:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And Shift = 0 Then Call KnownInvoice_Click
End Sub

 

[ipbr21054]

Many Thanks now applied & working

 

[bobsan42]

You're welcome.