[求助]ACCESS按钮

yzh0108

Option Compare Database

Private Sub 命令6_Click()
On Error GoTo Err_命令6_Click
Dim stDocName As String
stDocName = "学生考勤查询"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_命令6_Click:
    Exit Sub
Err_命令6_Click:
    MsgBox Err.Description
    Resume Exit_命令6_Click
    End Sub
Private Sub 命令8_Click()
On Error GoTo Err_命令8_Click
DoCmd.Close
Exit_命令8_Click:
    Exit Sub
Err_命令8_Click:
    MsgBox Err.Description
    Resume Exit_命令8_Click
End Sub

在这个查询按钮代码里插入一句"请输入内容"应该怎样插啊?

[此贴子已经被作者于2007-4-15 0:58:06编辑过]

yzh0108

怎么看不到全部代码的!?

[此贴子已经被作者于2007-4-15 1:00:10编辑过]

andymark

查询里设置相关参数，建议用窗体来输入查询条件