特定の値が存在するかどうかを検証します。他の列にはnullを設定しないでください。

Question

pricesourceの列に「Prior Value」の値があり、PO_DATE列にNULLがある場合は2つの列があります。私はこのようなことを試しましたが、適切な出力が得られませんでした。私にあなたが使用することができます

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