Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームの検索 / 4

5 コメント
views
4 フォロー
4
hatena 2020/09/12 (土) 23:17:30

送付されたファイル　検索したい.accdb

ファイル見ました。
「F案件グループ」フォームの検索ボタン「コマンド14」のイベントプロシージャを下記のように記述してください。

Private Sub コマンド14_Click()
    Dim FindWhat

    FindWhat = DLookup("案件グループID", "クエリ1", "案件No='" & Me.テキスト12 & "'")
    If IsNull(FindWhat) Then
        MsgBox "該当する案件Noは見つかりませんでした。"
    Else
        Me.案件グループ.SetFocus
        DoCmd.FindRecord FindWhat
    End If
End Sub

これでご希望の結果になると思います。

検索テキストボックス「テキスト12」はコンボボックスに変更するとより使いやすくなると思います。
「テキスト12」を右クリックして[コントロールの種類の変更]-[コンボボックス]をクリック。
「値集合ソース」に下記のSQLを設定します。

SELECT DISTINCT T案件.案件NO FROM T案件 WHERE T案件.案件NO Is Not Null;

上記の改修をしたファイル　検索したい_hatena.accdb

通報 ...