教えてください。よろしくお願いします。
VB6.0のプログラムからACCESSに文字データを渡し、それをキーにしてACCESSのテーブルから該当するデータをACCESSのテキストボックスに表示させたいのですが、検索・表示のプログラムはACCESSで記述ずみですので、VBからは引数を渡して、ACCESS側のVBAのプログラムを実行させたいのです。
その際、ACCESSの引数を渡すMDBが起動していなかったら、起動させて、上記の処理をさせたいのですが。
分かりづらい文章で申し訳ありませんが、どなたかアドバイスをお願い致します。
No.2ベストアンサー
- 回答日時:
s_husky です。
×Set appAccess = Nothing
○Set acApp = Nothing
VBでは、Microsoft Access XX.X Objext Library への参照設定を!
※VB6.0 SP6 + Access 2003 で検証済みです。
No.1
- 回答日時:
ここでは、Access.mdbが起動していない場合の例を示します。
<Access側の設定>
Public Sub UpdateForm1(ByVal frmName As String, _
ByVal txtName As String, _
ByVal strValue As String)
DoCmd.OpenForm frmName
Forms(frmName).Controls(txtName).Value = strValue
DoCmd.Close acForm, frmName
End Sub
※指定のフォームをオープンし、指定のテキストボックスに指定された値を代入した後にフォームを閉じます。
<VB側のコード>
Private Sub Command1_Click()
On Error Resume Next
Dim acApp As Access.Application
Dim strDBPath As String
Const DB_PATH As String = "D:\Temp\Test.mdb"
Set acApp = New Access.Application
With acApp
.OpenCurrentDatabase DB_PATH
.Run "UpdateForm1", "form1", "data", "XXX"
End With
acApp.Quit
Set appAccess = Nothing
End Sub
※これで、Form1.data に連結しているテーブルの値は "XXX"に更新されます。
※これをヒントに応用して下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) Access VBAから使用したExcelプロセスを閉じる方法について 4 2022/06/08 17:50
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Access(アクセス) Access DAOのExecuteメソッドのオプション(RecordsetOptionEnum)に 1 2022/09/19 07:34
- その他(プログラミング・Web制作) Accessの代わりのノンプログラムデータベース作成 4 2022/10/21 09:26
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Accessのデータ型の日付/時刻型について 1 2023/04/02 17:03
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows上のプログラム。「予め...
-
アウトルックが起動しているか...
-
VBSから別のVBS起動するとき変...
-
MSDOS(バッチファイル)でプロセ...
-
ASPでPMT関数が使いたい...
-
宛先ナシでメールソフトを起動...
-
「FindWindow」、ウィンドウハ...
-
HTMLタグの中にDLLを埋め込む事...
-
ACCESS VBAで別のACCESS(mdb)を...
-
VBによる複数バージョンのEXCEL...
-
VBAでSeleniumからChromeを起動...
-
フォームの最前面が効かない
-
WinSCPで画像のように puttyを...
-
VBで別のプログラムを起動し他...
-
VBで実行中のEXEファイルの情報...
-
エクセル起動時別プロセスで開く
-
VB6で呼び出し元の情報を取得す...
-
mscomm32.ocxの登録方法
-
Process.Startで起動したアプリ...
-
Internet ExplorerをC言語プロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
VBSから別のVBS起動するとき変...
-
Windows上のプログラム。「予め...
-
VBSで起動したアプリが前面表示...
-
VBで実行中のEXEファイルの情報...
-
キー操作 (WSH:コピー&ペー...
-
EXCEL VBAから他アプリケーショ...
-
Process.Startで起動したアプリ...
-
VBAでSeleniumからChromeを起動...
-
64bitで作ったEXEを32bitで起動...
-
ACCESS VBAで別のACCESS(mdb)を...
-
「FindWindow」、ウィンドウハ...
-
VBAでIEが起動しているか...
-
Shellで起動したプログラムのウ...
-
VBSでExcelのUserFormをエクス...
-
Vba アプリケーションが立ち上...
-
exeファイルを実行するとすぐに...
-
フォームの最前面が効かない
-
別アプリの起動、終了について
おすすめ情報