GetSaveAsFileName
'MsgBox II
' Sometimes it will be necessary to force line breaks in messages
showing "The NEXT is an example of this situation. Sub
msgboxII ()
Dim msg As String Dim rpt As Byte
msg = "You must always ensure" & vbCrLf msg = msg &
"to prevent users from manipulating" & vbCrLf msg =
msg & "Information from other areas Are you fulfilling that task?"
rpt = MsgBox (msg, vbYesNo + vbQuestion)
If rpt = vbYes
Then MsgBox "Make the tasks ff"
Else MsgBox "Check again"
End If End Sub
0 comments:
Post a Comment