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:
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
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:
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.
Hallo,
würde eher so schreiben:
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:
DoCmd.OpenReport "Projektkosten", acViewPreview, , "[PROJECTNO] = '" & Me![PROJECTNO] & "'"
Hallo zusammen,
vielen Dank für Eure Antworten,
Mit dem Code hat alles super geklappt:
Private Sub cmdAktualisieren_Click()
DoCmd.Close acReport, "Projektkosten"
DoCmd.OpenReport "Projektkosten", acViewPreview, , "[PROJECTNO] = " & [PROJECTNO]
End Sub
Danke!