Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1349 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7572】SELECT　CASEの書き方 初心者 06/3/22(水) 23:21 質問[未読]
【7573】Re:SELECT　CASEの書き方 Gin_II 06/3/23(木) 0:53 回答[未読]
【7572】SELECT　CASEの書き方
質問  初心者  - 06/3/22(水) 23:21 -
引用なし
パスワード
   ACCESS　VBA超初心者です。宜しくお願いします。
フォームでテキスト0に値を入れると、自動的にテキスト2に任意の値を表示させたく下記の文を書きましたがうまく動作しません。
テキスト0にWを入力→テキスト2にみかんと表示のようにしたいのですが。
どこが違っているのでしょうか？
Private Sub テキスト0_AfterUpdate()
Dim a As String
a = Me.テキスト0.Text
Select Case a
Case "W"
Me.テキスト2.Text = "みかん"
Case "N"
Me.テキスト2.Text = "りんご"
Case "V"
Me.テキスト2.Text = "ばなな"
Case "U"
Me.テキスト2.Text = "トマト"
End Select

End Sub
【7573】Re:SELECT　CASEの書き方
回答  Gin_II  - 06/3/23(木) 0:53 -
引用なし
パスワード
   >どこが違っているのでしょうか？

Text プロパティは、フォーカスがないと使えません。
Value プロパティを使ってください。

Select Case Me.テキスト0.Value
　　Case "W"
　　　　Me.テキスト2.Value = "みかん"
　　Case "N"
　　　　Me.テキスト2.Value = "りんご"
　　Case "V"
　　　　Me.テキスト2.Value = "ばなな"
　　Case "U"
　　　　Me.テキスト2.Value = "トマト"
End Select
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1349 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free