access テキストボックスをクリックして 可視=false にするには

よろしくお願いします。
かるた取り(百人一首)のゲームを作っています。
下の句のテキストボックス(かるた0～かるた99）を画面に配置しました。
上の句を表示して、これに合った下の句のテキストボックスをクリックしたときにこのボックスを画面から消し去るにはどうすればよいのでしょうか
Private Sub かるた0_Click()
If かるた0 = 中句 Then
かるた0.Visible = False
カードめくり
Else
MsgBox ("お手つき")
End If
End Sub
としましたが、以下のようなエラーメッセージです。
「コントロールがフォーカスのときはコントロールを非表示にすることは出来ません」
カーソルを移動すればよいと思うのですが、コーディングで移動する方法を教えてください。

No.1 ベストアンサー 回答者： 16August 回答日時： 2007/09/26 08:57

Me.コマンド0.SetFocus

かるた0.Visible = False

コマンド0へフォーカスを移動させてから
かるた0を見えなくします。

この回答へのお礼

ご教授有難うございます。
解決しました。
かるたゲーム開発中です、まだまだ行きづまることがあると思います。
新しい質問にお気づきのときはよろしくお願いします。

お礼日時：2007/09/26 10:17

No.2 回答者： imogasi 回答日時： 2007/09/26 09:46

#1のご回答と同じですが

コマンドボタンがあれば＃１のようにでも良いし
他の（次ぎの）テキストボックスがあれば、それをsetFocusすれば、そちらへFocusが移ります。
Private Sub テキスト0_Click()
MsgBox "クリック・イベント"
'Me.テキスト2.SetFocus
'コマンド4.SetFocus
オプション5.SetFocus
Me.テキスト0.Visible = False
End Sub
上記の
'Me.テキスト2.SetFocus
'コマンド4.SetFocus
オプション5.SetFocus
どれか１つでエキストボックスが消えました。
これで質問者のニーズに合いますか。
２，４，５の番号は、もちろん私のテスト時のものですので、他の方の場合はかわります。

この回答へのお礼

色々動作確認までしていただき有難うございます。
解決しました。
かるたゲーム開発中です、まだまだ行きづまることがあると思います。
新しい質問にお気づきのときはよろしくお願いします。
回答運営スタッフに連絡する

お礼日時：2007/09/26 10:23