Macrobefehl in VBA umwandeln

[hase198312]

Hallo zusammen,

folgende Frage,ich habe einen button mit Macro (siehe Abbildung) erstellt, wie könnte diesen Befehl in VBA "Beim klicken" heißen?

ich erkläre ein bisschen näher: ich möchte ein Button in einem Formular "Test11111" erstellen, wenn ich darauf klicke muss ein Bericht "Projektkosten" geschlossen werden und dann gleich mit dem Filtername aus Macroabildung geöffnet werden.
Hier ist mein Code:

Code [Auswählen] Erweitern

Private Sub cmdAktualisieren_Click()

DoCmd.Close acReport, "Projektkosten"

Exit_cmdAktualisieren_Click:
Exit Sub

Err_cmdAktualisieren_Click:
MsgBox Err.description
Resume Exit_cmdAktualisieren_Click

End Sub
Private Sub cmdAktualisieren1_Click()

DoCmd.OpenReport "Projektkosten", acViewPreview, , _
[PROJECTNO] = [Formulare]![Test11111]![cmdAktualisieren]
End Sub


Mit dem Code wird Bericht "Projektron" zugemacht, aber öffnet nicht.

Ich weis nicht was ich hier falsch gemacht habe
Ich hoffe jemand kann mir helfen


schöne Grüße

Hase

[el_gomero]

Hallo,

keine Ahnung ob ich dich richtig verstanden habe ... Also Bericht schliessen und neu öffnen mit Kriterienübergabe auf Klick einer Schaltfläche ginge so:

Code [Auswählen] Erweitern


Sub btnDeinButton_Click()

DoCmd.Close acReport, "Projektkosten"

        DoCmd.OpenReport "Projektkosten", acViewPreview, , _
[PROJECTNO] = [Formulare]![Test11111]![cmdAktualisieren]

End Sub



wobei cmdAktualisieren für mich eine Schaltfläche assoziiert und der Bezeichner dann ungeeignet wäre. Oder du willst als Kriterium ein anderes Feld verwenden, das dann anzugeben wäre.

[DF6GL]

Hallo,

würde eher so schreiben:

Code [Auswählen] Erweitern

Sub btnDeinButton_Click()

   DoCmd.Close acReport, "Projektkosten"

        DoCmd.OpenReport "Projektkosten", acViewPreview, , "[PROJECTNO] = " & Me![PROJECTNO]

End Sub

Im Fall, dass "PROJECTNO" den Datentyp TEXT besitzt, ist so zu schreiben:

Code [Auswählen] Erweitern

DoCmd.OpenReport "Projektkosten", acViewPreview, , "[PROJECTNO] = '" & Me![PROJECTNO] & "'"


[hase198312]

Hallo zusammen,

vielen Dank für Eure Antworten,

Mit dem Code hat alles super geklappt:

Code [Auswählen] Erweitern

Private Sub cmdAktualisieren_Click()

   DoCmd.Close acReport, "Projektkosten"

        DoCmd.OpenReport "Projektkosten", acViewPreview, , "[PROJECTNO] = " & [PROJECTNO]

End Sub


Danke!