Office中国论坛/Access中国论坛

标题: [求助]ACCESS按钮 [打印本页]

作者: yzh0108 时间: 2007-4-15 08:52
标题: [求助]ACCESS按钮
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 08:59
怎么看不到全部代码的!?

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

作者: andymark 时间: 2007-4-15 16:40
查询里设置相关参数，建议用窗体来输入查询条件

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)