Befehlschaltfläche aktivieren/deaktivieren

Computer: Software & Programmierung Microsoft Access
#1

Hi Zusammen,

Ich habe wiedereinmal ein Problem, nämlich ich habe ein Formular „Einstellungen“ Wo ein Kontrollkästchen mit der Bezeichnung „Passwort“ ist und eine Befehlsschaltfläche.

Ich möchte das solange das Kontrollkästchen auf „nein“ steht die Befehlsschaltfläche Deaktiviert sein soll. Wenn man das Kontrollkästchen auf „Ja“ stellt dann soll die Befehlsschaltfläche aktiviert werden.

Ich arbeite mit Access 2003 und wenn es geht ohne VBA, aber wenn keine andere möglichkeit da ist auch mit. Ich bin was VBA angeht Anfänger.

Ich würde mich sehr freuen wenn Ihr mir da mit einem Beispiel helfen könntet.

Danke im Voraus

Grüße aus Denklingen
Rudolf

#2

Hallo,

Ich möchte das solange das Kontrollkästchen auf „nein“ steht
die Befehlsschaltfläche Deaktiviert sein soll. Wenn man das
Kontrollkästchen auf „Ja“ stellt dann soll die
Befehlsschaltfläche aktiviert werden.

OK, also mit VBA im Ereignis „Current“ (BeimAnzeigen) des Formulars und „AfterUpdate“ (NachAktualisieren) des Kontrollkästchens folgenden Code einfügen:

If Me![Name_Kontrollkästchen] = True Then
Me![Name_Schaltfläche].Enabled = True
Else
Me![Name_Schaltfläche].Enabled = False
End If

ujk

#3

Hallo.

If Me![Name_Kontrollkästchen] = True Then
Me![Name_Schaltfläche].Enabled = True
Else
Me![Name_Schaltfläche].Enabled = False
End If

oder einfacher

Me![Name\_Schaltfläche].Enabled=Me![Name\_Kontrollkästchen]

Gruß Eillicht zu Vensre

#4

Danke (an beide) das hat mir Sehr geholfen schön einfach erklärt!

Wie müsste ich den Code (BeimAnzeigen) ändern wenn das Formular mehrere Kontrollkästchen und mehrere Befehlsschaltflächen hat und ich bei allen die oben aufgeführte Funktion haben will.

Vielen Dank im Voraus!!

Rudolf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Ich weiß nicht, ob es da noch eine einfachere Methode gibt aber ich wiederhole den Text einfach, halt mit den entsprechenden Variablen.
Wenn die Schaltfläche an mehrere Kontrollkästchen gebunden ist machst du das so:
If Me![Name_Kontrollkästchen] = True Or (bzw. and) Me![Name_Kontrollkästchen2] = True Then
Me![Name_Schaltfläche].Enabled = True
Else
Me![Name_Schaltfläche].Enabled = False
End If

Es gibt bestimmt noch eine elegantere Lösung. Da ich von VBA auch nicht so die Ahnung habe mache ich das immer so, wie es für am einfachsten ist (das wäre in dem Fall so)

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#6

Danke für die antwort leider habe ich
mich falsch ausgedrückt! Ich meine:

1 Formular
Kontrollkästchen „Ich“ = Befehlsschaltfläche „Ich“
Kontrollkästchen „Wir“ = Befehlsschaltfläche „Wir“
Kontrollkästchen „du“ = Befehlsschaltfläche „du“

Jedes Kontrollkästchen bezieht sich auf eine eigene Schaltfläche!!!

Dieser Code kommt (BeimAnzeigen) rein wenn ich nur ein
Kontrollkästchen und eine Schaltfläche habe.

If Me![Name_Kontrollkästchen] = True Then
Me![Name_Schaltfläche].Enabled = True
Else
Me![Name_Schaltfläche].Enabled = False
End If

Den Code muss man ändern aber ich weiss nicht wie!!!???
Kann mir da jemand helfen???

Ich hoffe ich habe mich jetzt besser ausdrücken können was mein Problem ist.

Vielen Dank für eure (deine) Hilfe

Rudolf

#7

Hallo,

das Codeschnipsel dreimal hintereinander in die Ereignisse einfügen mit den jeweils zugehörigen Namen.

Aber

Kontrollkästchen „Ich“ = Befehlsschaltfläche „Ich“

zwei Steuerelemente auf dem gleichen Formular dürfen doch nicht den gleichen Namen haben?

ujk

#8

Danke!: Befehlschaltfläche aktivieren/deaktivieren

das Codeschnipsel dreimal hintereinander in die Ereignisse
einfügen mit den jeweils zugehörigen Namen.

Danke Funktioniert bestens! Danke!!!

Kontrollkästchen „Ich“ = Befehlsschaltfläche „Ich“

zwei Steuerelemente auf dem gleichen Formular dürfen doch
nicht den gleichen Namen haben?

Tut mir Leid ich habe das falsche Beispiel dafür genommen in meinem Formular habe ich verschiedene Namen dafür genommen!!!

Vielen Dank für deine (eure) Hilfe!!!

Rudolf