添加链接
link管理
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
对于有sql语句,必须在句末+双引号+空格+下划线,下一句前面+&+空格+双引号
Private Sub 更新_Click()
‘DoCmd.RunSQL "update 表1 set 名称='桔子',数量=100, 日期=#2012-12-12#  where ID=3"
DoCmd.RunSQL "update 表1 set 名称='桔子',数量=100, " _
& "日期=#2012-12-12#,采购员=6 " _
& "where ID=3"
End Sub
对于非sql,只需要+空格+_
Private Sub 清空_Click()
'  If MsgBox("您确认要清空文本框值吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
If MsgBox("您确认要清空文本框值吗?", vbOKCancel + _
vbInformation, "提示") = vbOK Then
Me.Text0 = ""
End If
End Sub