查询问题

JimmyOu0707

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

Henry D. Sy

http://www.accessbbs.cn/bbs/thread-9356-1-1.html

todaynew

用like试试

ACMAIN_CHM

用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

我的意思是在  “单位栏” 中输入关键字就可以查到我想要的记录，不用输入全称啊，麻烦会的朋友在我附件上做一下。谢谢啊

kangking

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

改了一下，用下面的代码。
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

先谢谢大家啊！