如果要做筛选等应该用什么函数啊

若离ヘ不弃°

如果用if switch语句的function后面应该跟什么函数名啊，
如果是做筛选，又应该跟什么函数名啊，
这些放在模块里，用按钮操作的话是不是可以直接对表操作的啊

todaynew

http://www.office-cn.net/forum.p ... B%C8%D5%CB%D9%B3%C9

若离ヘ不弃°

todaynew 发表于 2012-7-11 12:37
http://www.office-cn.net/forum.php?mod=viewthread&tid=95782&highlight=%D2%BB%C8%D5%CB%D9%B3%C9

我不能用查询表，联级更新的查询表不能更改子表啊，不能在查询表里面定位下拉复选框的位置。

若离ヘ不弃°

todaynew 发表于 2012-7-11 12:37
http://www.office-cn.net/forum.php?mod=viewthread&tid=95782&highlight=%D2%BB%C8%D5%CB%D9%B3%C9

~~o(>_<)o ~~ 谢谢 终于能筛选出了，为嘛07的一定要加[]

若离ヘ不弃°

todaynew 发表于 2012-7-11 12:37
http://www.office-cn.net/forum.php?mod=viewthread&tid=95782&highlight=%D2%BB%C8%D5%CB%D9%B3%C9

Function gString()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is ComboBox Then
            If Not IsNull(ctl) Then
                gString = gString & ctl.Name & "='" & ctl & "' And "
            End If
        End If
    Next
    If Len(gString) <> 0 Then
        gString = Left(gString, Len(gString) - 3)
        Me.[合同维护_子窗体].Form.Filter = gString
        Me.[合同维护_子窗体].Form.FilterOn = True
    End If
End Function


Private Sub Combo6_AfterUpdate()
gString
End Sub

Private Sub Combo8_AfterUpdate()
gString
End Sub

在两个条件的筛选，我用了这个（参照老师的）但是它会提示我

这个是为嘛啊，代码跟我的不合吗，还是其他什么，找了一下午的事例，没有找到头绪= =

零零崢

呵呵 感谢楼主的 分享啊！！！