Access 2010 VBA类型不匹配（错误13）或运行时错误424（需要对象）

Question

我在Access 2010中创建VBA代码以执行2个操作时遇到问题：

1. 如果访问表中的3个地址行是NULL，或者匹配城市或国家/地区名称 - 将它们导出到单独的Excel文件中以便手动查看
2. 如果不是，则在不同的访问表中的“地址”列中选择一个或多个地址值。

这只是试用代码，这意味着我只想表明我可以在输入所有ElseIf条件之前相应地导出值。

• 对于代码本身，我得到了 “类型不匹配”（错误13）。
• 谷歌搜索后，我似乎错误地分配了对象/方法。如果我从我引用的对象中删除""，我会得到一个不同的错误： “运行时错误424（对象必需）。

以下是代码。运行它并收到错误后，“nmad_address_1”的第一个实例会突出显示。

Public Sub EditFinalOutput()

'set loop variable
Dim i As Long
Dim ExportFile As String


'Open Reference Set
Set db = CurrentDb
Set qs = db.OpenRecordset("SunstarAccountsInWebir_SarahTest")
Set ss = db.OpenRecordset("1042s_FinalOutput_6")

'Set loop for entirety of recordset
For i = 0 To qs.RecordCount - 1
    'ExportFile = "I:\Tax Team\Tax Team\Sean" & Format(i, "00") & ".xlsx"

    If qs.Fields(("nmad_address_1" Is Null Or "nmad_address_1" = "nmad_city" 
Or "nmad_address_1" = "Webir_Country") And ("nmad_address_2" Is Null Or 
"nmad_address_2" = "nmad_city" Or "nmad_address_2" = "Webir_Country") And 
("nmad_address_3" Is Null Or "nmad_address_3" = "nmad_city" Or 
"nmad_address_3" = "Webir_Country")) Then
    DoCmd.TransferSpreadsheet acImport, 10, 
"SunstarAccountsInWebir_Charlie", "I:\Tax Team\Tax Team\Sean", 1


    Else:   qs.Edit
            qs.Fields("box13c_Address") = 9999
            qs.Update
    End If
    qs.MoveNext
Next i

'Close Reference Set
qs.Close
Set qs = Nothing
ss.Close
Set ss = Nothing

End Sub

Answer 1

这个：

If qs.Fields(("nmad_address_1" Is Null Or "nmad_address_1" = "nmad_city" 
Or "nmad_address_1" = "Webir_Country") And ("nmad_address_2" Is Null Or 
"nmad_address_2" = "nmad_city" Or "nmad_address_2" = "Webir_Country") And 
("nmad_address_3" Is Null Or "nmad_address_3" = "nmad_city" Or 
"nmad_address_3" = "Webir_Country")) Then 

是胡说八道。您将字符串与null和常量字符串进行比较。您实际上并未比较任何字段值。我甚至不知道哪些应该是字段名称，哪些应该是字符串。

另外，你在查询中做SomeVar Is Null。在vba中，你做IsNull(SomeVar)。

请尝试以下方法：

With qs.Fields
    If IsNull(!nmad_address_1) Or !nmad_address_1 = "nmad_city" Or !nmad_address_1 = "Webdir_Country" 'etc...
End With