Makro für Button ?

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

ich möchte gerne für ein Access-Formualr ein Button erstellen.
Wie ein Button erstellt und mit einem Makro verknüpfen kann, ist mir
schon klar.

Aber wie sieht ein Code für folgene Aufgabe aus?

Wenn man auf den Button klickt, dann wird in einer Tabellenzelle der Status auf nicht aktiv (Felddatentyp Nein) gesetzt. Drückt man nochmal darauf, dann wird es Status aktiv (Felddatentyp Ja) gesetzt.

Die Beschriftung des Button soll sich dann auch entsprechend ändern, bei nicht aktiv steht auf dem Button „nicht aktiv“ drauf.

Kann man sich so ein Code irgendwo anschauen ? Danke im voraus.
Gruß,Marsi

#2

Zunächst einmal: Makros sind Mist (http://www.dbwiki.de/wiki.php?title=Access_Design:Ma…)

Was deine Aufgabe angeht, hängt das nicht zuletzt davon ab, wo sich die Schaltfläche befindet, ob es sich um ein Einzelformular oder ein Endlosformular oder Datenblatt handelt und - wenn es eines der letzteren beiden ist - welche Zeile jeweils markiert wird.

Ganz allgemein kann und sollte man sich fragen: Wozu überhaupt das ganze!? Nimm ein gebundenes Kontrollkästchen oder eine gebundene Umschaltfläche, dann kannst du genau dort an und abkreuzen, wo es auch dargestellt wird. Das ist eigentlich die direkteste Art der Benutzerführung!

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)

#3

Hallo Reinhard,

danke für Deine Antwort.
Ich will es für ein einfaches Formular schreiben.
Ich möchte dies erstellen, weil es meine Kollegen gerne so ein Button haben wollen.
Mit dem Kontrollkästchen habe ich es gemacht, aber gewünscht wird ein Button. Deswegen suche ich eine Lösung für mein Problem.
Gruß, Marsi

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

#4

Hallo.

Wenn man auf den Button klickt, dann wird in einer
Tabellenzelle der Status auf nicht aktiv (Felddatentyp Nein)
gesetzt. Drückt man nochmal darauf, dann wird es Status aktiv
(Felddatentyp Ja) gesetzt.

Zunächst noch mal der Verweis auf Reinhards Tip, Dein Tabellenfeld an die Schaltfläche zu binden. Dann musst Du die Aktualisierung des Feldinhaltes schon nicht mehr selbst vornehmen. Übrigens benützt man hierfür nicht eine Befehls-, sondern eine Umschaltfläche (dies nur sicherheitshalber).

Zum Umswitchen der Beschriftung brauchst Du dann nur noch diesen Schnipsel

Sub Schaltfläche AfterUpdate()
If Schaltfläche Then
 Schaltfläche.Caption="aktiv"
Else
 Schaltfläche.Caption="nicht aktiv"
End If
End Sub

Gruß kw

#5

Na, dann nimm halt eine Umschaltfläche…

Oder wenn es unbedingt sein muss, eine Schaltfläche:

Private Sub Button\_Click()
 Me!MeinKontrollkästchen = Not NZ(Me!MeinKontrollkästchen,False)
end sub

ist aber, wenn du mich fragst, Blödsinn…

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)

#6

Und dann aber noch:

Private Sub Form\_Current
 Call Schaltfläche\_AfterUpdate
end sub

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)