验证是否存在特定值然后在其他列中不应该为空

Question

我有两列，如果pricesource列有一个类似'Prior Value'的值，并且PO_DATE列有空值，那么我必须显示消息“It has Nulls” ，我尝试过这样的事情，但没有得到正确的结果。纠正我

Dim rst As Recordset 
Set rst = db.OpenRecordset("select pricesource from [Input Norm] where pricesource='Prior File'") 
If rst And IsNull(PO_DATE) Then 
MsgBox "PO_DATE HAS NULLS, Please check" 
End If 

Answer 1

您可以使用：

Dim rst As Recordset 

Set rst = db.OpenRecordset("select PO_DATE from [Input Norm] where pricesource='Prior File'") 
If rst.RecordCount > 0 Then 
    If IsNull(rst!PO_DATE.Value) Then 
     MsgBox "PO_DATE has Nulls, please check." 
    End If 
End If 
rst.Close 

Set rst = Nothing