Office中国论坛/Access中国论坛

标题: 查询问题 [打印本页]

作者: JimmyOu0707 时间: 2009-2-17 16:38
标题: 查询问题
1.能不能实现，工号或者单位我输入802或者广州后，能将工号包含802的或者广州记录都查出来。
2.左下脚的价格合计，能不能我输入日期查询以后才显示数字？
麻烦各位帮一下忙，谢谢

作者: Henry D. Sy 时间: 2009-2-17 20:25
http://www.accessbbs.cn/bbs/thread-9356-1-1.html

作者: todaynew 时间: 2009-2-17 20:29
用like试试

作者: ACMAIN_CHM 时间: 2009-2-17 21:04

用like试试
todaynew 发表于 2009-2-17 20:29

在子窗体的filter中或者直接在数据源中用 like '*802*' 或 like '*广州*'

然后再子窗体上放一个合计，隐藏，再到主窗体引用这个合计文本框就行了。可参考罗斯文的订单窗体。

以下摘自 Microsoft Access 2003 Help
/********** OFFICE-CN *************** OFFICE-CN ******************* OFFICE-CN ***************************/

******************
* 一切皆有可能 *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: JimmyOu0707 时间: 2009-2-18 11:00
我的意思是在 “单位栏” 中输入关键字就可以查到我想要的记录，不用输入全称啊，麻烦会的朋友在我附件上做一下。谢谢啊

作者: kangking 时间: 2009-2-18 14:16
Private Sub Command53_Click()
Dim strCriteria As String

If Not IsNull(Text77) Then
      strCriteria = "维保工号 like '*" & Text77 & "*' and "
End If

If Not IsNull(Combo90) Then
      strCriteria = strCriteria & "用户单位名称 like '*" & Combo90 & "*' and "
End If

If Len(strCriteria) <> 0 Then
      strCriteria = Mid(strCriteria, 1, Len(strCriteria) - 5)
End If

Me.施工单查询_子窗体.Form.RecordSource = "Select * From 施工单 where " & strCriteria
Me.施工单查询_子窗体.Requery
End Sub

作者: kangking 时间: 2009-2-18 14:20
改了一下，用下面的代码。
Private Sub Command53_Click()
Dim strCriteria As String

If Not IsNull(Text77) Then
      strCriteria = "维保工号 like '*" & Text77 & "*' and "
End If

If Not IsNull(Combo90) Then
      strCriteria = strCriteria & "用户单位名称 like '*" & Combo90 & "*' and "
End If

If Len(strCriteria) <> 0 Then
      strCriteria = " where " & Mid(strCriteria, 1, Len(strCriteria) - 5)
End If

Me.施工单查询_子窗体.Form.RecordSource = "Select * From 施工单 " & strCriteria
Me.施工单查询_子窗体.Requery
End Sub

作者: JimmyOu0707 时间: 2009-2-19 08:15
先谢谢大家啊！

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