String erweitern

[freak]

Halöle

In einem Access-Formular habe ich ein eingabefeld : "bewertung", in diesem Feld sind bis zu 5 sterne als bewertung möglich einzugeben...

mit einem button möchte ich nun die anzahl sterne erhöhen können, und bei 5 sternen sollte schlsus sein...

keine ahnung von VB aber im access gehts ja nicht anders

[rw]

Hallo,

im Button_click -Event muss stehen:

Textfeld.setfocus
If len(Textfeld.text) < 5 then
  Textfeld.text=textfeld.text+"*"
endif

Textfeld ist der Name des zu ändernden Textfeldes.
Das Setfocus ist notwendig, da Access sonst einen Fehler ausspuckt, dass man nur auf Elemente des Formularelements zugreifen kann, das den Fokus besitzt.

Gruss

Ralf

[freak]

Ich probiers erst morgen aus
 aber sieht gut aus, danke schön :)

[rw]

Hallo,

mir ist da ein kleiner Fehler unterlaufen,

es muss nicht heissen:

textfeld.text=textfeld.text + "*"
                            ^^
sondern

textfeld.text=textfeld.text & "*"

denn der Konkatinierungsoperator ist das "&" in VB und Abkömmlingen und nicht das "+".

Gruss
Ralf