PickFolder アウトルックとアクセス連携

質問

アクセスのフォームに
テキストボックスとコマンドボタンを置きました。

ＶＢＡでoutlookに参照設定をして、

Private Sub コマンド2_Click()
Dim myNaSp As NameSpace
Set myNaSp = GetNamespace("MAPI")

Me.テキスト0.Value = myNaSp.PickFolder
Set myNaSp = Nothing
End Sub

としました。

テキストボックスには、
Private Sub テキスト0_AfterUpdate()
MsgBox Me.テキスト0.Value
End Sub
としました。

しかしoutlookのフォルダ名をPickFolderでテキストボックスに入れても
テキストボックスの更新後処理のイベントは発動しません。
しかしテキストボックスにはちゃんとフォルダ名が入っています。

Private Sub テキスト0_Change()
MsgBox Me.テキスト0.Value
End Sub

にしても同じです。

Private Sub コマンド2_Click()
Me.テキスト0.Value = "aaa"
End Sub

にしてコマンドボタンをクリックすると、
Private Sub テキスト0_Change()
MsgBox Me.テキスト0.Value
End Sub
は、発動します。

PickFolderでフォルダ名を選択して値をテキストボックスに入れても
イベントを発動させる方法を教えてください。

回答No.1

m3_maki · ベストアンサー

TextBox.AfterUpdate イベント のヘルプより
----------------------------------
"SetValue/値の代入" アクションが記述されたマクロまたは Visual Basic で、コントロールに含まれるデータを変更した場合は、このイベントは発生しません。別のレコードに移動したり、レコードを保存したときに、フォーム に対して AfterUpdate イベントが発生します。

ということですから、AfterUpdate イベント は発生しません。

自前で呼んであげましょう。

Private Sub コマンド2_Click()
Dim myNaSp As NameSpace
Set myNaSp = GetNamespace("MAPI")

Me.テキスト0.Value = myNaSp.PickFolder
Set myNaSp = Nothing

Call テキスト0_AfterUpdate() '←この行を追加

End Sub

お礼

イベントをCallで呼び出すこともできるのですか。
知りませんでした。
おかげさまでうまく出来ました。ご回答ありがとうございました。

回答No.2

30246kiku

別な方法になりますが、

Me.テキスト0.Value = myNaSp.PickFolder
↓
Me.テキスト0.SetFocus
Me.テキスト0.Text = myNaSp.PickFolder

とすると　Change / BeforeUpdate / AfterUpdate が発生すると思いますが、
どうなりますか。

なお、

> Private Sub コマンド2_Click()
> Me.テキスト0.Value = "aaa"
> End Sub
>
> にしてコマンドボタンをクリックすると、
> Private Sub テキスト0_Change()
> MsgBox Me.テキスト0.Value
> End Sub
> は、発動します。

をもう一度確認願えませんか。発動しなかったような気がします。

お礼

Me.テキスト0.SetFocus
すれば、
Call テキスト0_AfterUpdate()
がなくてもできました。

Private Sub コマンド2_Click()
Me.テキスト0.Value = "aaa"
End Sub
は、発動しませんでした。
何か勘違いしてました。