我无法在Access 2010中创建VBA代码来执行2个操作：
如果我的访问表中的3条地址行是NULL，或与城市名称或国家/地区名称匹配-将它们导出到单独的Excel文件中，以便手动进行检查
如果不是，则在另一个访问表的“地址”列中选择一个或多个地址值。
这只是试用代码，这意味着我只想表明我可以在输入所有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
这个：
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
废话 您正在将字符串与空字符串进行比较，并将常量字符串彼此进行比较。您实际上并没有比较任何字段值。我什至不知道哪些应该是字段名称，哪些应该是字符串。
另外，您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
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句