VBAがクエリのバインドされていないテキストボックスの値

Question

ユーザーがクエリの開始日と終了日を設定するフォームに2つのバインドされていないテキストボックスがあります。ユーザーがボタンを押してレポートを生成するよりも。

変数myStartDateとmyEndDateに適切な値が設定されていても、Access以外のすべてが機能し、開始日と終了日を尋ねるダイアログボックスがポップアップします。

私はここで簡単なものがないと思う。

Private Sub PrintReport_Click() 
    Dim myForm As Form 
    Dim myTextBox As TextBox 
    Dim myStartDate As Date, myEndDate As Date 

    myStartDate = CDate(Forms![Data Entry - Ammonia and Alkalinity]![StartDate]) 
    myEndDate = CDate(Forms![Data Entry - Ammonia and Alkalinity]![EndDate]) 

    Dim whereString As String 
    whereString = "LabDate Between myStartDate And myEndDate" 
    DoCmd.OpenReport "Ammonia and Alkalinity Report", acViewPreview, , whereString 

End Sub 

Answer 1

これらの変数を使用するには、文字列をエスケープする必要があります。何をしたい

は次のとおりです。

whereString = "LabDate Between #" & myStartDate & "# AND #" & myEndDate & "#" 

Answer 2

あなたは（と私はそう思います）2つのテキストボックスに日付形式を適用している場合、あなたは変換のほとんどを必要としませんが、合格しなければなりませんSQLコードに日付値のフォーマットされた文字列式：

Private Sub PrintReport_Click() 

    Dim myForm As Form 
    Dim myTextBox As TextBox 
    Dim myStartDate As String 
    Dim myEndDate As String 
    Dim whereString As String 

    myStartDate = Format(Forms![Data Entry - Ammonia and Alkalinity]![StartDate], "yyyy\/mm\/dd") 
    myEndDate = Format(Forms![Data Entry - Ammonia and Alkalinity]![EndDate], "yyyy\/mm\/dd") 

    whereString = "LabDate Between #" & myStartDate & "# And #" & myEndDate & "#" 
    DoCmd.OpenReport "Ammonia and Alkalinity Report", acViewPreview, , whereString 

End Sub 

Answer 3

修正が可能whereString： -

whereString = "LabDate Between " & _ 
"#" & Format (myStartDate, "mm/dd/yyyy") & " #" & _ 
" And " & _ 
"#" & Format (myEndDate, "mm/dd/yyyy") & "#"