VBA与Access，如何检测查找数据不存在时跳过并继续循环。

ak_shj

代码如下：
Sub 执行率整体读取()
'量申明
    Dim DB As Database    '定义数据库
    Dim DBOpen As Recordset '定义数据库表打开语句
    Dim outsheet, sheet1 As Worksheet '定义输出表
    Dim shezhisheet As Worksheet
    Dim DBpath As String    '定义数据库路径
    Dim xilie, feiyong As String '定义查询变量
    Dim sqlstr As String '数据库查询语句
'量赋值
    Set outsheet = ThisWorkbook.Sheets("执行率-整体")
    Set sheet1 = ThisWorkbook.Sheets("sheet1")
    Set shezhisheet = ThisWorkbook.Sheets("设置")
    DBpath = shezhisheet.Cells(2, 1) '设置数据库路径
    Set DB = OpenDatabase(DBpath & shezhisheet.Cells(2, 2) & ".accdb") '设置数据库打开方式
'执行率整体-银保分月数据
    outsheet.Range("Q4:AC12").ClearContents
For i = 5 To 12
    xilie = outsheet.Cells(i, 13)
    feiyong = outsheet.Cells(i, 15)
    Debug.Print feiyong
    Debug.Print xilie
    sqlstr = "SELECT a.* from 实际费用分系列分费用整合 as a where a.系列='" & xilie & "' and a.费用类型1='" & feiyong & "'"
    Set DBOpen = DB.OpenRecordset(sqlstr)
    If DBOpen.Fields("一月之合计") = Null Then'这里是问题点，当查询数据库中找不到该数据时，这句代码怎么写，目前这句报错见下图
'查不到数据什么也不做，目前其他代码都没有问题，就这句不会写，求助各位大神
    Else
    sheet1.Cells(1, 1) = DBOpen.Fields("一月之合计")
    End If
Next i
End Sub


报错截图：

ivccav

ak_shj

ivccav 发表于 2020-2-27 14:51

感谢老哥，按照所述方法已解决。