MS Access VBA ROTED DATE BETWEENまたはテキストボックス内での単一エントリ

Question

私はこのルックアップコードを参考にしています。

If Me.txtStartDate > "" And Me.txtEndDate > "" Then 
varWhere = varWhere & "[CompletionDate] BETWEEN #" & Me.txtStartDate & "# AND #" & Me.txtEndDate & "#" 

ElseIf Me.txtStartDate > "" And Me.txtEndDate Is Nothing Then 
varWhere = varWhere & "[CompletionDate] = """" & Me.txtStartDate & " * "" And "" 

ElseIf Me.txtStartDate Is Nothing And Me.txtEndDate > "" Then 
MsgBox "Please Input a Start Date", vbOKOnly, Error 

End If 

コード自体が自分の目標を自明に説明しているように感じます。しかし、私は範囲を与えるMe.txtStartDate & Me.txtEndDateにユーザーが入力できるようにしたいと思います。また、ユーザが単一の日付の間にMe.txtStartDateに入力することを許可する。私は2つのメッセージボックスを一緒に終了日だけに入力する場合は、一緒に結合しようとしました。

私のために働いていない、私はどちらかを得るか、または働くことができます。

私の質問は「これらの3つのステートメントをどのように組み合わせて、条件付きステートメントの仕方で動作させるか」です。

何かが役に立ちます。

Answer 1

あなたがしようとしていることはわかりません。私はdatepickersを使用するのが好きです。

Private Sub Form_Open(Cancel As Integer) 
Me.DTPickerStart.DefaultValue = "Date()" 
Me.DTPickerEnd.DefaultValue = "Date()" 

次に、このようなことをします。

If (Nz(Me.Me.txtStartDate.Value) = "") Then 
     MsgBox "Please select a Start Date.", vbCritical + vbOKOnly, "Error" 
ElseIf (Nz(Me.txtEndDate.Value) = "") Then 
    MsgBox "Please select a End Date.", vbCritical + vbOKOnly, "Error" 
Else 
    DoCmd.OpenReport "XYZRpt", acViewPreview 
    Or you could do.. 
    DoCmd.OpenQuery "Passthroughquery" that links to an SQL procedure. I'm not 
    sure what you're trying to do though. 
End If