Office中国论坛/Access中国论坛

标题: to naiba 谢谢你的指导，可是有的不是很明白！谢谢！！ [打印本页]

作者: mhmok 时间: 2004-8-26 20:17
标题: to naiba 谢谢你的指导，可是有的不是很明白！谢谢！！
先确认是不是多重查询条件啊如果是的话,给你个例子

RSL = "SELECT * FROM 维修查询1"

If Me.部门.Value <> Null Then '窗体中文本框是否有输入

RSL = RSL + " WHERE 维修查询1.部门 like 部门"

End If

If Me.设备名称.Value <> Null Then

If Len(RSL) > 25 Then

   RSL = RSL + " AND 维修查询1.设备名称 like 设备名称"    'WHERE OR AND

Else

   RSL = RSL + " where 维修查询1.设备名称 like 设备名称"

End If

End If

If Me.部件名称.Value <> "" Then

If Len(RSL) > 25 Then

   RSL = RSL + " AND 维修查询1.部件名称 like 部件名称"

Else

   RSL = RSL + " where 维修查询1.部件名称 like 部件名称"

End If

End If

Me.维修记录1.Form.RecordSource = RSL ‘不好意思，能不能讲解一下，不是很明白？比如“维修记录1”是什么。

DoCmd.Requery "维修记录1"

If Me.维修记录1.Form.Recordset.RecordCount = 0 Then       '判断是否有查询到的数据

MsgBox "没有与查询记录相符合的记录！！！，请确认"

Else

MsgBox "查询到" & Me.维修记录1.Form.Recordset.RecordCount & "条记录。"

Me.CMD_EDIT.Enabled = True                      '编辑可以进行

Me.CMD_CEXIAO.Caption = "删除记录"       '删除命令按钮可以使用

End If

作者: mhmok 时间: 2004-8-26 22:23
麻烦指导一下！

作者: wuyuanhui 时间: 2004-8-26 23:05
我想是窗体对象或是子窗体对象

作者: hi-wzj 时间: 2004-8-26 23:41
是子窗体对象的名称。

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