vba访问过滤功能

时间:2017-09-10 08:43:43

标签: sql-server vba ms-access filter

我正在使用Access和mssql。 我正在尝试制作如下图所示的过滤功能。 当我键入' S'时,应显示相关数据。

enter image description here

为了实现这个功能,我制作了这样的代码。 (更新文本框后,它调用函数' CreateFilter'。)还有其他字段,但我想如果我知道这个函数是如何工作的话我可以使它工作。所以我只附上了一个字段的代码。

TypeError: Cannot find function getComputedTextLength in object [object HTMLUnknownElement]

我使用MsgBox来检查数据是否正确。 MsgBox看起来像这样。

enter image description here 我认为查询是正确的,但在执行此代码后,它看起来像这样。它没有显示数据。应该有一个数据' 1119'因为该数据在mssql中,但它没有显示任何内容。 enter image description here

enter image description here 你能否就这个问题给我一些帮助?

1 个答案:

答案 0 :(得分:1)

RequestID 似乎以" 1"开头所以试试:

str1 = " RequestID Like '????1"
str2 = Nz(Filter1.value)
str3 = "*' "

如果从第一个字符过滤:

str1 = " RequestID Like '"
str2 = Nz(Filter1.value)
str3 = "*' "