更新查询

增加一“查询2”：sql语句 “SELECT Max(AA.字段3) AS 字段3之最大值 FROM AA;”把列表框行来源改成“查询2”。

修改命令按钮代码如下：

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim stDocName As String
    Me.List1.RowSource = "" '清空列表框行来源
    stDocName = "查询1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.List1.RowSource = "查询2"    '重设列表框的行来源

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub