请帮助看看下面的代码中为何第二三个条件无法起到作用，谢谢

yanwei82123300

Private Sub qryPORVDetail_Click()
On Error GoTo Err_qryPORVDetail_Click
If Me.汇率.Value = 1 Then
MsgBox "请输入或调整正确汇率 ", vbCritical
汇率.SetFocus
Exit Sub
End If
If Me.开始日期.Value = "" Then
MsgBox "请输入开始日期", vbCritical
汇率.SetFocus
Exit Sub
End If
If Me.结束日期.Value = "" Then
MsgBox "请输入结束日期", vbCritical
汇率.SetFocus
Exit Sub
End If
    Dim stDocName As String
    stDocName = "qryPORVDetail"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_qryPORVDetail_Click:
    Exit Sub
Err_qryPORVDetail_Click:
    MsgBox Err.Description
    Resume Exit_qryPORVDetail_Click
End Sub

红尘如烟

判断是否为空应该用 IsNull函数

todaynew

日期型的数据用isdate函数判断可能更好一些。

yanwei82123300

谢谢帮助我试试

kelind

If Me.开始日期.Value = "" Then
MsgBox "请输入开始日期", vbCritical
汇率.SetFocusExit Sub
End If
If Me.结束日期.Value = "" Then
MsgBox "请输入结束日期", vbCritical
汇率.SetFocus
Exit Sub
End If

yanwei82123300

OK已经解决，谢谢大家