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!
Hallo,
Zitatder Fehlercode Laufzeitfehler 438...
Was soll man damit anfangen ?
Bitte die Fehlernummern vollständig zeigen und den kompletten Fehlertext zitieren.
@hedi
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
Sorry, doof aufgeschrieben.
Fehlercode lautet: Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht
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.
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 :o
Wenn das Steuerelemente sichtbar oder unsichtbar gesetzt werden sollen , dann sollte das auch so vorgeschrieben werden:
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