教えて下さい!
Accessで宛名印刷のレポートを作っているのですが、
縦書きにした場合、半角のカタカナで入力された会社名や、住所の番地、ビルの階の数字が横に寝てしまいます。これを解消するために、StrConv関数を使って、全角の大文字に変換しようとしたのですが、うまくいきません。
たとえばレポートに会社名、住所、住所1のテキストボックスを配置し、会社名/住所は、「会社Address」テーブルから読み込み、住所1には、住所を全角に変換した住所を表示するとします。
レポートプロパティの「読み込み時」に以下のコード
住所1.value = StrConv([会社Address]![住所1], vbWide)
を記述したのですが、うまくいきません。
いい方法はないでしょうか。
あるいはもっと簡単にできる方法などはあるのでしょうか。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
Accessのはがき印刷ウィザードでレポートを作成すると次のようなプロシージャーが自動で作成されます。
変数stを文字列として取得し、その中の文字一つ一つを検査し"0123456789"のどれかが存在した場合、漢数字に変換するというものです。
rgchSBCSNum = "0123456789"
rgchDBCSNum = Chr$(-32177) & Chr$(-32176) & Chr$(-32175) & Chr$(-32174) & Chr$(-32173) & Chr$(-32172) & Chr$(-32171) & Chr$(-32170) & Chr$(-32169) & Chr$(-32168)
rgchKanjiNum = Chr$("-32422") & Chr$("-30486") & Chr$("-27663") & Chr$("-29105") & Chr$("-29076") & Chr$("-29476") & Chr$("-26534") & Chr$("-29003") & Chr$("-27478") & Chr$("-29725")
Private Function ToKanjiNum(st As String) As String
Dim stKanji As String, ch As String
Dim i As Integer, iNum As Integer
For i = 1 To Len(st)
ch = Mid$(st, i, 1)
iNum = InStr(1, rgchSBCSNum, ch, vbBinaryCompare)
iNum = IIf(iNum < 1, InStr(1, rgchDBCSNum, ch, vbBinaryCompare), iNum)
If iNum > 0 Then
stKanji = stKanji & Mid$(rgchKanjiNum, iNum, 1)
Else
stKanji = stKanji & ch
End If
Next i
ToKanjiNum = stKanji
End Function
No.2
- 回答日時:
テキストボックスのコントロールソースに直接
=StrConv([会社Address]![住所1], 4)
とするか(VBAとしてではないのでvbWideは使えません)
テキストボックスの名称を住所1以外(住所1A等)にして
フォーマット時イベントで
住所1A.value = StrConv([会社Address]![住所1], vbWide)
としてください。
もちろん#1の方の言う通り、クエリで設定する方法もあります。
この回答への補足
どうもありがとうございました。
No1さんのコメントにも書きましたが、半角を全角に変換すると、カタカナの縦書きはうまくいくのですが、
住所の番地などの数字とハイフンがおかしくなることを発見しました。
ハガキの縦書きを想定してるのですが、
いい方法があるでしょうか。
No.1
- 回答日時:
選択クエリを作成すると全角に変換できます。
手順
<準備>
(1) クエリの新規作成 窓からデザインビューを選択し、OKポタン
(2) 住所録があるテーブルを選択し、追加ボタン、閉じるポタン
(3) 半角のデータがあるフィールドをダブルクリック
たとえば[住所]・・・半角データがあるフィールド
<いよいよ更新クエリの変更と更新内容の設定です>
(4) (3)のつづきでメニューバーのクエリをクリック、更新(u)クリック
(5) レコード更新窓へ Strconv([住所],4)
上記の通り 4 と入れた後 更新クエリを実行すると全角に更新してくれますよ。
試してください。
成功を祈ってます。
この回答への補足
どうもありがとうございました。
vbWideが4,にあたるのですね。クエリではパラメータを聞いてきて悩んでいました。
全角にできたのはいいのですが、今度は
1."-(ハイフン)"が縦書きではハイフンが漢数字の"一"のようになり、縦棒にならない。
2.二桁以上の数字がたて並びになる。
との不具合がでました。
半角のカタカナ、数字まじりの住所を縦書きでおかしくならないようにするには、何が一番いいのか新たな問題が出てきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- メルカリ メルカリ ゆうゆうメルカリ便の支払い後の 住所変更についてです。 出品者の方から 入力内容をご確認下 1 2022/07/26 21:13
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- その他(暮らし・生活・行事) 住所変更と郵送物についての質問です。 結婚と引越しに伴い住所変更をするのですが… 市役所のみで住所変 3 2023/03/08 12:52
- その他(ビジネス・キャリア) 国税庁法人番号公表サイトの検索で会社の名前入れて所在区や郵便番号入れて情報が出てこない 2 2023/04/30 10:00
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- 年賀状作成・はがき作成 エクセルで作った住所録をワードの差し込み印刷ではがきに印刷したい 3 2022/09/26 15:47
- 郵便・宅配 焦ってます。 焦ってます。今日封筒をポストに投函しました。 投函してからしばらく経って封筒の裏に自分 4 2023/05/23 12:20
- その他(ネットショッピング・通販・ECサイト) 通販で買う予定の会社の情報が 代表の名前が中国人でした。 心配だったので、 国税庁の法人番号サイトで 2 2023/05/14 11:03
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Accessで日付や数値を全角で表示させることはできますか。
Access(アクセス)
-
access2007 日付 全角
Excel(エクセル)
-
Accessで縦書きの場合の数字の表示
その他(データベース)
-
-
4
アクセスで住所の番地を縦書きに煮したい
Access(アクセス)
-
5
iif関数で3つ以上条件を抽出したい場合
IT・エンジニアリング
-
6
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
7
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
8
update文で改行を入れる
Oracle
-
9
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
10
ACCESSのデータに自動で半角スペースを入れたい
その他(データベース)
-
11
カタカナを小文字から大文字にするには?
Excel(エクセル)
-
12
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
好きな人の住所って知りたくな...
-
このドイツ語の意味は。。。?
-
Access-郵便番号と住所の整合チ...
-
キャバクラ嬢が教える住所について
-
タクシー乗って行きたいところ...
-
差し込み印刷で住所が途中で切...
-
ネット閲覧で住所がバレる!?
-
SGI ニューヨーク文化会館
-
Orchisの設定ファイルはどこに?
-
筆ぐるめVer.10でのし紙を作り...
-
筆ぐるめで保存している宛先を...
-
筆王の官製はがきと年賀状の変更
-
ワードで宛名印刷、番地部分が...
-
筆ぐるめで写真取り込めない
-
筆ぐるめ レイアウトのバックア...
-
筆まめ の宛名から「御中」を...
-
開きまヘン
-
ジャストホームの住所録のデー...
-
筆まめV17で会社名に敬称を入れ...
-
新住所→旧住所への変換。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
好きな人の住所って知りたくな...
-
ExcelやAccessで住所と番地を分...
-
エクセルで作成した住所録から...
-
エクセルで、半角文字列を抽出...
-
バイトから渡された検便の封筒...
-
キャバクラ嬢が教える住所について
-
Accessで半角→全角に変更したい
-
関西に洋服店 チャンピオンの大...
-
このドイツ語の意味は。。。?
-
ネット閲覧で住所がバレる!?
-
差し込み印刷で住所が途中で切...
-
筆ぐるめは共有できますか?
-
郵便局留めは受取人の住所を書...
-
Excelで作った2つの住所録の結...
-
タクシー乗って行きたいところ...
-
Accessの住所を分割するメリッ...
-
ハイパーリンクを使用してエク...
-
ACCESS 住所の分割について
-
ACCESS2002 文字サイズを指定...
-
UKのApple IDを取得したいので...
おすすめ情報