Custom class not working on Enter key

[Ruegen]

I have a field that when you press return after typing you fire off some functions

Private Sub txtEnterMemo_KeyDown(KeyCode As Integer, Shift As Integer)




If KeyCode = vbKeyReturn Then
Debug.Print "Entry Made"
    Dim memoNew As MainMemoClass
    Set memoNew = New MainMemoClass
'    Debug.Print "The Tour Organiser ID is: " & TempVars!tmpTO_ID
    memoNew.newMemo Me.txtEnterMemo, Me.NewSchoolsID, TempVars!tmpTO_ID.Value
    memoNew.saveMemo Me.txtEnterMemo


    Me.txtMemoWell = memoNew.updateMemoList(Me.NewSchoolsID)
    
'    Debug.Print "Date: " & memoNew.MemoDS
'    Debug.Print "School ID: " & memoNew.MemoSchoolID
'    Debug.Print "Memo: " & memoNew.MemoField


End If
    
End Sub

however for some reason I have to press enter a second time after pressing it (which means I have to move the courser into the field again because it jumps out).



any suggestions?

[Ruegen]

the Enter Key Behaviour is on default for the control if that helps. I don't need new line either.

Also would like this event to fire when I move to the next record - before the next record is shown on the form. Don't know which event to use