Hi all,

I have this little piece of VBA code inside my Music Inventory 2001 app that I've applied to almost all of my reports.

Private Sub Report_NoData(Cancel As Integer)
'If there are no duplicate records pertaining to an artist, display a message

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

    strMsg = " YOU HAVEN'T DOWNLOADED MORE THAN ONE TRACK FROM ANY ARTIST YET."
    intStyle = vbOKOnly
    strTitle = "Music Inventory 2001"

    MsgBox strMsg, intStyle, strTitle
    Cancel = True
End Sub


My question is this, Is there any way to disable the close button(it's got an x on it) in the upper right-hand corner of all messages that pop-up?

Ben Horne
Madison Area Technical College student

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

Go there. I have a lot of awesome photos that I rendered myself

"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

Given that your code doesn't do anything based on the response of the MsgBox (and since there is only one possible option anyway), why do you need to get rid of it?

Regardless, what you might want to do is create your own MsgBox form, with the PopUp and Modal properties set to true, the BorderStyle set to dialog, and all the buttons (Min/Max, Close) and the Shortcut Menu properties set to False.

Steven

I am a loud man with a very large hat. This means I am in charge