Microsoft Access 掲示板

クエリに、あるテーブルの該当する若い番号から４つ入れたい。

14 コメント

views

4 フォロー

Office2016

すみません、この質問の件について考えていて、改めて何がしたいのかわかりました‥。
フォームの中にサブフォームを作り、それを単票表示にして、その単票データをタブで切り替えるように見せることはできますでしょうか？
多くても4個くらいなのですが‥。

サブフォームを単票フォームにするのならばタブの選択に合わせてレコードが移動できるようにすればいいですね
それと、親フォームのレコード移動時にサブフォームのレコード数に合わせてタブの表示/非表示を切り替えればよさそうです

新たに作るサブフォームを[部署データ]とします
タブコントロール[所属部署タブ]を設置します
[所属部署タブ]にページコントロールを[ページ0]～[ページ3]まで設置します

Private Sub Form_Current()
    Const max部署 = 3
    Dim cnt部署 As Long
    Dim i As Long

    cnt部署 = Me!部署データ.Form.Recordset.RecordCount
    cnt部署 = IIf(cnt部署 > max部署, max部署, cnt部署)

    me!所属部署タブ = 0

    For i = 1 To cnt部署 - 1
        Me("ページ" & i).Visible = True
    Next
    
    For i = cnt部署 To max部署
        Me("ページ" & i).Visible = False
    Next
End Sub

Private Sub 所属部署タブ_Change()
    Me!部署データ.Form.Recordset.Move 所属部署タブ - (Me!部署データ.Form.CurrentRecord - 1)
End Sub

回答がついてとてもうれしいです！明日確認してみます。

コード訂正

Private Sub Form_Current()
    Const max部署 = 4 '//この行を訂正
    Dim cnt部署 As Long
    Dim i As Long

    cnt部署 = Me!部署データ.Form.Recordset.RecordCount
    cnt部署 = IIf(cnt部署 > max部署, max部署, cnt部署)

    me!所属部署タブ = 0

    For i = 1 To cnt部署 - 1
        Me("ページ" & i).Visible = True
    Next
    
    For i = cnt部署 To max部署 - 1 '//この行を訂正
        Me("ページ" & i).Visible = False
    Next
End Sub

Private Sub 所属部署タブ_Change()
    Me!部署データ.Form.Recordset.Move 所属部署タブ - (Me!部署データ.Form.CurrentRecord - 1)
End Sub

添え字（0～）と数（1～）の対応で処理に間違いがあったので修正しておきます

遅くなりましたが、できました！！素晴らしいです。
追加で質問ですが、現在登録済みだった所属部署は表示されるのですが、新規で所属部署を登録する画面の作成方法がわからず…
質問ばかりで申し訳ありませんが、ご教示願えませんでしょうか。

追伸：
プロパティで「移動ボタン」を表示するときちんと2つ目の商品タブが表示されますが、表示しないを選択すると1つ目のタブしか表示されません。なぜでしょうね・・？

hirotonの環境では再現できませんでした。たとえばForm_Currentに追加したコードをすべて削除すると（ページの表示ON/OFF機能を削除すると）ページは常に表示されたままになっていますか？

コードを全て削除すると、1つ目のタブのみ表示される状態になりました。

ちなみにこのとき、「移動ボタン」を表示していると1つ目のタブの状態でレコード２へ移動可能です。

新規で所属部署を登録する画面

新規登録用の画面自体は[部署データ]フォームですか？
[所属部署タブ]タブに[ページ4]を追加します

Private Sub 所属部署タブ_Change()
    If Me!所属部署タブ = 4 Then
        Me!部署データ.Form.Recordset.AddNew
    Else
        If Me!部署データ.Form.NewRecord Then Me!部署データ.Form.Recordset.MoveFirst
        Me!部署データ.Form.Recordset.Move 所属部署タブ - (Me!部署データ.Form.CurrentRecord - 1)
    End If
End Sub

[ページ4]を選択すると新規登録用のレコードに飛ぶようになります。少し手抜きな部分（新規登録から既存のレコードに移るとちらつくかも）がありますが、動作を確認してみてください

ちなみに、このコードだけだと、実際に新規レコードが追加されてもタブの表示は変わりません。「新規で所属部署が登録されたとき」にページのON/OFFを見直す必要があります。親フォームとサブフォームを行ったり来たりな処理でちょっと大掛かりになるので、続きが必要な場合にいは改めて質問を立てなおしてください（大元の質問は、それはそれで続けているようなので）

結構大掛かりになってきたのですね。ちょっと一旦考え直してみます。ありがとうございます！

追伸：
最初の質問に改めて戻るのですが

「F_メンバー」の中に「F_サブ所属部署」があります。
「F_サブ所属部署」は多くても4件くらいです。
この2つの情報を繋いでいる「T_メンバー所属部署」（メンバーIDと所属部署IDが主キー）が存在しています。

「Q_メンバー所属部署」の中に、特定のメンバーIDを指定した時「所属部署①」「所属部署②」「所属部署③」「所属部署④」を引っ張ることはできますでしょうか。

hiroton様ありがとうございます。
いただいた内容を確認してまいります。

新たに問題が発生しました。
こちらの「F_メンバー」を削除しようとすると
以下エラーが起きて削除できません。
実行時エラー 2101
プロパティの設定値として指定した値が正しくありません。

デバッグで指定される色が付くコードの部分は
me!所属部署タブ = 0

元の質問が埋もれてしまうので回答を別トピックに分離しました
→どんぐりずさんへ回答（タブ表示でレコード移動）

タグリスト

VBA (386) Office2016 (294) フォーム (242) Office2021 or 2019 (224) クエリ SQL (220) テーブル (139) レポート (128) Office2013 (57) Office2010 (50) Microsoft365 (47)

Markdown テーブル生成

Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。

Markdown Tables generator

Microsoft Access 掲示板

クエリに、あるテーブルの該当する若い番号から４つ入れたい。

最新トピック

タグリスト

Markdown テーブル生成