No.1ベストアンサー
- 回答日時:
これも丸投げの質問。
他人を当てにして難しい問題をやろうとしていると思う。コードを貼り付けて動きましたのことではないはず。なぜエクセルから、ACCESSに入るのをVBAでやるのか。初心者は別ソフトの連携など、相当勉強してからするものだと思うが。
WEBを照会すると、下記ぐらいはコード例が出ている。そういうのを調べたのかな。この先こそ質問になる事項ではないかと思う。疑問続出すると思う。
ーー
エクセルのシートにコマンドボタンを1つ貼り付け。
編集モードでダブルクリックして、クリックイベントで
Private Sub CommandButton1_Click()
End Sub
ガ出る。
ーーー
そこでコードだが
私の場合ACCESSに、社員2.MDBがある。
そこにはフォームで「フォーム1」と言うフォームを作っていて
そこにはテキストボックス2つとコマンドボタンを1つ設けている。
テキスト0
テキスト2
コマンド5
の名前になっている。
コマンド5のクリックイベントは下記のようになっている。
ーーー
Private Sub CommandButton1_Click()
Dim appAC As Object
'Accessのインスタンスをファイルから作成
Set appAC = CreateObject("Access.Application") 'GetObject("E:/Gabu/M1.mdb")
'見えるように
appAC.Visible = True
appAC.OpenCurrentDatabase CurDir & "\" & "社員2.MDB"
'フォームをモーダル表示
appAC.DoCmd.OpenForm "フォーム1", acNormal, , , acFormEdit, acDialog
'終了処理
'appAC.Quit
'Set appAC = Nothing
End Sub
ーーー
Private Sub コマンド5_Click()
Me.テキスト0.SetFocus
MsgBox Me.テキスト0.Text
Me.テキスト2.SetFocus
MsgBox Me.テキスト2.Text
End Sub
エクセルシートのボタンをクリックすると
フォーム1が現れ
テキスト0 に東京都
テキスト2 に中野区
と入れて、コマンド5をクリックすると
東京都、中野区が表示される。
ここらぐらいは出来たから、コントロール名を質問者の場合に変えて
やってみて。
ご返答ありがとうございました。
只今、会社でアクセスを習得を任されたのですが、未だどのような事ができるのか、手探りでやっております。これを調べるのにも相当悩んでいました。
また、上記のコードを調べて理解できました。
どうもありがとうございました。
No.2
- 回答日時:
ほとんど前の方と一緒です。
以下を実行する仕組みは作ってください。
Private Sub test1()
Dim acApp As Object
Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase "E:\Access\tmp\HogeHoge.mdb"
acApp.Visible = True
acApp.UserControl = True
acApp.DoCmd.OpenForm "フォーム名"
Set acApp = Nothing
End Sub
mdb オープンで起動されるフォームが設定されていれば、そのフォームは開かれるようなので、
acApp.DoCmd.Close 2, "フォーム名", 2
で閉じてください。
数字の意味合いは、Accessでいう
DoCmd.Close acForm, "フォーム名", acSaveNo
ご返答ありがとうございました。
只今、会社でアクセスを習得を任されたのですが、未だどのような事ができるのか、手探りでやっております。これを調べるのにも相当悩んでいました。
また、上記のコードを調べて理解できました。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Visual Basic(VBA) VB.net フォーム 親子 1 2022/07/04 19:00
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Access(アクセス) マイクロソフト アクセス2021のフォームビュー作成でレイアウトを帳票形式から単票形式にあとから変更 1 2023/03/03 10:56
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- Excel(エクセル) エクセルのファームにプルダウン設置できますか? 2 2022/05/19 23:38
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBAからAccessマクロを実行したい
Visual Basic(VBA)
-
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
-
エクセルから現在起動しているアクセスファイルをアクティブにしたい
Access(アクセス)
-
-
4
モジュールからフォームのボタンをクリックするには?
Access(アクセス)
-
5
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
6
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
7
ExcelのマクロでAccessのmdbを起動したい
Excel(エクセル)
-
8
エクセルからアクセスのプロシージャーを実行させるには?
Excel(エクセル)
-
9
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
10
VBAでメール作成(選択した複数の宛先へのメール作成) ExcelのVBAを使用してOutlookの
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
13
AccessからExcelのファイルを起動する
その他(データベース)
-
14
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
15
vbaで「最前面に」とする方法は?
Access(アクセス)
-
16
Access開いているブックのセル値参照
Access(アクセス)
-
17
現在アクティブになっているオブジェクトを取得
Access(アクセス)
-
18
実行時エラー:2517 プロシージャが見つかりません
Access(アクセス)
-
19
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBAのユーザーフォームに...
-
Autocad LT 引き出し線の上に文...
-
コマンドプロンプト使用時に「'...
-
コマンド入力ができなくなって...
-
ACCESS カンマをスペースに置...
-
標準モジュールだとエラーにな...
-
Accessでエラーメッセージの表...
-
AccessでExcelシートを印刷
-
Accessでaccdeへ変換で機能しない
-
JW-CADのAutoモードの解除はで...
-
エクセルVBA オプションボタ...
-
Access レポート印刷するときに...
-
YahooのIDがロックされてしまい...
-
ACCESS 帳票フォームとデータ...
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
Accessで、フォームからフォー...
-
エクセルをACCESSのレポ...
-
iphoneのフルスクリーンの解除方法
-
アクセスのレポート合成(複数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA オプションボタ...
-
EXCEL VBAのユーザーフォームに...
-
ExcelVBAでセルをクリックして...
-
コマンドプロンプト使用時に「'...
-
アクセスで「モジュールがあり...
-
JW-CADのAutoモードの解除はで...
-
ACCESS フォームでの、データ...
-
Notesでアンケートをとりたい
-
AccessでExcelシートを印刷
-
ACCESS カンマをスペースに置...
-
Accessでエラーメッセージの表...
-
標準モジュールだとエラーにな...
-
Accessでaccdeへ変換で機能しない
-
コマンドボタンに色を付けるこ...
-
USBメモリを丸ごと仮想イメージ...
-
ユーザーフォームのスクロール...
-
エクセルVBAからアクセスフ...
-
エクセルVBA ユーザーフォーム...
-
Autocad LT 引き出し線の上に文...
-
プロシージャの実行方法
おすすめ情報