Access, Text mit Shortkey eingeben

Computer: Software & Programmierung Microsoft Access
#1

Hallo,
ich möchte mit einem Shortkey einen Standardtext an der Cursorposition in ein Feld (Memofeld), eingeben.
Wie löse ich das mit VBA?
Es grüßt
Tomte

#2

Hallo,

etwa so .

Beim Drücken von >Strg + i< wird " Neuer Text " an der Schreibmarkenposition eingesetzt(Luftcode, ohne Errorhandler):

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


'Eigenschaften/Ereignis/Tastenvorschau auf Ja setzen


Dim strChars As String, lngSelStart As Long, lngLen As Long, strPrior As String, strAfter As String

strChars = " Neuer Text "

If Shift = 2 And KeyCode = 73 Then
    If strChars <> vbNullString Then
        With Screen.ActiveControl
            If .Enabled And Not .Locked Then
                lngLen = Len(.Text)
                
                If lngLen <= 32767 - Len(strChars) Then
                   
                    lngSelStart = .SelStart
                    If lngSelStart > 1 Then
                        strPrior = Left$(.Text, lngSelStart)
                    End If
                  
                    If lngSelStart + .SelLength < lngLen Then
                        strAfter = Mid$(.Text, lngSelStart + .SelLength + 1)
                    End If
                    
                    .Value = strPrior & strChars & strAfter
                    .SelStart = lngSelStart + Len(strChars)
                    
                    
                End If
            End If
        End With
    End If

End If

End Sub