SQL 当报表为空时，报错

晕了^快跑^

如图所示，当ACCESS报表为空时，执行SKU 语句出错。求助，怎么判断ACCESS报表是否为空？
sql1 = "select PO号,SKU,数量,入库方式,供应商编码 from 质检区入库 where 日期=#" & Date & "#"
arrRK = Myconn.Execute(sql1).GetRows

jack5d

1. Dim dbs As DAO.Database
   
2. Dim rsSQL As DAO.Recordset
   
3. Dim strSQL As String
   
4. 
   
5. Set dbs = CurrentDb
   
6. 
   
7. 'Open a snapshot-type Recordset based on an SQL statement
   
8. strSQL = "select PO号,SKU,数量,入库方式,供应商编码 from 质检区入库 where 日期=#" & Date & "#"
   
9. Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
   
10. 
    
11. If Not rsSQL.EOF Then
    
12.     'run your code
    
13.     arrRK = Myconn.Execute(sql1).GetRows
    
14. End If

复制代码