フレームのAfterUpdate

質問

アクセス2003+ＶＢＡ

フォームにフレーム（中にトグルが数個）と、テキストボックスをおきました。
フレームに変更があったら、テキストボックスを書換えます。

Private Sub フレーム0_AfterUpdate()
テキスト1.SetFocus
テキスト1.Text = "test"
End Sub

と、したいのですがエラーになります。
かといって、各トグルボタンに対応したコードを書くのも難儀です。
何か対処法はありませんか？

回答No.2

noname#22222 · ベストアンサー

s_husky です。

見落としていました。正しくは、

Me.テキスト1.Value = "test"

です。

お礼

テキスト1.Text = "test"
とすると、エラーになり
テキスト1.Value = "test"
だと、ＯＫでした。
ありがとうございます。

回答No.1

noname#22222

エラーにはならないと思いますが...
質問者は、次のようにトグルボタンに対応してテキストボックスに選択的に文字列をセットしたいのだと受取ました。
一番簡単なのは、CutStr関数を利用して１行で済ますことです。
これだと、＜難儀＞と無縁と思いますが...

Option Compare Database
Option Explicit

Private Sub フレーム2_AfterUpdate()
　　Me.テキスト0 = CutStr("Test1/Test2/Test3", "/", Me.フレーム2)
End Sub

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　 ByVal Separator As String, _
　　　　　　　　　　　 ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function