Kontrollkästchen deaktivieren

Computer: Software & Programmierung Microsoft Access
#1

Hallo, bin neu hier
meine Frage zu access
habe ein Formular mit kontrollkästchen, wenn ich nun in ein Textfeld einen wert eingebe der grösser als null ist (null ist standartwert) sollte das kontrollkästchen deaktiviert werden.
danke für eure hilfe

#2

Hallo,

Hallo, bin neu hier

willkommen

meine Frage zu access
habe ein Formular mit kontrollkästchen, wenn ich nun in ein
Textfeld einen wert eingebe der grösser als null ist (null ist
standartwert) sollte das kontrollkästchen deaktiviert werden.

Wie weit gehen Deine VBA-Kenntnisse?

Wenn mit „null“ der numerische Wert 0 gemeint ist, dann ist das
mittels folgender Ereignisprozudur in etwa so zu realisieren:

Sub DeinTextfeld_Afterupdate()
Me!Kontrollkasten1.Locked = nz(Me!DeinTextfeld,0)> 0
End Sub

Viele Grüße vom Bodensee
Franz, DF6GL

#3

Hallo Franz
das hat schon mal super geklappt, Danke
wie kann ich das jetzt noch mit zwei Kontrollkästchen
machen?

Gruss OW88

#4

Moin Moin,

mit zwei drei …Kästchen machst du es genau so.

Sub DeinTextfeld1_Afterupdate()
Me!Kontrollkasten1.Locked = nz(Me!DeinTextfeld1,0)> 0
End Sub

Sub DeinTextfeld2_Afterupdate()
Me!Kontrollkasten2.Locked = nz(Me!DeinTextfeld2,0)> 0
End Sub

usw.

Grüße aus Rostock
Wolfgang
(Netwolf)

#5

Danke für den Tipp
aber die Kontrollkasten sollten beide mit demselben
Textfeld deaktiviert werden, also wenn das textfeld grösser als 0 Wert hat, sollten beide Kontrollkasten deaktiviert werden, wie gesagt mit einem klappt es einwandfrei, nur weiss ich nicht wo ich den zweiten Kontrollkasten hinschreiben soll.

OW88

#6

HAllo

Danke für den Tipp
aber die Kontrollkasten sollten beide mit demselben
Textfeld deaktiviert werden, also wenn das textfeld grösser
als 0 Wert hat, sollten beide Kontrollkasten deaktiviert
werden, wie gesagt mit einem klappt es einwandfrei, nur weiss
ich nicht wo ich den zweiten Kontrollkasten hinschreiben soll.

naja, halt so:

Sub DeinTextfeld_Afterupdate()

If nz(Me!DeinTextfeld,0)> 0 Then
Me!Kontrollkasten1.Locked = True
Me!Kontrollkasten2.Locked = True
Me!Kontrollkasten3.Locked = True
.
.
Else
Me!Kontrollkasten1.Locked = False
Me!Kontrollkasten2.Locked = False
Me!Kontrollkasten3.Locked = False
.
.
End If

End Sub

Ich empfehle aber dringend, das Tabellen- und Ablaufkonzept zu überdenken…

Viele Grüße vom Bodensee
Franz, DF6GL

#7

Besten Dank
so hab ich es hinbekommen
Gruss aus dem Wallis
ow88