Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
585 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11073】ExcelのVBAでAccessのフォーム内にコントロールが作成できるでしょうか yoshi 09/4/15(水) 18:50 質問[未読]
【11074】Re:ExcelのVBAでAccessのフォーム内にコン... 雅 09/4/15(水) 22:31 回答[未読]
【11076】Re:ExcelのVBAでAccessのフォーム内にコン... yoshi 09/4/16(木) 9:37 質問[未読]
【11077】Re:ExcelのVBAでAccessのフォーム内にコン... 雅 09/4/16(木) 11:39 回答[未読]
【11078】Re:ExcelのVBAでAccessのフォーム内にコン... yoshi 09/4/16(木) 18:40 お礼[未読]
【11075】Re:ExcelのVBAでAccessのフォーム内にコン... Gin_II 09/4/16(木) 1:40 発言[未読]
【11073】ExcelのVBAでAccessのフォーム内にコント...
質問  yoshi  - 09/4/15(水) 18:50 -
引用なし
パスワード
   入力項目が多く、テキストボックスを１個ずつ手作業で作成するのが面倒なので、Excelにコントロールの情報を整理し、一括してAccessのフォームに作成したいのですが可能でしょうか。可能であればその方法、あるいは参考資料を教えていただけないでしょうか。
【11074】Re:ExcelのVBAでAccessのフォーム内にコ...
回答  雅  - 09/4/15(水) 22:31 -
引用なし
パスワード
   こんばんわ。雅です。

>入力項目が多く、テキストボックスを１個ずつ手作業で作成するのが面倒なので、Excelにコントロールの情報を整理し、一括してAccessのフォームに作成したいのですが可能でしょうか。可能であればその方法、あるいは参考資料を教えていただけないでしょうか。

可能です。
CreateControlのヘルプをご覧ください。

Excelから操作するなら
CreateObject("Access.Application")
でインスタンス作成後操作できます。

でわ。
【11075】Re:ExcelのVBAでAccessのフォーム内にコ...
発言  Gin_II  - 09/4/16(木) 1:40 -
引用なし
パスワード
   > 入力項目が多く、テキストボックスを１個ずつ手作業で作成するのが面倒なので、

フォームウィザードを使えば、とりあえず1個ずつ作成する必要はありませんが、
それじゃ、ダメってことでしょうか？

もしくは、フォームのデザインビューで、フィールドリストから複数のフィールドを
一度にドラッグしても、テキストボックスまでは作成できます。
その場合は、自分でレイアウトしなおす必要はあるでしょうけど。
【11076】Re:ExcelのVBAでAccessのフォーム内にコ...
質問  yoshi  - 09/4/16(木) 9:37 -
引用なし
パスワード
   雅さん、早々の回答をありがとうございます。
当方、まだオブジェクトの事をあまり理解できていなくて、Excelから操作する方法の1例をお願いできませんでしょうか。
【11077】Re:ExcelのVBAでAccessのフォーム内にコ...
回答  雅  - 09/4/16(木) 11:39 -
引用なし
パスワード
   こんにちわ。雅です。

>当方、まだオブジェクトの事をあまり理解できていなくて、Excelから操作する方法の1例をお願いできませんでしょうか。

Dim AccObj As Object
Dim CtlObj As Object

Set AccObj = CreateObject("Access.Application.?") '?はバージョンによって変わる

AccObj.OpenCurrentDatabase "ファイル名"

AccObj.DoCmd.OpenForm "フォーム名", 1 ' 1 は acDesignの値

Set CtlObj = AccObj.CreateControl("フォーム名", 〜省略〜)

Set CtlObj = Nothing

AccObj.DoCmd.Close 2, "フォーム名" '2 は acFormの値

Set AccObj = Nothing

な感じでしょうか。
内容はヘルプを確認してください。

# 直書きなので間違ってるかも。

でわ。
【11078】Re:ExcelのVBAでAccessのフォーム内にコ...
お礼  yoshi  - 09/4/16(木) 18:40 -
引用なし
パスワード
   雅 さん、ありがとうございました。
大体の様子は分かりました。
少しアレンジして、既に開いているフォームに対して、コントロールを配置することができました。
問題はこれからかもしれません。種々のコントロール、プロパティ、DBフィールドとの関連づけ。少しずつ調べます。行き詰まりましたらまたよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
585 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078197
(SS)C-BOARD v3.8 is Free