Thema Datum  Von Nutzer Rating
Antwort
Rot Send Keys
08.10.2023 10:22:30 Wasser
NotSolved
08.10.2023 19:35:19 Markusxy
NotSolved
09.10.2023 05:36:40 Wasser
NotSolved
09.10.2023 09:23:54 Markusxy
Solved
11.10.2023 13:28:21 Gast96821
NotSolved
13.10.2023 13:01:26 Markusxy
NotSolved

Ansicht des Beitrags:
Von:
Wasser
Datum:
08.10.2023 10:22:30
Views:
219
Rating: Antwort:
  Ja
Thema:
Send Keys

   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. 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Send Keys
08.10.2023 10:22:30 Wasser
NotSolved
08.10.2023 19:35:19 Markusxy
NotSolved
09.10.2023 05:36:40 Wasser
NotSolved
09.10.2023 09:23:54 Markusxy
Solved
11.10.2023 13:28:21 Gast96821
NotSolved
13.10.2023 13:01:26 Markusxy
NotSolved