Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon Torillo vom 03.09.2021, 17:58 Options
Memo-Feld mit Datum/Uhrzeit "von oben befüllen"
Hallo Spezialisten!
In einem Formular fülle ich über folgenden Code das aktuelle Datum und die aktuelle Uhrzeit in ein Memo-Feld.
Private Sub Historie-DS-anfuegen_Click()
SendKeys ("^{Home}")
historie.Text = historie.Text & vbCrLf & "-------------------------- " & Now & " --------------------------" & vbCrLf
historie.Text = historie.Text & vbCrLf & "----------------------------------------------------------------------------------------"
historie.SetFocus
SendKeys ("^{Down}")
SendKeys ("^{Down}")
End Sub
Nach dem Klicken wird folgender Eintrag in dem Memo-Feld gemacht (ohne "Beispieleintrag1"):
-------------------------- 03.09.2009 17:53:07 --------------------------
Beispieleintrag1
----------------------------------------------------------------------------------------
Der Cursor steht automatisch in der leeren Zeile (zwischen den beiden gestrichelten Linien), um Daten einzugeben (hier: Beispieleintrag1). Nun soll beim nächsten Klicken des Buttons wieder ÜBER dem alten Eintrag Datum und Uhrzeit eingetragen werden, also so:
-------------------------- 03.09.2009 17:54:59 --------------------------
Beispieleintrag2
----------------------------------------------------------------------------------------
-------------------------- 03.09.2009 17:53:07 --------------------------
Beispieleintrag1
----------------------------------------------------------------------------------------
Leider wird der zweite Eintrag aber UNTER dem ersten Eintrag erzeugt (trotz SendKeys ("^{Home}" in der ersten Zeile des Codes).
Hat jemand eine Idee, wie sich das bewerkstelligen läßt?
Vielen Dank schon mal im Voraus!
In einem Formular fülle ich über folgenden Code das aktuelle Datum und die aktuelle Uhrzeit in ein Memo-Feld.
Private Sub Historie-DS-anfuegen_Click()
SendKeys ("^{Home}")
historie.Text = historie.Text & vbCrLf & "-------------------------- " & Now & " --------------------------" & vbCrLf
historie.Text = historie.Text & vbCrLf & "----------------------------------------------------------------------------------------"
historie.SetFocus
SendKeys ("^{Down}")
SendKeys ("^{Down}")
End Sub
Nach dem Klicken wird folgender Eintrag in dem Memo-Feld gemacht (ohne "Beispieleintrag1"):
-------------------------- 03.09.2009 17:53:07 --------------------------
Beispieleintrag1
----------------------------------------------------------------------------------------
Der Cursor steht automatisch in der leeren Zeile (zwischen den beiden gestrichelten Linien), um Daten einzugeben (hier: Beispieleintrag1). Nun soll beim nächsten Klicken des Buttons wieder ÜBER dem alten Eintrag Datum und Uhrzeit eingetragen werden, also so:
-------------------------- 03.09.2009 17:54:59 --------------------------
Beispieleintrag2
----------------------------------------------------------------------------------------
-------------------------- 03.09.2009 17:53:07 --------------------------
Beispieleintrag1
----------------------------------------------------------------------------------------
Leider wird der zweite Eintrag aber UNTER dem ersten Eintrag erzeugt (trotz SendKeys ("^{Home}" in der ersten Zeile des Codes).
Hat jemand eine Idee, wie sich das bewerkstelligen läßt?
Vielen Dank schon mal im Voraus!
Antwort 1 von malSchauen vom 07.09.2021, 22:10 OptionsLösung
Hi,
Natürlich werden die neuen Einträge UNTER die bisherigen geschrieben. Daran kann auch Dein SendKeys ("^{Home}") nichts ändern. Damit positionierst Du nur den Cursor in die linke obere Ecke.
Die Reihenfolge/Zusammensetzung des Textes hingegen wird ausschliesslich in den Zeilen mit historie.Text =... bestimmt.
Hier hängst Du doch selbst an den bisherigen Text ein CRLF sowie die Bindestriche, als auch weiterhin Datum &Uhrzeit , etc. HINTEN dran. (Also unten drunter.)
Soll der neue Text vor den bisherigen, dann musst Du das auch im Code so zusammenfügen. Um bei Deinem obigen Beispiel zu bleiben, könnte das aussehen wie folgt:
An welcher Stelle im Code die SendKeys stehen, sollte dabei egal sein. Ich hab sie nur "meiner Logik folgend" nach hinten geschoben. (Inhalt zusammenstückeln, Focus auf das Feld, Cursor nach links oben, eine Zeile runter, erstes Wort ("?") markieren.)
Bye
malSchauen
Natürlich werden die neuen Einträge UNTER die bisherigen geschrieben. Daran kann auch Dein SendKeys ("^{Home}") nichts ändern. Damit positionierst Du nur den Cursor in die linke obere Ecke.
Die Reihenfolge/Zusammensetzung des Textes hingegen wird ausschliesslich in den Zeilen mit historie.Text =... bestimmt.
historie.Text = historie.Text & vbCrLf & "-------- " & Now & " -------" & vbCrLfHier hängst Du doch selbst an den bisherigen Text ein CRLF sowie die Bindestriche, als auch weiterhin Datum &Uhrzeit , etc. HINTEN dran. (Also unten drunter.)
Soll der neue Text vor den bisherigen, dann musst Du das auch im Code so zusammenfügen. Um bei Deinem obigen Beispiel zu bleiben, könnte das aussehen wie folgt:
Private Sub Historie-DS-anfuegen_Click()
historie.Text = vbCrLf & "----------" & vbCrLf & historie.Text
historie.Text = "----- " & Now & " -------" & vbCrLf & "?" & historie.Text
historie.SetFocus
SendKeys ("^{Home}")
SendKeys ("{Down}")
SendKeys ("^+{Right}")
End Sub
An welcher Stelle im Code die SendKeys stehen, sollte dabei egal sein. Ich hab sie nur "meiner Logik folgend" nach hinten geschoben. (Inhalt zusammenstückeln, Focus auf das Feld, Cursor nach links oben, eine Zeile runter, erstes Wort ("?") markieren.)
Bye
malSchauen
Antwort 2 von Torillo vom 08.09.2021, 08:11 Options
Hi malSchauen,
vielen, vielen Dank, das klappt so!!!!! Perfekt !!!!!
Sorry, ich bin grade erst dabei, mich mit dem Thema zu beschäftigen, hab nicht allzu viel bis keine Erfahrung!
Vielen Dank nochmal für Deine Hilfe!
Torillo
vielen, vielen Dank, das klappt so!!!!! Perfekt !!!!!
Sorry, ich bin grade erst dabei, mich mit dem Thema zu beschäftigen, hab nicht allzu viel bis keine Erfahrung!
Vielen Dank nochmal für Deine Hilfe!
Torillo
Ähnliche Themen
email aus memo ausfiltern
Sylmo_HB 03.07.2008 - 30 Hits - 1 Antwort
Systemzeit / Uhrzeit
petitala 19.07.2008 - 2407 Hits -
Feld berechnen
M1kele 08.09.2008 - 9 Hits - 4 Antworten
Textfeld mit Abfrage befüllen
morpheus__85 19.09.2008 - 61 Hits - 3 Antworten
Berechnete Feld
yxc 16.02.2009 - 185 Hits - 8 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
