自分なりに調べてみましたが、わからなかったのでご存知の方がいらっしゃいましたら、ぜひ教えてください。
【状況】 アクセスのサンプルデータ(MDB)を自分でアレンジしています。VBAで計算させた結果をフォーム上(ラベル)で表示させています。
【やりたいこと】 上記ラベルに表示された結果をデータとしてテーブルに落としたいと考えています。
【問題?】 非連結のテキストボックスなら落とすことが可能でしたが、ラベルに表示された値?データはテーブルに落とす方法が分かりません。
ご存知の方がいらっしゃいましたら、ぜひ教えてください。よろしくお願い致します。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
>上記ラベルに表示された結果をデータとしてテーブルに落としたいと考えています。
ラベルの値を変数に入れて、SQL文を作って、SQL
を実行すればよいかと思います。
INSERT でレコードの追加が出来ます。
http://mailsrv.nara-edu.ac.jp/~asait/visual_basi …
が参考になるかと思います。
No.3
- 回答日時:
こんにちわ#1です
フォームに、「コマンド0」という名前でコマンドボタンを作成しコードビルダを立ち上げて、
コードビルダの「ツール」→「参照設定」で
「Microsoft Dao XXX Library」にチェック入れてOKボタンを押してください
その後に以下のロジックを書けば、テーブルにデータラベル値が挿入できます
以下は例なので、テーブル名、項目名、ラベル名
は適当です(自分で作ったフォーム名、テーブル名、ラベル名に直して下さい)
Private Sub コマンド0_Click()
Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Dim strSql As String
Dim strValue As String
Set db1 = CurrentDb
strSql = "select テーブル名.* from テーブル名"
Set rst1 = db1.OpenRecordset(strSql)
rst1.AddNew
rst1![テーブルの項目名] = ラベル名.Caption & "*"
rst1![テーブルの項目名] = ラベル名.Caption & "*"
rst1![テーブルの項目名] = ラベル名.Caption & "*"
rst1![テーブルの項目名] = ラベル名.Caption & "*"
rst1.Update
rst1.Close
End Sub
No.2
- 回答日時:
> 上記ラベルに表示された結果をデータとしてテーブルに落としたい
なぜ「ラベル」に入れないといけないのですか?
「テキストボックス」に入れても、「編集不可」等でユーザーからいじれないようにできますし、
表示も「ラベル」と同じように見せることも可能です。
「サンプルの『フォーム』上でその『コントロール』が『ラベル』になっているから」というだけの理由で
「ラベル」に固執しているのなら、
「書式」メニューの「コントロールの種類の変更」で「テキストボックス」に変更できます。
No.1
- 回答日時:
こんにちわ
正しく回答する為に、質問させて下さい
判らないのはフォームのラベルからVBAのモジュールの変数に落とすのが判らないのですか?
どの様に、ラベルの値をテーブルに挿入しようとしているのか判れば回答しやすいので記載して下さい。
この回答への補足
ご回答ありがとうございます。よろしくお願いします。
正直、どんな方法でやったらいいのかも分からない状態です。恥ずかしながら、ゼロ状態でわかりません。すみません。ご指摘の通り、変数に落とさなければいけない気がしますが、できていません。
ですので、やりたいことをもう少し具体的に書いてみます。
【テーブルに落としたい理由】
フォーム(VBAで計算させた値)のデータは、最終的にレポート上で表示、印刷します。レポート上では指定の枠内に表示(左詰)します。その際、右側の余白?部分は※(アスタリスク)を表示します。
このアスタリスクを表示(実はこの方法もこれから具体的に考えねばなりません)する為に、一度テーブルにデータを落とす必要性があると考えています。
・・が、アスタリスクを表示するにあたり、テーブルに落とす必要がなければ、フォームの(VBAで計算させた)値は”絶対に”テーブルへ落とす必要はありません。
ご質問の意図を得ているのか自信がありませんが・・よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Excel(エクセル) VLOOKUP 構造化参照について 1 2023/04/24 19:39
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
既存データをINSERT文にして出...
-
Accessの構成をコピーしたい
-
PRIMARY KEYのコピー
-
ADO+ODBCでテーブルに接続する...
-
Access特定のテーブルを編集不...
-
ExcelのMatch関数のようなもの...
-
同一テーブル内での比較(最新...
-
副問合せを使わずにUNIONと同様...
-
SQLで、Join句で結合したテ...
-
2つのテーブルをLIKE演算子のよ...
-
DB、キャストとインサートを...
-
SQLサーバに対するSQL文で抽出...
-
ExcelのVLOOKUP関数の動作をMyS...
-
結合したテーブルをSUMしたい
-
ACCESS クエリーでソートの不具合
-
フォームから入力してテーブル...
-
SQLサーバのデータが削除できない
-
重複データの一方を削除するSQL...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
結合したテーブルをSUMしたい
-
SQLで、Join句で結合したテ...
-
既存データをINSERT文にして出...
-
2つのテーブルをLIKE演算子のよ...
-
データ無し時は空白行にしたい...
-
Accessの構成をコピーしたい
-
ADO+ODBCでテーブルに接続する...
-
ACCESS クエリーでソートの不具合
-
同一テーブル内での比較(最新...
-
副問合せを使わずにUNIONと同様...
-
PRIMARY KEYのコピー
-
SQLサーバに対するSQL文で抽出...
-
ACCESSのVBAにてExcelに行...
-
ExcelのMatch関数のようなもの...
-
pythonでsqlight勉強中、クエリ...
-
ExcelのVLOOKUP関数の動作をMyS...
-
改行を含んだデータのインポート
-
重複データの一方を削除するSQL...
おすすめ情報