MsgBox question - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

MsgBox question

Mark Budinger

4 years ago

I have this VB for a command button that deletes the current record. How do I force Part_Number to be in all caps with my current vb?

Private Sub cmdDelete_Click()

If MsgBox("Delete this record? " & Part_Number & "", vbQuestion + vbYesNo, "Delete") = vbYes Then

Me.Recordset.Delete

End If

End Sub

Regards,
Mark

	Kevin Robertson @Reply 4 years ago
Use the UCase function. `UCase(Part_Number)`

	Mark Budinger OP @Reply 4 years ago
Once again Kevin you came to the rescue. One more thing. Is there a way to display a ? after Part_Number. I am still learning and struggling with proper syntax. This is my new VB If MsgBox("Are you sure you want to delete " & UCase([Part_Number]) & "", vbQuestion + vbYesNo, "Delete") = vbYes Then Regards, Mark

	Kevin Robertson @Reply 4 years ago
Yes. Just concatenate it on to the end of the string. `If MsgBox("Are you sure you want to delete " & UCase([Part_Number]) & "?", vbQuestion + vbYesNo, "Delete") = vbYes Then`

	Mark Budinger OP @Reply 4 years ago
Kevin thank you again. Works perfectly. Regards, Mark

	Kevin Robertson @Reply 4 years ago
You're welcome.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen