同時に2つのフィルタをサブフォームに適用しようとしています。サブフォーム上の複数のフィルタ
DATES XとYの間、およびZのBRANCH Zのみのレコードが必要です。
作業は単体ではありますが、同時に使用することはできません。これは基本的に私はこれには本当に新しいんだと私はウェブから得たコードのビットである
Private Sub Command39_Click()
If IsNull(Me.txtFrom) Or IsNull(Me.txtTo) Then
MsgBox "Insert date!"
Else
With Me.frmDailyRevenue.Form
.Filter = "[DateDbl] BETWEEN " & Me.txtFromDbl & " AND " & Me.txtToDbl & "" And [F5] = " & Me.cboBranch & """
.FilterOn = True
End With
End If
End Sub
:私はそれが何か
現在のコードを知っています。
すべてのアドバイスは大歓迎です。私はMe.cboBranchがテキストであることが想定
.Filter = "[DateDbl] BETWEEN #" & Format(Me.txtFromDbl,"mm\/dd\/yyyy") & _
"# AND #" & Format(Me.txtToDbl,"mm\/dd\/yyyy") & "# And [F5] = '" & Me.cboBranch & "'"
:
この行が次のように変更されました。「データ型が一致しません」というメッセージが返されました。 = Me.txtFromDbl& "AND" &Me.txtToDbl& "そして、[F5] = '" & "[DateDbl] BETWEEN" .Filter&Me.cboAgDep& "'" 私は#を使用し 'tをなぜなら、私の日付は、さまざまな理由からmm/dd/yyyyではなく、number(double)形式であるからです。 – Felps
[DateDbl]には数字が含まれています。 Me.txtFromDblには何がありますか? txtFormの中に通常のテキスト形式の日付があれば、私は 'BETWEEN"&CLng(CDate(Me.txtFrom))& "AND ..."を使います。また、cboAgDepの制御元であるテーブルフィールドのデータ型を確認します。 numberの場合は、一重引用符を削除します。 –
また、 'CLng(CDate(Me.txtFrom))'の代わりに、 'Format(Me.txtFrom、"# ")' –