|
宜しくお願い致します。
フォームに配置してあるテキストボックス「テキストA」に文字をいれ、
クリックボタンでレポートを開いて、その時にフォームの「テキストA」に
入力した文字をレポートの「テキストボックス代入」に挿入ます。
その挿入した文字をレポートのテキストボックス「ふりがな1」から「ふりがな5」までに1文字ずつ分けて挿入したいのですが
下記の例のようにフォームのテキストボックスに「カブシキ」と入れて
レポートを開くと濁点がわかれてしまいます。(下記の記述で)
分かれないように一文字として認識して挿入できないでしょうか。
例(フォームのテキストボックスA) (レポートのふりがな1からふりがな5)
1---1---1---1---1 1---1---1---1---1---1
1 カ1 ブ1 シ1 キ1 → 1 カ1 フ1 " 1 シ1 キ1
1---1---1---1---1 1---1---1---1---1---1
★レポートでの記述
If Me.テキストボックス代入 <> "" Then
ふりがな1 = Mid$(テキストボックス代入, 1, 1)
ふりがな2 = Mid$(テキストボックス代入, 2, 1)
ふりがな3 = Mid$(テキストボックス代入, 3, 1)
ふりがな4 = Mid$(テキストボックス代入, 4, 1)
ふりがな5 = Mid$(テキストボックス代入, 5, 1)
End If
|
|