Copy and Set Focus

[adam]

I did use this method. But ill use your code.

Code: Select all

Private Sub txtNotes_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn And TextBox1.Value = "" Then
        CallAdd
        KeyCode = 0
    End If
    If KeyCode = vbKeyReturn And TextBox1.Value <> "" Then
        CallData
        KeyCode = 0
    End If
End Sub