I am beginner

[martine2702]

Hi,

i would like when I close my report:

I have a popup with yes or no button:

if yes I would like to call private sub open_report()

else
close access application.

For the moment I do this:

Private Sub Report_Close()

Dim LResponse As Integer
LResponse = MsgBox("Voulez-vous entrez une autre date?", vbYesNo, "Continue")
If LResponse = vbYes Then
**HOW TO CALL OPEN_report() *****
Else
Dim appAccess As Access.Application
Access.Application.CloseCurrentDatabase
appAccess.Quit
End If
End Sub


thanks