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 行目が必要なわけではないため、住所 2 は空Falseです。一致しても " " が返されます。

それらが空であっても、それらを比較する方法がわかりません。

この問題で何か助けていただければ幸いです。

4

1 に答える 1

0

EmptyとNullsを比較するという古い問題のように思えますが、次のように書き直すことをお勧めします。

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