Anfänger bei Access: Rechner

[hedi]

Hallo!
Ich bin ganz neu bei Access. Dadurch, dass die Hochschulen zu sind, muss ich mir das jetzt mehr oder minder selbst beibringen.
Ich hoffe ihr könnt mir bei meiner (vermutlich banalen) Frage helfen.

Ich soll einen "Taschenrechner" erstellen und habe mich eigentlich strikt an das Buch meiner Dozentin gehalten. Dennoch kommt bei Ausführung der Fehlercode Laufzeitfehler 438...

Der Code ist folgender:

Option Compare Database

Private Sub Addi_Click()
Addi.Visible = True
Ergebnis = ZahlA + ZahlB
Addi = True
Divi = False
Mult = False
Subt = False
End Sub

Private Sub Divi_Click()
Divi.Visible = True
Ergebnis = ZahlA / ZahlB
Addi = False
Divi = True
Mult = False
Subt = False
End Sub

Private Sub Mult_Click()
Mult.Visible = True
Ergebnis = ZahlA * ZahlB
Addi = False
Divi = False
Mult = True
Subt = False
End Sub

Private Sub Subt_Click()
Subt.Visible = True
Ergebnis = ZahlA - ZahlB
Addi = False
Divi = False
Mult = False
Subt = True
End Sub

Danke vorab!

[MzKlMu]

Hallo,

der Fehlercode Laufzeitfehler 438...

Was soll man damit anfangen ?
Bitte die Fehlernummern vollständig zeigen und den kompletten Fehlertext zitieren.

[Beaker s.a.]

@hedi

Code [Auswählen] Erweitern

Option Compare Database
'hier fehlt schon mal ein
Option Explicit    'das gehört in JEDES Modul

Private Sub Addi_Click()
Addi.Visible = True
Frage: wie klickst du ein Control, das nicht sichtbar ist?
Ansonsten, - Klaus' Wünschen entsprechen.
gruss ekkehard

[hedi]

Sorry, doof aufgeschrieben.
Fehlercode lautet: Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht

[MzKlMu]

Hallo,
immer noch nicht vollständig beschreiben.
In welcher Zeile entsteht der Fehler ?

Die Zeilen mit dem .Visible dürften überflüssig sein. Du kannst ja nur Klicken wenn diese Steuerelemente sichtbar sind. Und warum dann noch mal sichtbar machen?

Was willst Du mit denn mit den Zuweisungen True und Fals erreichen ?
Sind das Kontrollkästchen ?

Irgendwie scheint mir das Kursbuch Deiner Dozentin etwas erklärungsbedürftig zu sein.

[DF6GL]

Hallo,

der ganze Code ist eigentlich fehlerhaft.

Wenn  " eigentlich strikt an das Buch meiner Dozentin gehalten"  stimmt (und auf den Code bezogen werden kann), dann ist eine Weiterbildung der Dozentin zu raten 

Wenn das Steuerelemente sichtbar oder unsichtbar gesetzt werden sollen , dann sollte das auch so vorgeschrieben werden:

Code [Auswählen] Erweitern

Private Sub Divi_Click()
Me!Divi.Visible = True 'ist hier Quatsch, weil nur eine sichtbare Schaltfläche angeklickt werden kann.
Me!Ergebnis = ZahlA / ZahlB
Me!Addi.Visible = False
Me!Divi.Visible = True  'doppelt gemoppelt, dadurch wird's auch nicht anders.
Me!Mult.Visible = False
Me!Subt.Visible = False
End Sub