• ベストアンサー

アクティブタブの名前(Caption)を取得したい

アクセス2003です。 フォームにコマンドボタンとタブを設置しています。 そのタブにはページが5つあります。 コマンドボタンを押すと Msgboxで一番上になっているアクティブなタブの名前を取得したいのですが可能でしょうか? もし、タブの中でページ1を最後に選択し、コマンドボタンを押すと 「ページ1です」 とVBAで取得するにはどうすればいいのでしょうか? よろしくお願い致します。

  • 1wer56
  • お礼率100% (538/538)

質問者が選んだベストアンサー

  • ベストアンサー
  • bonaron
  • ベストアンサー率64% (482/745)
回答No.1

With Me.タブ1   MsgBox .Pages(.Value).Caption & "です" End With

1wer56
質問者

お礼

取得できました! どうもありがとうございました。

関連するQ&A

  • 現在アクティブなタブのページ名を取得したい

    アクセス2007のVBAについて質問します。 図のようにフォームにタブとコマンドボタンを設置しました。 コマンドボタンを押すと、現在アクティブなページ番号を表示させたいです。 今は Private Sub コマンド5_Click() Dim i As Long MsgBox "現在アクティブなタブはページ" & i & "です。" End Sub としていますが どういうVBAコードを書けば 現在アクティブなタブのページ名を取得できるのでしょうか? アドバイスよろしくお願いします。

  • Access VBAでタブコントロールで選択するタブをしていするには。

    Access VBAでタブコントロールで選択するタブをしていするには。 Access のフォーム上に,「ページ1」「ページ2」「ページ3」タブを配置しました。その横にボタンを3個配置して,ボタンクリックでそれぞれ対応するタブを選択(クリックしたのと同じ状態に)させたいのですが,どなたか方法を知りませんか? よろしくお願いいたします。

  • エクセル2003 ユーザーフォームのコントロールの名前取得について

    いつも勉強させていただいております。 現在、ユーザーフォームで入力画面を作成しています。 質問なのですが、コマンドボタンを押したときに その名前を取得したいのですが、そのボタンがFrameや マルチページの中にあると以下の記述では、フレームや ページの名前を返してしまうのですが、どのようにコードを 記述すればよろしいでしょうか? Private Sub CommandButton13_Click() MsgBox Me.ActiveControl.Name End Sub フレームやマルチページの中にあっても、 「CommandButton13」の名前を返す書き方 があればご指導のほどお願いいたします。 宜しくお願いいたします。

  • コマンドボタンがあるかどうかを取得するには?

    図のようにシートにコマンドボタンがあります。 オブジェクト名は「CommandButton1」です。 vbaでシート上にコマンドボタンがあるかどうかを取得するコードを書きたいのですが、どうすればいいのかわかりません。 MsgBox IsNull(CommandButton1) ではエラーになりました。 ご教授よろしくお願い致します。

  • アクセスのボックスの名前の取得方法

    初歩的な事で申し訳ございません。 マイクロソフトアクセスで、フォームの上に複数のボックスを設置しており、そのボックスをクリックするとマクロが走る様にしています。 ボタンは、エクセルのマスの様な配列で、A1を押したらAのマクロが走ってその後、1のマクロが走ります。 B1を押したらBのマクロが走りその後、1のマクロが走るという風にしております。 マス(ボタン)がものすごくあり、一つ一つにマクロを入れるだけでも、複数行になってしまいます。 何か良い方法等があれば教えてください。 ただ、単にボックの名前をA1,A2等にして、VBA上で取得してその値によって分岐させるだけでも良いのですが、ボックスの名前を取得するコードも分かりません。 よろしくお願いします。

  • PowerPoint VBAコマンドボタンでのマクロ

    PowerPointでVBAを使ったフォームを作製しました。 そのフォームを表示させるためマクロを書き、スライド上に コマンドボタンを配置させマクロを実行させたいと思っています。 ExcelのVBAですとコマンドボタンにマクロを割り当てるのは ツールバーのフォームのコマンドボタンで設置すると簡単ですが PowerPoint VBAですとコントロールツールボックスでのコマンド ボタンしかなくボタンにマクロを割り当てる方法が分かりません。 どなたかコマンドボタンにマクロを割り当てて実行する方法を 教えて下さい。 宜しくお願い致します。

  • accessvba タブのページ名を取得したい

    フォームの上にタブを置いていて、 タブをクリックしたらタブの名前(ページ名)を取得したいのですが Debug.Print Me.Pages(Me.Value).Caption これだと間違っているようです。 タブにはページ1、ページ2・・・とあります。 アクティブタブのページ名を取得する方法を教えてください。

  • Excelvba 図の名前を取得する方法を教えて

    挿入した図の名前を変更したいと考えています。変更するためには、挿入時に自動で付けられる名前を取得する必要があります。 名前の取得方法は下記があるようですが、目的には合いません。 1.”ActiveSheet.Shapes.Range(Array(1)).Name”コマンドは最背面の図の名前を表示します。挿入直後の図は、最前面にあるため名前を得られません。 2.”Selection.Name”コマンドは図挿入直後の選択状態の間は有効ですが、名前を得るためのコマンドボタンをクリックすると、コマンドボタンがselect状態になり、図の名前を得られません。 やりたいこと: 挿入した写真を決めた番号順に名前を付けて保存したい。複数の図を挿入するため、図の貼り付け後VBAで処理したい。

  • リストボックスの全ての値を取得するには?

    エクセルのシート上のリストボックスに あああ いいい が表示されてるとして、 その二つの値をコマンドボタンを押した際に取得したいのですが Private Sub cmd_取得_Click() MsgBox Me.ListBox1.Value End Sub だと現在リストボックスで選択中の値しか取得されません。 リストボックスであああが選択中なら、 あああしか返ってきません。 あああ、いいいをVBAで取得する方法を教えてください。

  • レコードの値を取得

    お尋ねします。 職員台帳をアクセス2000で作成しています。 検索フォームを作って、部署名をコンボボックスで選択すると、その部署に所属する職員の一覧を表形式で表示するようにしました。 表示するフィールドは、部署名、職員氏名、職員番号、入社年月日です。 次に、表形式で抽出されたそれぞれのレコードについて、コマンドボタンを押して別のフォームを開き、そのフォームで個別の情報を入力したいと考えます。各レコードそれぞれにコマンドボタンを配置する方法です。 別のフォームを開くときに、各レコード(テキストボックス)に表示されている職員氏名と職員番号の「値」を取得したいのですが、その方法がわかりません。表形式のレコードのValueを取得する方法をVBAでどう記述すればいいか、どなたか教えてください。 よろしくお願いいたします。

専門家に質問してみよう