很久以前的问题了,近期又有网友问, 重新发了一下
Msgbox 换行
我晕,前几天,也有一个人,这么问。"ddaff" & vbcrlf & "ddakv"
"第一行" & chr(10) & "第二行"
MsgBox "不能为空" + vbNewLine + "wu8313提示…", , "请输入一个值!"
执行叛断
If MsgBox("你确认要退出系统吗?", vbYesNo + vbDefaultButton2 + vbInformation, "提示") = vbNo Then Exit Sub
Application.Quit
DoCmd.Quit
我以前用的换行
+Chr(13)+Chr(10)+
msgbox "不晚!",vbinformation,"谢谢您"
在窗体的"卸载"事件中提示:
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("提示性文字", 4 + 48 + 256) = vbYes Then
Else
DoCmd.CancelEvent
End If
End Sub
如果将 4 + 48 + 256改为 4 + 48 + 512则[是]被默认选定。
|
Access软件网交流QQ群(群号:198465573) |
|