下記のような変数の使い方がAccessVBAでできれば
教えていただきたいと思います。
やりたい事は、変数を利用して、フォームやテーブ
ル等を利用することです。
例.フォーム「名前1」の「ラベル1」のバリューを
「あいうえお」に変更
---------------------
Dim Class As String
'変数に「名前1」を代入
Class = 名前1
'フォーム「名前1」の「ラベル1」の値を変更
Form_Class!ラベル1="あいうえお"
---------------------
というように、変数を利用してフォームやテーブル
を利用したいのです。
実際このようにすると、Form_Class がそのまま
フォーム名ととらえられ、変数として機能しません
でした。
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。こんな感じでしょうか。適当なSubプロシージャ内として、
Dim FormName As String
Dim LabelName As String
Dim Frm As Form
Dim Ctl As Control
'変数に代入
FormName = "名前1"
LabelName = "ラベル1"
For Each Frm In Forms
If Frm.Name = FormName Then
For Each Ctl In Frm.Controls
If Ctl.Name = LabelName Then
Ctl.Caption = "あいうえお"
Exit Sub
End If
Next Ctl
End If
Next Frm
テーブルについてはADOかDAOでレコードセットを作成します。
とりあえず、ADOでテーブルを開く方法は、
Dim TableName As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
TableName = "テーブル1"
Set cn = CurrentProject.Connection
Set rs = New ADODB.RecordSet
rs.Open TableName, cn, adOpenKeyset, adLockOptimistic
・・・・・
(処理)
・・・・・
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
なお、ADOを使用する場合は、VBE画面のメニューの[ツール]→[参照設定]で、
「Microsoft ActiveX Data Objects x.x Library」
(x.xはバージョン)
をチェックして下さい。
では。
この回答への補足
ひとまずフォームの方だけ試させていただきましたが、うまく行きませんでしたので、もう一度具体的に書かせていただきます。
以下-------------------
まず環境として
MainForm があり、その中にTabコントロールがあります。
Tabはそれぞれ
Tab1,Tab2,Tab3....
また、それぞれのTabのなかにフォームが用意されています。
Tab1form,Tab2form,Tab3form....
それぞれのフォーム内にはTextボックス『text』(全て同名)
があります。
したい事が、MainForm上のボタン『変更』を押すと、現在アク
ティブなタブのフォーム内の『text』を変更する。という事です。
フォーム毎に上記を書いていたのでは手間なので、フォーム名を
変数で取得(引数はタブがアクティブになった時等に取得)した
いのです。
【イメージ】左を右のように表記できたら・・・
Form_Tab1form!text="値"
Form_Tab2form!text="値" > Form_変数!text="値"
Form_Tab3form!text="値"
以上、よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript javascriptで入力フォームが空欄の時にアラートによるエラーを出すコードを書いています。 2 2023/06/13 17:58
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- Google Drive Google form を利用して 問い合わせフォームを作りたい 1 2022/04/25 14:15
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- その他(プログラミング・Web制作) pythonのプログラムについての質問です。 1 2023/05/26 10:31
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
Accessフォームを開くときに決...
-
vbaで帳票フォームで開きたい ...
-
チェックボックスの内容をテキ...
-
85問、5件法のアンケート作成 ...
-
Access openargs について
-
アクセスで複数列にまたがる同...
-
outlookの分類項目について
-
Accessのフォームで追加したデ...
-
「フォームを作成できませんで...
-
Accessで、フォームAからダイア...
-
Wordでドロップダウンリストを...
-
アクセス 単票フォーム
-
エクセルでデータを蓄積するVBA
-
帳票フォームのなかにリストを...
-
Access2003 フォーム入力中に...
-
Access2003 メモリ不足のためこ...
-
Access レポート印刷するときに...
-
ユーザーフォームで数字にカン...
-
ACCESS フォームをそのまま印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
Accessで、フォームからフォー...
-
フォームの高さを数値で指定し...
-
アクセス フォームをリクエリ...
-
マイクロソフト アクセス2021の...
-
デフォルトでチェックボックス...
-
Accessに関する質問です。 クエ...
-
アクセスで、androidのスマホサ...
-
Excelのデータフォームの設定変更
-
アクセスで、スマホサイズのフ...
-
MSワード 年齢を計算表示でき...
-
access vba 開いていないフォー...
-
アクセスで同じフォームを違う...
-
Accessのフォームで開く時のウ...
-
帳票フォームのなかにリストを...
-
Accessフォームを開くときに決...
-
エクスポートされたエクセルの...
-
アクセスのレコードをフォーム...
-
Accessのフォームを改ページしたい
おすすめ情報