現在アクセスに入力されているテーブルのデーターをもとに書道展のキャプションを作成中です
タイトルと作家の名前を表示させますがタイトルが1文字数から13文字数くらいまでと様々なため
テキストボックスの文字配置が均等割り付けだと文字数の多いタイトルは2段目が間延びしておかしいです
例えば8文字までだと均等割り付けそれ以上だと左揃えなどということが可能でしょうか?
他に良い方法があれば教えてくださいよろしくお願いします
Wordの差し込み文章のように一枚ごとの編集が出来ればいうことなしなのですが?それはあり得ませんか?
No.2ベストアンサー
- 回答日時:
> イベントプロシージャには文字数が多くなれば自動で2行にになり字も小さくなるための式がかかれています
こちらでしょうか?
テキストボックス内の文字を自動で縮小して全体を表示
http://hatenachips.blog34.fc2.com/blog-entry-11. …
上記の例なら
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
AutoFontSize Me.テキストボックス名, 12
If Len(Me.テキストボックス名) <= 8 Then
Me.テキストボックス名.TextAlign = 4 '均等割り付け
Else
Me.テキストボックス名.TextAlign = 1 '左揃え
End If
End Sub
のようになります。
> ユーザー定義関数名、「イベントプロシージャ」以外の式が指定されていますとなりました。
加えた変更を元に戻してもエラーになりますか?
とりあえず、コンパイルしてエラーが無いことを確認してください。
経験上、Access のバージョンにもよりますが、
デザインビュー以外で表示しているときに VBA の修正をしたりすると
このエラーが出ることが多いような気がしています。
ありがとうございました!!確かにご指摘のアドレスです。教えていただいた式で解決しました。
自問自答のここ3日間のもやもや一気に晴れました。
これでボタン一つ押すだけでキャプション一気に作れます
VBAの感触もなんとなくですが・・・前よりわかった気もしてうれしいです。
ほんとうに感謝いたします。!!
No.1
- 回答日時:
VBA を使えば可能です。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Len(Me.タイトル) <= 8 Then
Me.タイトル.TextAlign = 4
Else
Me.タイトル.TextAlign = 1
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCESS 2000のレポートでの文字の均等割付は可能ですか?
Access(アクセス)
-
アクセス レポート テキストボックスの文字を均等割り付けにし、文字数で前後にスペースを入れたい
Access(アクセス)
-
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
access2021 強制終了してしまう
-
実行時エラー3131 FROM 句の構...
-
【Access】Dcount関数の複数条...
-
accessデータを指定したExcel、...
-
Accessのクエリで、replace関数...
-
Vba Userformを前面に出すについて
-
access クエリ yes/no型のクエ...
-
access2019 チェックボックスと...
-
Accessレポートのチェックボッ...
-
ACCESS VBA でのエラー解決の根...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
Accessのリンクテーブルのパス...
-
Access IF文でテーブルに存在し...
-
Accessのスプレッドシートエク...
-
【世界はデータで出来ている】...
-
Access DLookup vbaで条件を2件...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷時に、複数ページに共通な...
-
Wordで、タイトルと名前は真ん...
-
Excel:2ページ目以降のタイト...
-
過去の全国の波の高さデータが...
-
【Excel】複数のタイトル行を設...
-
教えてGooの回答の信憑性てどの...
-
詩の題名はつけたほうがいいで...
-
DVDの副音声が聞きたい
-
12インチって何センチ?
-
InputBox キャンセルボタンが...
-
柳田國男の「日本には世間があ...
-
音楽のレポートの書き方につい...
-
Wordに登録したタイトル(表題...
-
『む』からはじまるポジティブ...
-
【WORD2003】表の繰り返しタイ...
-
印刷のタイトルは行も列も同時...
-
Finale NotePad 2012 タイト...
-
ワイルドカード 「Not like」
-
Excel VBA でグラフタイトルの...
-
Wordのプロパティ「タイトル」...
おすすめ情報
お答えいただきありがとうございました。私アクセス、あまり詳しくありません。再度ご質問させてください アクセスのレポートです
フォーマット時のイベントプロシージャの最後に書き加えました
すると、エラーが出てマクロ名、ユーザー定義関数名、「イベントプロシージャ」以外の式が指定されていますとなりました。
イベントプロシージャには文字数が多くなれば自動で2行にになり字も小さくなるための式がかかれていますこの式もネット上の式をコピペしたもので自分で書いたのではありませんが
書き足すまでは機能していたと思います
すみませんよろしくお願いします
式全部をコピペするとわかりやすいでしょうが、他人の作ったのをもともとコピペしているので著作権に触れるのかと・・・