Shorten Width of Message Box

  • Thread starter Thread starter NEWER USER
  • Start date Start date
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
 
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
 
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...
 
Back
Top