ポップアップすると変数に格納できない アクセス

質問

ポップアップと作業ウインドウを「はい」にした状態で
フォームにコマンドボタンを作って、
自身のフォーム名をScreen.ActiveForm.Nameで取得したいのですが
MsgBox Screen.ActiveForm.Name
なら問題なく取得できるのに、
s = Screen.ActiveForm.Name
だと、
「指定した式では、フォームがアクティブ ウィンドウである必要があります。」
になります。

Private Sub コマンド_Click()
Dim s As String

MsgBox Screen.ActiveForm.Name
s = Screen.ActiveForm.Name

End Sub

としてるのですが、
文字列として取得しているのに、なぜ変数には格納できないのでしょうか？

ポップアップと作業ウインドウを「いいえ」にすると、変数に格納できます。

回答No.1

NotFound404 · ベストアンサー

こちら（Access2010）では問題ないですけどねー？
コマンド33 は単票フォーム（メインフォーム）上に配置してます。
Private Sub コマンド33_Click()
Dim s As String

MsgBox Screen.ActiveForm.Name
s = Screen.ActiveForm.Name
MsgBox "s= " & s
MsgBox Me.Name
MsgBox Me!コマンド33.Parent.Form.Name
End Sub

お礼

ありがとうございました。

回答No.2

choco-ball

先に変数に値を格納してからメッセージボックスを表示でもダメですか？
表示のエラーからしてフォームがアクティブでないことはわかりますので、
msgboxで表示した時に非アクティブになってるんなら先に変数に格納してからメッセージボックスに表示したらどうなのかなー？なんて思ったり。
すこーしかじった程度の素人ですので参考程度に…

お礼

ありがとうございました。