accessのフォームで年月日で検索機能を作成しているんですが、テキストに文字を打ち込んでも年日月付が表示されない状態です。原因教えてください。 Private Sub コマンド60_Click() Dim filter_txt As String 'FROM、TOの前後不備チェック If Me!テキスト56 <> "" And Me!テキスト57 <> "" Then If Me!テキスト56 > Me!テキスト Then MsgBox "期間指定が不適切です。再度入力してください。", vbCritical + vbOKOnly, "期間指定不備" Exit Sub End If End If '処理期間 If Me!テキスト56 <> "" Then If Me!テキスト57 <> "" Then filter_txt = "処理日 >= #" & Me!テキスト56 & "# and 処理日 <= #" & Me!テキスト57 & "#" Else filter_txt = "処理日 >= #" & Me!テキスト56 & "#" End If ElseIf Me!テキスト57 <> "" Then filter_txt = "処理日 <= #" & Me!テキスト57 & "#" End If If filter_txt = "" Then Me.FilterOn = False Else Me.Filter = filter_txt Me.FilterOn = True Me.OrderBy = "処理日 DESC" Me.OrderByOn = True End If End Sub