Access VBA質問箱 IV

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

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


1211 / 9994 ←次へ | 前へ→

【12082】IBM特殊文字を調査
質問  ケミー  - 11/9/19(月) 12:23 -

引用なし
パスワード
   教えてください。

顧客テーブルがあり、内容はキー番号(半角10バイト)、漢字氏名(全角50バイト)、カナ氏名(半角50バイト)です。
漢字氏名フィールドを調査して特殊文字コードが存在した場合エラーメッセージを表示したいので、以下の様なロジックを作成したのですが、すべての漢字氏名がエラーとなってしまいます。なぜでしょうか?
教えていただけますでしょうか。お願いいたします。

Public Sub 調査()
  Dim DB As DAO.Database
  Dim RS As DAO.Recordset
  Dim Moji As String

  Set DB = CurrentDb()
  Set RS = DB.OpenRecordset("顧客テーブル", dbOpenDynaset)

Do Until RS.EOF
  If RS!漢字氏名 Like "*[" & Chr("&hFA40") & "-" & Chr("&hFC4B") & "]*"
  Then
   Msgbox RS!漢字氏名
  End If
  RS.MoveNext
Loop
  RS.Close: Set RS = Nothing
  DB.Close: Set DB = Nothing
End Sub
267 hits

【12082】IBM特殊文字を調査 ケミー 11/9/19(月) 12:23 質問[未読]
【12083】Re:IBM特殊文字を調査 よろずや 11/9/19(月) 23:11 発言[未読]
【12084】Re:IBM特殊文字を調査 ケミー 11/9/19(月) 23:56 お礼[未読]

1211 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078193
(SS)C-BOARD v3.8 is Free