Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3472 / 9994

←次へ　｜　前へ→


	【9783】Re:他のフォームのオブジェクトの参照法

くまごろう - 07/8/25(土) 11:22 -


	引用なし

	パスワード

質問を簡単にしようとして、かえってわかりにくい質問になってしまいました。すみません。
『「Form100元のﾃﾞｰﾀ」の各ﾚｺｰﾄﾞにあるﾃﾞｰﾀに何らかの処理を加え、処理済のﾃﾞｰﾀを「Form120新しいﾃﾞｰﾀ」に新ﾚｺｰﾄﾞとして加えていく』というのが、やりたい内容なんです。
　その場合、FormAでは、例えば TBxID は Me.TBxID(または Forms!FormA.TBxID)、TBxTitle は Me.TBxTitle(または Forms!FormB.TBxTitle)で良いかと思いますが、送り先の FormBについては "Forms!FormB.TBxTitle"などとﾌﾙﾈｰﾑ(?)で指定するより他に方法はないのでしょうか。

　Dim S as String
　Dim ID as String
　Dim LChNmb as Long

などとして、「Form100元のﾃﾞｰﾀ」から得たﾃﾞｰﾀを処理しながら、

　Forms!Form120新しいﾃﾞｰﾀ.TBx氏名 = S
　Forms!Form120新しいﾃﾞｰﾀ.TBxID = ID
　Forms!Form120新しいﾃﾞｰﾀ.TBx行数 = LChNmb

と「Form120新しいﾃﾞｰﾀ」に送り込みたいのですが、この「Forms!Form120新しいﾃﾞｰﾀ」の部分だけでももっと簡単な方法はないものかと思いまして。項目数が20近くあるのでﾀｲﾌﾟ･ﾐｽなく書くのも大変です。

例えば別のﾌｫｰﾑのﾚｺｰﾄﾞを１つ先に進めるのに
　 Dim ToForm as String

　 ToForm = "Form120新しいﾃﾞｰﾀ"
　 DoCmd.GoToRecord acDataForm, ToForm, acNewRec

でちゃんと動くのに

　 ToForm.TBx氏名 = S ではｴﾗｰになってしまう…
　 ToForm & ".TBx氏名" = S でもｴﾗｰになってしまう…

かといって
　Dim To氏名 as Textbox
　
　Set To氏名 = Forms!Form120新しいﾃﾞｰﾀ.TBx氏名

ではいきなりｴﾗｰになってしまう…。
お察しの通り、私はVBA超初心者です。どうか、お助けください。

364 hits

▼

【9780】他のフォームのオブジェクトの参照法 くまごろう 07/8/24(金) 19:05