Private Sub TNr_Click()                                              'Formular    "FThema"     Feldname  "TNR" Auto NumFeld  Themen Nummer 

DoCmd.GoToControl "TNr"                                             'Positioniere Cursor to NumFld "TNr"

SendKeys "^{c}", True                                                    ' Send ctlT+C to cut        sollte  TNr Nummer   in die Zwisachenablage  gespeichert sein
        
DoCmd.Close acForm, "FThema"

'Zurück zum Formular und copy TNr in Feld TNr mit CTl + V oder  SendKeys "^{v}", True   

End Sub

Wenn hier jemand helfen möchte, Hilfe wird gerne angenommen.

Ich habe ähnlichen Code bereits verwendet, wenn ich z. B. Ein Textfeld markierte und dann mit SendKey diesen Inhlat in die Zwischenablage  kopierte. 

Das funktinierte aber immer nur dann, wenn das Textfeld vorher  mit dem Kursor markiert wurde, andernfals wird die gesamt Prozedur als Text ind die Zwischenablage gebracht.

Wie als kann ich das NummFeld oder irgendein anderes Textfeld über die Eigenschften automatisch markieren.