- ACCESS
- 2017-03-08
この記事は最終更新日から1年以上経過しています。
よく使うので覚書
Private Sub Search() On Error Goto Exception Dim Coll As Collection Dim SQL() As String Set Coll = New Collection If Not IsNull([検索テキスト]) Then Coll.Add "[フィールド1] Like '*" & [検索テキスト] & "*'" End If If [検索チェック] = -1 Then Coll.Add "[チェックフィールド] = " & [検索チェック] End If If [検索チェック2] = 0 Then Coll.Add "[チェックフィールド2] = 0" End If If Coll.Count > 0 Then For i = 1 To Coll.Count ReDim Preserve SQL(i - 1) As String SQL(i - 1) = Coll(i) Next i DoCmd.ApplyFilter , Join(SQL, " And ") 'Debug.Print Join(SQL, " And ") '確認用 Else Me.FilterOn = False End If Exit Sub Exception: MsgBox Err.Description End Sub
2,075 views