アクセス小僧：検索

アクセスのフォームで、

条件に合致するレコードを検索するマクロを昔、作ったんだけど。

https://cheese999.blog.so-net.ne.jp/2017-10-07
（これかな？）

データシート形式のフォームで、検索するフィールドと異なるフィールドがソート（昇順、降順）されていると、検索がうまくいかないみたいですね。

そこで、検索マクロに、ソートを解除するコードを追加してみました。

Private Sub 検索実行1_Click()
  '【変数】
  Dim MyStr1 As String ' 文字列
  '【実行コード】
  Me.AllowAdditions = False '追加の禁止
  If [FieldName1].Column(1) = "X日以上経過" Then
    MyStr1 = "パスワードNew経過日数 > " & [検索]
    ' Me.OrderBy = "パスワードNew経過日数" ' 並べ替え条件
  Else
    MyStr1 = [FieldName1].Column(1) & " like '*" & [検索] & "*'"
    ' Me.OrderBy = [FieldName1].Column(1) ' 並べ替え条件
  End If
  ' Me.OrderByOn = True ' 並べ替え実行
  Me.OrderByOn = False ' 並べ替え停止
  Me.Filter = MyStr1 ' フィルタ設定
  Me.FilterOn = True ' フィルタ適用
End Sub

ちゃんと試験していませんが、一応うまく動いているみたいです。

あ、この前、国家試験受けたけど、落ちているんだろうなぁ。。

Oasis - Don't Look Back In Anger


怒らない、冷静にね。Cool !

（参考）
フォームのレコードをボタンをクリックして並べ替える
https://hamachan.info/win8/access/narabekae.html

タグ：ソート 検索 Don't Look Back In Anger oasis OrderByOn アクセス VBA

コメント 1

ヤバイぜ！　ありがとうございます(^_0)ノ
by cheese999 (2019-02-19 08:35)