1

这是我的代码:

 Private Sub Command34_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("sus-Table", dbOpenDynaset)
    Dim temp As String
        If Nametxt = rs![Name] And ID = rs![ID] And Address_1 = rs![Address 1] _
        And Address_2 = rs![Address 2] And City = rs![City] And State = rs![State] Then
            MsgBox "True"
        Else
            MsgBox "False"
        End If   
End Sub

使用此代码,只要填充了所有字段(当然它们匹配),它就会返回 true。

但是,如果一个字段即。地址 2 为空,因为并非所有地址都需要第二行,False即使它们匹配,它也会返回“”。

即使它们是空的,我也不知道如何比较它们。

在这方面的任何帮助将不胜感激。

4

1 回答 1

0

这听起来像是比较EmptyNulls的老问题,我建议像这样重写:

And Address_2 & "" = rs![Address 2] & ""
于 2013-06-17T11:46:33.750 回答