質問: accessのレポートのテキストボックスの大きさ変更 よろしくお願いします。 access2000です。初級者ですが、多少モジュールがわかります。 現在の状況 フォームでメニュー画面があります。 コマンドボタンを使い、押すとidを聞かれるようにしています。 クエリーでそうしています。 で、idを入力すると該当するレコードのレポート画面が表示されます。その画面は顧客名と入金額が表示されるようになっています。 お聞きしたいのはここからです。 入金額のテキストボックスの大きさを変えるようにしたいのです。 idを聞かれて入力した後に、大きさを聞かれるようにして、 例えば"1"と入力すると金額のテキストボックスが3cmで表示され、 "2"と入力すると4cmという具合に。 可能でしょうか。お助けください。 説明が足りなければ補足いたします。
回答: vbaで長さを取り扱う場合、twipという単位を使います。 1cm = 567twip です。 レポートの「開く時」のイベントで inputbox関数を使ってみました。 private sub report_open(cancel as integer) dim strwidth as string do while true strwidth = inputbox("大きさを入力してください", "サイズ指定") select case strwidth case "" 'キャンセルまたは未入力は変更せず開く exit do case "1" '3cm me.入金額.width = 567 * 3 exit do case "2" '4cm me.入金額.width = 567 * 4 exit do ' ・・・ '以下同様に case else 'それ以外は再入力 msgbox "大きさが不正です", vbexclamation, "サイズ指定" end select loop end sub