Shorten Width of Message Box

N

NEWER USER

I have a Message box that appears when called and it about 10" wide on
screen. Any ideas on how I might shorten the width?

If (MsgBox("When Primary and Alternate Parts have the same Brand and no
other Alternate selected, values will not be reset. Continue and Filter
Alternates again to manually edit values.", 273, "Warning") <> 1) Then
'Clear Order Values
DoCmd.CancelEvent
Exit Sub
End If
 
A

Arvin Meyer [MVP]

Try the following:

Dim strMsg As String

strMsg = "When Primary and Alternate Parts have the same Brand" & vbCrLf & _
"and no other Alternate selected, values will not be reset." & vbCrLf &
_
"Continue and Filter Alternates again to manually edit values."

If (MsgBox(strMsg , 273, "Warning") <> 1) Then
'Clear Order Values
DoCmd.CancelEvent
Exit Sub
End If
 
N

NEWER USER

Worked Perfectly; thanks again for the help

Arvin Meyer said:
Try the following:

Dim strMsg As String

strMsg = "When Primary and Alternate Parts have the same Brand" & vbCrLf & _
"and no other Alternate selected, values will not be reset." & vbCrLf &
_
"Continue and Filter Alternates again to manually edit values."

If (MsgBox(strMsg , 273, "Warning") <> 1) Then
'Clear Order Values
DoCmd.CancelEvent
Exit Sub
End If
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com




.
Click to expand...
 
Top