Public Function BegDateIE() As Date
If [Forms]![FrmE].CurrentView <> 0 Then '定位到这里
BegDateIE = Nz([Forms]![FrmE]![DTPicker0], #1/1/1900#)
End If
End Function
Public Function BegDateIE() As Date
DoCmd.SetWarnings False
If [Forms]![FrmE].CurrentView <> 0 Then
BegDateIE = Nz([Forms]![FrmE]![DTPicker0], #1/1/1900#)
End If
DoCmd.SetWarnings True
End Function