Message box which run two times

[nilses]

Hello,

I have small problem. I wanted to know when my query was finished. I made a msgbox which posts me a message but what is odd and that when I make ok, it starts again only once my query, I want just simply that it closes the window. Why that done that?.

Here end of my request in dynamics.


Private Sub execute_Enter()

.....

Q.SQL = "SELECT [1_ExtractionData].Serie,..........;"
Q.Close
DoCmd.SetWarnings False
DoCmd.OpenQuery "4_ExtractionDataEnd"
DoCmd.SetWarnings True

text = MsgBox("You Can Leave Access and direct you towards Excel A soon ", vbOKOnly)

I had also done that but that make me the same problem.

MsgBox "You Can Leave Access and direct you towards Excel A soon "

End Sub

Thank you for your assistance

Nilses