Inhalt Markieren

02/06/2009 - 11:57 von Edi Bauer | Report spam
Hallo NG,

Ich möchte, dass der komplette Inhalt des Textfeldes "Preis" markiert wird
wenn auf das Feld mit der Maus geklickt wird.
Mit diesem Code passiert aber überhaupt nichts. Was habe ich falsch gemacht?

Private Sub Preis_GotFocus()
With Me!Preis
.SelStart = 1
.SelLength = Len(Me!Preis)
End With
End Sub

Zusatzfrage:
der Preis ist mit Wàhrungsformat formatiert. Dieser Code "L = Len(Me!Preis)"
liefer nur die Lànge der Zahl. Die Dezimalstellen die 0 sind werden nicht
berücksichtigt. Wie kann ich die gesamte Lànge ermitteln, einschließlich
Lerrzeichen und dem ?-Zeichen?

Vielen Dank

Edi
 

Lesen sie die antworten

#1 Jörg Ackermann
02/06/2009 - 12:12 | Warnen spam
Hallo Edi,

Edi Bauer meinte:

Ich möchte, dass der komplette Inhalt des Textfeldes "Preis" markiert
wird wenn auf das Feld mit der Maus geklickt wird.
Mit diesem Code passiert aber überhaupt nichts. Was habe ich falsch
gemacht?
Private Sub Preis_GotFocus()
With Me!Preis
.SelStart = 1
.SelLength = Len(Me!Preis)
End With
End Sub

Zusatzfrage:
der Preis ist mit Wàhrungsformat formatiert. Dieser Code "L > Len(Me!Preis)" liefer nur die Lànge der Zahl. Die Dezimalstellen die
0 sind werden nicht berücksichtigt. Wie kann ich die gesamte Lànge
ermitteln, einschließlich Lerrzeichen und dem ?-Zeichen?




...
.SelStart = 0
.SelLength = Len(Format$(Me!preis, "Currency"))
...

Gruß Acki

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen