入力規則について
[環境]
Windows2000
Access2000
※スレ違いお許し下さい。同様の質問を下記URLで行ってます。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=744564
[問題点]
Access2000で入力規則として「ひらがな」全角
「かたかな」全角 「英数字」半角 を自動で行い
たいと思い一番簡単な手法を試行錯誤中です。
Dim i As Integer
Dim ix As Integer
Dim strChk As String
Dim strMoji As String
Dim strEisu As String
Dim txtData As String
Dim GetData As String
strMoji = "アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲン"
strEisu = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ０１２３４５６７８９"
txtData = Trim(Me.テキスト5.Value)
For i = 1 To Len(txtData)
strChk = Mid$(txtData, i, 1)
For ix = 1 To Len(strMoji)
If StrComp(StrConv(Mid$(strMoji, ix, 1), vbFromUnicode), _
StrConv(strChk, vbFromUnicode), vbBinaryCompare) = 0 Then _
strChk = StrConv(strChk, 4)
If StrComp(StrConv(Mid$(strEisu, ix, 1), vbFromUnicode), _
StrConv(strChk, vbFromUnicode), vbBinaryCompare) = 0 Then _
strChk = StrConv(strChk, 8)
Next ix
GetData = GetData & strChk
Next i
Me.テキスト5.Value = GetData
●上記以外の解決方法を考えております。
