怎样实现会员名的准确查找和时间的模糊查找

baowang519

marco 发表于 2011-12-5 19:06
用Like 的时候，把日期当成字符型，将前后的“#”去掉即可！

前辈您好！可以实现单元格内有日期是精确查找，空值时是模糊查找吗？（I7单元格数值可有可无！）

baowang519

谢谢前辈！我再去试试！

zhangjimfu

baowang519 发表于 2011-12-9 14:24
前辈您好！可以实现单元格内有日期是精确查找，控制时是模糊查找吗？（I7单元格数值可有可无！）

like iif(isnull([D4]),"%",[D4])

供参考

baowang519

zhangjimfu 发表于 2011-12-9 17:29
like iif(isnull([D4]),"%",[D4])

供参考

前辈您好！按前辈的公式录入会提示“无效字符”，然后光标停在"%"区域
如果去掉""    like iif(isnull([D4]),%,[D4]) 会提示运行时错误'75' 无法找到指定的对象
加单引like iif(isnull([D4]),'%',[D4])会提示至少有一个参数未指定
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Dim conn As Object
        Dim sql$
        sql = "select * from 消费记录 where 会员名 = '" & [D4] & "' and 拍摄时间 like iif(isnull([I7]),'%','[I7]')"
        Set conn = CreateObject("adodb.connection")
        With conn
            .Provider = "microsoft.ACE.oledb.12.0"
            .ConnectionString = "Data Source =" & ThisWorkbook.Path & "\shuju.accdb"
            .Open
        End With
        Sheets("sheet4").[A10].CurrentRegion.Offset(1).ClearContents
        Sheets("sheet4").[A11].CopyFromRecordset conn.Execute(sql)
        conn.Close
        Set conn = Nothing
    End If
End Sub
这是一段代码

zhangjimfu

参考代码

1. 
   
2. SELECT a.*
   
3. FROM tblQuestion AS a
   
4. WHERE (((a.HappenDate) Like IIf(IsNull([12]),'*',[12])));
   

复制代码

修改后的SQL语句
"select * from 消费记录 where 会员名 = '" & [D4] & _
"' and 拍摄时间 like iif(isnull(" & [I7] & "),'*'," & [I7] & ")"

baowang519

非常感谢前辈的帮忙！不过还是有错

baowang519

希望前辈们可以继续帮忙！

zhangjimfu

baowang519 发表于 2011-12-11 01:19
希望前辈们可以继续帮忙！

baowang519兄能否将附件传上来看看呢?这样会方便查找

baowang519

zhangjimfu 发表于 2011-12-12 08:43
baowang519兄能否将附件传上来看看呢?这样会方便查找

有点脸红！我永远是小弟，这个问题得到了zhaogang1960老师的帮助，已经解决！
Sql = "select * from 消费记录 where 会员名 = '" & [D4] & "'"
If [I7] <> "" Then Sql = Sql & " and 拍摄时间=#" & [I7] & "#"
感觉很好用！这是我要的效果！
多谢zhangjimfu前辈的关心！ 非常感谢