MS-Access-Formular - wie Feld automatisch ändern?

[Tueftler]

Hallo zusammen.
Ich hab hier ein Access Formular mit 2 Feldern.
Ein Textfeld und eine Checkbox.
Sobald ich in das Textfeld was rein schreibe, hätte ich gerne das in der Checkbox der Harken gesetzt wird. Das Ganze sollte auf Formularebene und nicht per SQL auf Tabellenebene laufen. Das soll das Formular dann machen.
Ich würde jetzt eine Ereignisprozedur aufrufen, sobald im Textfeld eine Änderung vorgenommen wird.
Nur - wie muss die Ereignisprozedur aussehen?

[fireball]

Ohne mich in den Access-VBA-Spezialitäten großartig auszukennen:

Code: Alles auswählen

if (textboxname.Text <> "") then 
checkbox.Value = vbChecked
else
checkbox.Value = vbUnchecked
endif

Wie gesagt, ich mache wenig bis garnichts in Access - der Codeschnipsel sollte Dir aber hinreichend hilfreich sein.

[RedBull]

Schicke mir die DB (wenn nicht zu groß) oder nur das Form dann baue ich dir das ein und du kannst nachvollziehen wie es geht!

Edit: vielleicht kann ich es auch verständlich erklären

Einfügen einer Ereignisprozedur in den Eigenschaften des Textfeldes (Eigenschaft: Nach Aktualisierung) einfach die Schaltfläche mit den drei Punkten klicken!

Dann folgenden Code einfügen:

Code: Alles auswählen

Private Sub Text0_AfterUpdate()

If Me.Text0 <> "" Then
    Me.Kontrollkästchen2 = True
Else
    Me.Kontrollkästchen2 = False
End If

End Sub

Text0 ist der Name des Textfeldes
Kontrollkästchen2 ist der Name der Checkbox

[Tueftler]

Danke! Mit der Vorlage von RedBull hat es einwandfrei funktioniert!
@Admins: Bitte schließen

[fireball]

Argls... Mit Default-Properties arbeitet man aber nicht *grusel*

[Tueftler]

Mit Default-Properties arbeitet man aber nicht *grusel*

Sind aba Vorgaben

[RedBull]

Argls... Mit Default-Properties arbeitet man aber nicht *grusel*

Nicht mehr da hast du recht, zu Access Zeiten (welches schon lange tot ist) wars aber noch so wenn ich mich richtig erinnere
Und ein Anfänger tut sich damit auch leichter!

[fireball]

Machts aber unübersichtlicher. Hab übrigens oben nochmal nachkorrigiert - korrekt sind nicht(!) True/False, sondern "vbChecked", "vbUnchecked" und "vbGrayed" - dass False und True zufällig in VB6 auf 0 und 1 mappen und aufgrund der impliziten Typkonvertierung zuweisbar sind, ist Zufall und auch eher unschön - und für vbGrayed gibts ja keine entsprechung in Bool...

Ob man sich da wirklich leichter tut, wage ich zu bezweifeln. Es verschlechtert einfach die Lesbarkeit, weil man nie genau weiss, was da jetzt zugewiesen wird.

[RedBull]

dass False und True zufällig in VB6 auf 0 und 1 mappen

Ist auch VBA und nicht VB6

[fireball]

Was keinen Unterschied macht

[RedBull]

korrekt sind nicht(!) True/False, sondern "vbChecked", "vbUnchecked" und "vbGrayed"

vbChecked bzw vbUnchecked .... gibts nicht in VBA

Einigen wir uns auf:

Code: Alles auswählen

Private Sub Text3_AfterUpdate()

If Me.Text3 <> "" Then
    Me.Kontrollkästchen0.Value = 1
Else
    Me.Kontrollkästchen0.Value = 0
End If

End Sub

[fireball]

Gute Zwischenlösung

Also man könnte jetzt 2 Konstanten... erm...