Office中国论坛/Access中国论坛

标题: 如果要做筛选等应该用什么函数啊 [打印本页]

作者: 若离ヘ不弃° 时间: 2012-7-11 09:50
标题: 如果要做筛选等应该用什么函数啊
如果用if switch语句的function后面应该跟什么函数名啊，
如果是做筛选，又应该跟什么函数名啊，
这些放在模块里，用按钮操作的话是不是可以直接对表操作的啊

作者: todaynew 时间: 2012-7-11 12:37
http://www.office-cn.net/forum.p ... B%C8%D5%CB%D9%B3%C9

作者: 若离ヘ不弃° 时间: 2012-7-11 13:09

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

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

作者: 若离ヘ不弃° 时间: 2012-7-11 13:28

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的一定要加[]

作者: 若离ヘ不弃° 时间: 2012-7-11 17:26

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

在两个条件的筛选，我用了这个（参照老师的）但是它会提示我
[attach]49645[/attach]
这个是为嘛啊，代码跟我的不合吗，还是其他什么，找了一下午的事例，没有找到头绪= =

作者: 零零崢 时间: 2012-7-12 10:52
呵呵感谢楼主的分享啊！！！

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