How do I creeat a pop up warning?

[illusionone]

Access 2002

I'm wondering if anybody could help me figure out how to add a warning to an access database.

Here's my issue:
I have 2 databases that users will enter into, one is for 2006 data and the other is for 2007 data. What I would like to happen is for when the users open the 2006 datbase a warning pops up before the main menu that states "Please note that you are in 2006 database". After clicking the ok button it will bring them to the main menu form.

I have already changed the titles and colors to reflect the new year, but I would like to have one more fail safe so that they have to click the warning off to get into the old database.

Thank you in advance for your help!

-illusionone

[George Oro]

Put this code where your opening the form:

    Dim intMsg As Integer
    intMsg = MsgBox("Please note that you are in 2006 Database." & _
        " Do you want to continue?", vbQuestion + vbYesNo + vbDefaultButton2, "Please confirm")
 
    If intMsg = vbYes Then
        'Open your form here
    Else
        'its up to you
    End If

HTH,
George

Access 2002

I'm wondering if anybody could help me figure out how to add a warning to an access database.

Here's my issue:
I have 2 databases that users will enter into, one is for 2006 data and the other is for 2007 data. What I would like to happen is for when the users open the 2006 datbase a warning pops up before the main menu that states "Please note that you are in 2006 database". After clicking the ok button it will bring them to the main menu form.

I have already changed the titles and colors to reflect the new year, but I would like to have one more fail safe so that they have to click the warning off to get into the old database.

Thank you in advance for your help!

-illusionone

[NeoPa]

George's code (or something along similar lines doctored for your exact situation) would be within the OnOpen event of the main form you refer to.

Private Sub Form_Open(Cancel As Integer)
'...George's code in here
End Sub