Macro uitvoeren met knop via VB

[Merkie18]

Heey allemaal,

Ik heb nu de volgende code achter een knop hangen:

Private Sub Knop30_Click()
On Error GoTo Err_Knop30_Click

Dim stDocName As String

stDocName = "Reparaties"
for X = 1 to 2

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

Next X

Exit_Knop30_Click:
Exit Sub

Err_Knop30_Click:
MsgBox Err.Description
Resume Exit_Knop30_Click

End Sub

Ik wil zorgen dat via deze knop ook een macro laten uitvoeren. Welke code moet ik invoeren en waaracher? Weten jullie raad??

Greetings Merkie18!

Alvast hartelijk bedankt!!

 

[Tardis]

Hallo,

een macro kun je in VBA starten via dit kommando

DoCmd.RunMacro

Zie ook Access Help.

Groet,

Tardis

 

[Merkie18]

Hallo,

een macro kun je in VBA starten via dit kommando

DoCmd.RunMacro

Zie ook Access Help.

Groet,

Tardis

Dankjewel! Het is helemaal gelukt!! Thanks!:thumb: