Message Boxes in VB

[SteveC24]

Hi,

I realise that this is an unbvelievably simple question, but I am an unbelieveably simple person!

How do I make a message box in VB? What are the different parameters you can use (e.g. vbOKOnly etc).

Thanks,

 

[Mile-O]

MsgBox "Put your message in here", msgbox type here, "msgbox title here"


When coding in VB, the IntelliSense system should give you all of the options.

 

[SteveC24]

OK, that works, but I can't figure out how to use VB to make a delete conformation message box.

I have figured out that I want to put the code in the "Before Del Confirm" property. But when I put the message box code in there, and run the form, I get the delete confirmation box I made, but even if I click "No", it deletes the record.

Help???

Thanks,

 

[Mile-O]

Let's see your code.

 

[SteveC24]

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
MsgBox "Do you want to delete the record? This is irreversible!", vbYesNo, "Warning!"
End Sub

 

[PaddyIrishMan]

You need to capture the return value from the MsgBox function

try:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) 

dim iResponse as integer

iResponse = MsgBox "Do you want to delete the record? This is irreversible!", vbYesNo, "Warning!" 

If iResponse = vbYes then
     'Add you code to delete here
else
     Exit sub
end if

End Sub

 

[ghudson]

How about...

    If MsgBox("Are you sure you want to delete the current record?", vbQuestion + vbYesNo, "Delete Current Record?") = vbYes Then
        DoCmd.RunCommand acCmdDeleteRecord [COLOR=red]'Access command to delete record[/COLOR] 
    Else
        MsgBox "Delete Function Aborted.", vbInformation
        Exit Sub
    End If

HTH