Hi all,

Right now I have this little bit of VBA code inside my Music Inventory database that displays a message when the user opens the form. The code is below

Private Sub Form_Open(Cancel As Integer)
' Display a message when the user opens the form,

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer

    strMsg = "FOR ANY NEW AUDIO LOOPS THAT HAVE NOT YET BEEN SUBMITTED TO FLASH KIT, THE STATUS NEEDS TO BE SET TO FLASH KIT SUBMISSION PENDING. THIS DOES NOT APPLY TO FULL-LENGTH SONGS"
    intStyle = vbOKOnly
    strTitle = "RE: FruityLoops Studio 4 Renders"

    MsgBox strMsg, intStyle, strTitle
    Cancel = False
End Sub


How can I modify the code so that the message appears only once when the user first opens the form?

Ben Horne
Madison Area Technical College - Truax
3550 Anderson Street
Madison, Wisconsin 53704-2599


-------------------------
http://community.webshots.com/user/valerian114

"There are two kinds of people in the world: Those who claim to be Flash junkies and those who actually are Flash junkies"

__________________
Ben Horne
-------------------------
I don\'t want to sound like I haven\'t made any mistakes. I\'m confident I have.

Most likely using FireFox and concocting my next Macromedia Flash project
Snibworks Forums Moderator

Welcome to the New Age

Hi Ben,

How 'bout a global variable in a standard module:

Public g_blnByPassOpenEvent As Boolean

and a conditional statement in your Open event so that the code only runs if the condition evaluates to True:

Private Sub Form_Open(Cancel As Integer)
    If Not g_blnByPassOpenEvent Then
        MsgBox "test"
    End If
    g_blnByPassOpenEvent = True
End Sub

HTH,

Bob

...or just hide the form instead of closing it(i.e., toggle Visible property)...