Ｐａｇｅ 428 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼書式設定の編集について（至急の質問） ガチャピン 03/11/7(金) 16:44 ┗Re:書式設定の編集について（至急の質問） しろくろやぎ 03/11/7(金) 18:32 ┗レポートに表示するにはどうすればよろしいでしょうか？ ガチャピン 03/11/7(金) 19:06 ┗Re:レポートに表示するにはどうすればよろしいでしょうか？ しろくろやぎ 03/11/10(月) 13:48 ┗しろくろやぎさん有難うございました！！m(_ _)m ガチャピン 03/11/10(月) 15:50 ─────────────────────────────────────── ■題名 ： 書式設定の編集について（至急の質問） ■名前 ： ガチャピン ■日付 ： 03/11/7(金) 16:44 -------------------------------------------------------------------------
| いつもお世話になっております。 またまた質問があったので投稿致しました。 プログラムで書式設定の編集ってできるのでしょうか？ 例えば、 フォームの画面にAのテキストボックス、 中央揃いボタン、下線ボタンがあったとします。 Aに入力された値を選択して、中央揃いというボタンを 押すと、中央にきたり、下線ボタンを押したら、 下線が引かれたりというので値に編集をしたいのです。 それをプログラムでできるんであれば、どなたか ご存知の方、ご教授していただけないでしょうか？ よろしくお願い致します。 WindowsXP Access2000 |
| ▼ガチャピン さん Wrote： >プログラムで書式設定の編集ってできるのでしょうか？ 簡単なのはできますよ。 >フォームの画面にAのテキストボックス、 >中央揃いボタン、下線ボタンがあったとします。 > >Aに入力された値を選択して、中央揃いというボタンを >押すと、中央にきたり、下線ボタンを押したら、 >下線が引かれたりというので値に編集をしたいのです。 テキストボックスの名前を「txtTarget」 下線ボタンの名前を「cmdUnderLine」 中央揃えボタンの名前を「cmdAlign」として 下記をフォームモジュールに追加し、フォームを 開いてみてください。 ※TextAlign、FontUnderlineの意味はHelpを参照されたし。 Private Sub cmdAlign_Click() txtTarget.TextAlign = 2 End Sub Private Sub cmdUnderLine_Click() txtTarget.FontUnderline = True End Sub |
| >テキストボックスの名前を「txtTarget」 >下線ボタンの名前を「cmdUnderLine」 >中央揃えボタンの名前を「cmdAlign」として >下記をフォームモジュールに追加し、フォームを >開いてみてください。 >※TextAlign、FontUnderlineの意味はHelpを参照されたし。 > > >Private Sub cmdAlign_Click() > > txtTarget.TextAlign = 2 > >End Sub > >Private Sub cmdUnderLine_Click() > > txtTarget.FontUnderline = True > >End Sub しろくろやぎさんご回答有難うございましたm(_ _)m 上記方法でやりましたら、できました!! それでまたまた質問なのですが、 txtTargetに編集した （中央揃い、下線）値をそのままの状態で、 レポートに表示させたいのですが できるのでしょうか？ レポートのテキストボックスのコントロールソースに [Forms]![フォーム名]![txtTarget] を入れたらエラーになってしまいます。 何度も申し訳ありませんが、 ご教授よろしくお願い致します。m(_ _)m |
| ▼ガチャピン さん Wrote： >txtTargetに編集した >（中央揃い、下線）値をそのままの状態で、 >レポートに表示させたいのですが >できるのでしょうか？ レポートをプレビュー／印刷する時に常にフォームが 開いている、という条件ならできます。 >レポートのテキストボックスのコントロールソースに > [Forms]![フォーム名]![txtTarget] >を入れたらエラーになってしまいます。 コントロールソースは以下のように変更して下さい。 =[Forms]("フォーム名")![txtTarget] またレポートの「詳細」セクションのフォーマット時 イベントプロシージャに以下を記述します。 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) ' txtTestはレポート上のTextBoxコントロールの名前 txtTest.TextAlign = Forms("フォーム名")!txtTarget.TextAlign txtTest.FontUnderline = Forms("フォーム名")!txtTarget.FontUnderline End Sub これでフォーム上のコントロール（今回はtxtTarget）の 各種設定がレポートのコントロールに反映されます。 |
| しろくろやぎさん、何度もご返答有難うございます。m(_ _)m >レポートをプレビュー／印刷する時に常にフォームが >開いている、という条件ならできます。 > >>レポートのテキストボックスのコントロールソースに >> [Forms]![フォーム名]![txtTarget] >>を入れたらエラーになってしまいます。 > >コントロールソースは以下のように変更して下さい。 >=[Forms]("フォーム名")![txtTarget] > >またレポートの「詳細」セクションのフォーマット時 >イベントプロシージャに以下を記述します。 > >Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) > >' txtTestはレポート上のTextBoxコントロールの名前 > txtTest.TextAlign = Forms("フォーム名")!txtTarget.TextAlign > txtTest.FontUnderline = Forms("フォーム名")!txtTarget.FontUnderline > >End Sub > >これでフォーム上のコントロール（今回はtxtTarget）の >各種設定がレポートのコントロールに反映されます。 上記方法でやりましたら、レポートにもちゃんと編集した値で 表示されました。 しろくろやぎさん本当に有難うございました。m(_ _)m また質問等あると思いますので、 そのときはよろしくお願い致します。 |