Hallo Dieter,
um für ein textfeld Alt+ENTER abzufangen, geht:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim intAltGedr As Integer

    ' Bit-Masken einsetzen, um die gedrückte Taste zu ermitteln.
    intAltGedr = (Shift And acAltMask) > 0
    ' Per Meldung dem Benutzer mitteilen, welche Taste gedrückt wurde.
    If intAltGedr And (KeyCode = vbKeyReturn) Then MsgBox "Sie haben ALT+Return gedrückt."
End Sub

Um für das ganze Formular Alt+ENTER abzufangen, geht:

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim intAltGedr As Integer
    ' Bit-Masken einsetzen, um die gedrückte Taste zu ermitteln.
    intAltGedr = (Shift And acAltMask) > 0
    ' Per Meldung dem Benutzer mitteilen, welche Taste gedrückt wurde.
    If intAltGedr And (KeyCode = vbKeyReturn) Then MsgBox "Sie haben ALT+Return gedrückt."
End Sub

Wichtig ist, dass über Form_Load die Tastenvorschau für das Formular eingeschaltet wird .


Allerdings wird so das Ereignis nicht aus der Messagequeue (auch nicht durch DoCmd.CancelEvent) bzw. erst durch die Msgbox entfernt. Deshalb ersetzt du die MsgBox durch:

       KeyCode = 0
       Shift = 0

Das verhindert, dass der Tastencode an andere Ereignisprozeduren weiter gegeben wird, so dass Form_KeyDown denn so aussieht:

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim intAltGedr As Integer
    ' Bit-Masken einsetzen, um die gedrückte Taste zu ermitteln.
    intAltGedr = (Shift And acAltMask) > 0
    If intAltGedr And (KeyCode = vbKeyReturn) Then
       '   ALT+Return gedrückt
       KeyCode = 0
       Shift = 0
    End If
End Sub

Ich hoffe, du kannst damit was anfangen.
Gruß
lorf