Microsoft Access 掲示板

Microsoft Access 掲示板

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

14 コメント
views
4 フォロー
4
hiroton 2021/02/10 (水) 17:28:13 fc00d@f966d >> 1

コード訂正

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～）の対応で処理に間違いがあったので修正しておきます

通報 ...
  • 5
    どんぐりず 2021/02/13 (土) 10:41:55 0029a@1c915 >> 4

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

  • 6
    どんぐりず 2021/02/13 (土) 11:19:09 0029a@1c915 >> 4

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

  • 9
    hiroton 2021/02/16 (火) 09:24:24 1ab75@f966d >> 4

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

  • 11
    どんぐりず 2021/02/17 (水) 13:31:59 0029a@1c915 >> 4

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

  • 12
    どんぐりず 2021/02/17 (水) 13:33:09 0029a@1c915 >> 4

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