Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: uwe01 am April 27, 2020, 10:13:45

Titel: Fehler bei Select Case
Beitrag von: uwe01 am April 27, 2020, 10:13:45
Hallo Leute,
habe ein Problem mit der Select Case Anweisung.
Ich habe in meiner DB das ein oder andere Auswahl Formular welche auch einwandfrei laufen.
Jetzt wollte Ich ein neues Auswahl Formular dazu fügen, also neues Formular erstellt mit einer Optionsgruppe dann noch eine Schaltfläche mit den Namen "Auswahl durchführen" fertig.
Als nächstes ein Ereignis beim Klicken erstellen
Private Sub AuswahlDurchführen_Click()
    Select Case Me!ReparaturAuswahlmitUnfall   
        Case 1
            DoCmd.OpenReport "rptReparaturnen", acViewNormal
            DoCmd.Close acForm, "ReparaturAuswahlmitUnfall"
        Case 2
            DoCmd.OutputTo acOutputReport, "rptReparaturen"
            DoCmd.Close acForm, "ReparaturAuswahlmitUnfall"
        Case 3
            DoCmd.OpenReport "rptReparaturen", acViewPreview
            RunCommand acCmdZoom100
            DoCmd.Close acForm, "Hauptmenü"
            DoCmd.Close acForm, "frmReparaturAuswahlmitUnfall"

Wenn ich es jetzt durch Klicken auf den Butten "Auswahl durchführen" erhalte ich eine Fehlermeldung
Laufzeitfehler 2465
Microsoft Access kann das in Ihrem Ausdruck angesprochene Feld ,,ReparaturAuswahlmitUnfall" nicht finden.
Obwohl die Optionsgruppe im Rahmen so benannt ist, genauso wie das Formular.
Kann es vielleicht daran liegen das die anderen Auswahl Formulare in Access 2013 geschrieben sind, und das neue welches ich erstellen möchte mit Office 365 erstellt wird. Gibt es vielleicht im 365 Office einen anderen VBA Code?
Hat da einer eine schnelle Lösung für diese Problem ???


Titel: Re: Fehler bei Select Case
Beitrag von: DF6GL am April 27, 2020, 10:49:01
Hallo,

ich vermute ein Missverständnis:

Für Select Case benötigst Du den Optionsrahmen und nicht ein (sich darin befindliches) Optionsfeld (-gruppe?).

Titel: Re: Fehler bei Select Case
Beitrag von: uwe01 am April 27, 2020, 11:02:51
Hallo DF6GL,
Danke dir für die schnelle Antwort es geht. Manchmal ist das Ziel so nah.