使用ACCESS查询对象是无法一次运行多个SQL语句的,但是通过ACCESS VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;
1)新建一个ACCESS窗体,窗体添加一个命令按钮;
2)编写按钮单击事件过程
Private Sub Command1_Click()Dim strSql as stringstrSQL="Update Policy SET LatestDueDate=Year(Date()) & '-' & Format(PolicyDate,'mm-dd')" DoCmd.RunSql strSQL '运行第一个更新语句strSQL="UPDATE Policy SET LatestDueDate= DateAdd('yyyy',1,LatestDueDate) WHERE (((Month(Date())-Month(LatestDueDate)) > 6) and(PaymentMode='H'))" DoCmd.RunSql strSQL '运行第二个更新语句 End Sub
跟着点击该命令按钮就可以一次执行两条语句了。
温馨提示:内容为网友见解,仅供参考