| |
宜しくお願い致します。
フォームに配置してあるテキストボックス「テキストＡ」に文字をいれ、
クリックボタンでレポートを開いて、その時にフォームの「テキストA」に
入力した文字をレポートの「テキストボックス代入」に挿入ます。
その挿入した文字をレポートのテキストボックス「ふりがな１」から「ふりがな５」までに１文字ずつ分けて挿入したいのですが
下記の例のようにフォームのテキストボックスに「カブシキ」と入れて
レポートを開くと濁点がわかれてしまいます。（下記の記述で）
分かれないように一文字として認識して挿入できないでしょうか。
例（フォームのテキストボックスA） （レポートのふりがな１からふりがな５）
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
|
|
yoshi
- 06/1/24(火) 9:57 -
