|
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.
|