借用-改做求助:隐藏组合框调用筛选中的问题-望大家给予纠错

todaynew

此贴没有完全解决,那位来帮助解决一下
hljthzbc 发表于 2010-7-24 13:33

Private Sub 筛选()
Dim str As String
str = True
If Nz(Me.姓.Value, "") <> "" Then
    str = str & " and 姓名 like '" & Me.姓.Value & "*'"
End If
If Nz(Me.人员ID.Value, 0) <> 0 Then
    str = str & " and 人员ID=" & Me.人员ID.Value
End If
Me.人员管理总表子窗体.Form.Filter = str
Me.人员管理总表子窗体.Form.FilterOn = True
End Sub

hljthzbc

这个附件也没有得到解决,请版主和大家帮忙

hljthzbc

此贴没有完全解决,那位来帮助解决一下

石三少

我把红尘的通用筛选放在你的窗体上，自己参考下

csq_chen

..貌似你代码中很多控件的名称都无法在你提供的窗体中找到
比如“txt17","txt10","txt8"等等

Private Sub com15_Click()

    X = Me.txt17 & Me.txt8

    If Me.txt17 & Me.txt10 = X Then
        Me.txt10 = ""
    Else
        Me.txt10 = Me.txt8
    End If

End Sub

hljthzbc

我是用别人的代码改的,所以窗体代码中会有这些的

Dragxixi

先把不要用的代码全部去掉再试试！

hljthzbc

我去掉了代码也不行,

hljthzbc

第一个问题解决.
第二个问题:姓氏的问题还会出现,谁在电脑用ACCESS 2003再给看看.