| |
質問を簡単にしようとして、かえってわかりにくい質問になってしまいました。すみません。
『「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超初心者です。どうか、お助けください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
