-PR-
締切り
済み

アクセス2000のレポートについて

  • 暇なときにでも
  • 質問No.79456
  • 閲覧数70
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 24% (21/85)

アクセス2000でデータ-ベースを作成しています。
名称と住所を英語で入力する必要があるデータがあり、このデータをレポートで出力しようとすると、下記のように文字の途中で改行してしまうのですが、どうにかならないでしょうか?全て短いデータだけなら、改行しなくてもすむように、レポートで充分に広い幅を採ればいいのですが、長いデータもあり、どうしてもレポートで改行する必要があるのですが....
レコード 
microsoft access2000
レポート
micrsoft acce
ss2000
できれば、下記のようにレポートで出力したいのですが:
レコード
microsoft access2000
レポート
microsoft
access2000
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル12

ベストアンサー率 45% (207/457)

まず下記の関数をモジュールで作成して レポートのフィールドの式に「=Replace(テーブルのフィールド名)」で出来ると思います。なおこの関数は半角空白を判定して改行に置換えているだけのものです。 ご要望に沿えるかは別話 Function Replace(ByVal InMoji As String) Dim StrLen As Long Dim WkStr ...続きを読む
まず下記の関数をモジュールで作成して
レポートのフィールドの式に「=Replace(テーブルのフィールド名)」で出来ると思います。なおこの関数は半角空白を判定して改行に置換えているだけのものです。

ご要望に沿えるかは別話

Function Replace(ByVal InMoji As String)
Dim StrLen As Long
Dim WkStr As String
Dim i As Long

WkStr = ""
StrLen = Len(InMoji)

For i = 1 To StrLen
If Mid(InMoji, i, 1) = " " Then
WkStr = WkStr + Chr(13) + Chr(10)
Else
WkStr = WkStr & Mid(InMoji, i, 1)
End If
Next

Repace = WkStr
End Function


このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ