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