PDA

Vollständige Version anzeigen : Sperren


Sobsy
08.02.2001, 15:07
Benötige Dringend Hilfe!!!

rufe in einem endlosformular diverse datensätze ab.
diese datensätze beinhalten die felder ANBez und Anteil. der Anteil ist ein Wert und ANBez ist ein text.
folgendes möchte ich nun erreichen:
wenn der letzte buchstabe im feld ANBez ein V ist muss das feld Anteil nur in diesem datensatz gesperrt werden.
bei allen anderen datensätzen die die bedingung V nicht erfüllen muß man in das feld Anteil hinein schreiben können.

Bitte um rasche Hilfe, denn ich benötige dies ganz dringend. Meine bisherigen versuche ergaben nur, daß aufeinmal alle Felder Anteil gesperrt waren. Die Lösung von MarkusR ergab auch nur dieses Ergebnis.

Danke schon in voraus!!!

bodoboss
08.02.2001, 17:35
Hi Sobsy,

ich würde dir mal das hier vorschlagen
und hoffe dir damit geholfen zu haben.
Diesen VBA-Code mußt du in das
Formularerignis 'Beim Anzeigen' packen
und dann sollte es funktionieren.
eigentlich http://www.microsyskramer.de/ubb/smile.gif

Private Sub Form_Current()
x = Right(ANBez.Value, 1)
If x = "v" Then Anteil.Locked = True
If x <> "v" Then Anteil.Locked = False
End Sub

der Bodo

ingrf
08.02.2001, 18:30
Versuch mal das bei dem Feld Anteil Taste ab


Private Sub Anteil_KeyDown(KeyCode As Integer, Shift As Integer)
If Right(UCase(AnBez), 1) = "V" Then
KeyCode = 0
End If
End Sub

Eine andere möglichkeit ist Beim Hingehen

Private Sub Anteil_Enter()
If Right(UCase(AnBez), 1) = "V" Then
Anteil.Locked = True
Else
Anteil.Locked = False
End If

Viele wegen führen nach Rom


Rolli

Sobsy
09.02.2001, 08:29
SUUUUPER!!!

Wenn man noch die Variable definiert:
dim x as string

dann funktioniert es!!!

Danke, danke und nochmals danke an
BODO
für diesen Tip

Sobsy
09.02.2001, 08:33
Danke ROLLI für deine Tips!!

Habe derzeit den Tip von BODO umgesetz.
Werde deine Tips etwas später auch ausprobieren. Werde ein Feedback später hier plazieren.

Nochmals danke für die Hilfe.