- ベストアンサー
Access2003で項目の書式一括変換
30246kikuの回答
おじゃまします 試される時にはテスト用の環境で行ってください。 標準モジュールに以下を転記し、実行します。 Public Sub Sample() Dim db As DAO.Database Dim ctn As DAO.Container Dim doc As DAO.Document Dim rpt As Report Dim ctl As Control Set db = CurrentDb Set ctn = db.Containers("Reports") For Each doc In ctn.Documents DoCmd.OpenReport doc.Name, acViewDesign Set rpt = Screen.ActiveReport For Each ctl In rpt.Controls If (ctl.ControlType = acTextBox) Then If (ctl.ControlSource = "=Now()") Then ctl.Format = "gggee年mm月dd日(aaa)" Exit For End If End If Next DoCmd.Close acReport, doc.Name, acSaveYes Set rpt = Nothing Next Set ctn = Nothing Set db = Nothing End Sub やっていることは、存在するレポートの名前を得るために CurrentDb.Containers("Reports").Documents で管理されているレポート分処理を回します。 1つのレポートをデザインで開き、レポート内にあるテキストボックスを見ていきます。 コントロールソースが "=Now()" となっているものの書式を "gggee年mm月dd日(aaa)" に設定します。 その後レポートを閉じます。( acSaveYes で保存することになります) "gggee年mm月dd日(aaa)" の表示結果は、 平成23年06月02日(木) に 書式ではなく "=Now()" 自体を置き換えるのなら "=Format(Now(),'gggee年mm月dd日(aaa)')" と置き換えれば良さそうです。 コントロールソース内の記述の一部 "Now()" を・・・ なら、上記の応用で If 文のところは Like で、置き換えは Replace で・・・ レポートの基がクエリで、そこに記述している "Now()" ならば、 クエリの修正が必要になります。 単純に Now() AS XXXX のようにしているのなら、 前述した処理でコントロールソースが XXXX のものに対して行えば・・・・ でも単純なループ処理にはならないので、手修正が楽だと思います。 くれぐれも、試される時にはテスト用の環境で行ってください。 参考にする/しない等々含め、すべて自己責任でお願いします。
関連するQ&A
- セルの書式を一括変換したい(Excel2002)
Excel2002を使用しております。 データベースから抽出した日付がB列に5000行ほど並んでいます。 全て2005/10/26と言う形です。 このデータから他の列に曜日を表示させようとしたいのです。 しかし、書式が文字列になっているようで、 text(B2,"aaa")では表示されません。 書式を変更したのですが、どうやら入力し直さないと日付として認識しないようです。100行だったら入力しなおすのですが・・・ どうか良い方法をご伝授下さい。
- ベストアンサー
- オフィス系ソフト
- ACCESS2000で日付書式にしたい。
ACCESS2000を使用しています。 テキスト型8桁の項目があり、yyyymmddの形で データが格納されています。 これの書式を変更したいのですが、テーブルのプロパティで0000\/00\/00のように入力しても書式が変わりません。どのようにすればよいのでしょうか? できればクエリで関数を使わずに実現したいです。
- ベストアンサー
- オフィス系ソフト
- accessのレポートについて教えてください。
こんにちは。 今、アクセスにてフォームを印刷するためのレポートの編集をしています。何件か登録して、そろそろ印刷してみようかなぁと思っていてプレビューを作成しましたが、そこで困ったことに気がつきました。 それは、フォームに登録したレポートが現在6件あるのですが、 6件目の途中のレコードでページが変わってしまい、2ページ目の始まりがとても中途半端な感じがしてしまいます。 そこで質問ですが、 アクセスのレポート作成の際に、途中の項目でページ変更しないように設定する事はできますか? VBとかモジュールとかマクロとかは使用した経験がほとんどない初心者です。 どうか、よい方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル2007 条件付き書式 上位10項目
110 120 180 110 200 190 120 180 190 110 120 190 180 110 110 110 180 110 190 上の数字すべてを選択範囲し、上位10項目の書式を変更させようと すると110だけが変更されず、それを除いたのべ12個の数字が変更 されます。これはどうなっているんでしょうか。 ちなみに上の範囲の場合、項目は110、120、180、190、200の5項目が あると考えればいいのでしょうか。
- 締切済み
- オフィス系ソフト
- Access97での日付の書式
Access97で作ったシステムをWindows2000のパソコン上で利用しています。その場合、日付の書式設定にggge"年"m"月"d"日"を設定すると和暦の"平成13年7月23日"とうまく表示されません。Windows98のパソコン上では表示ができます。過去の質問を拝見させて頂いて、【コントロールパネル】の【地域のオプション】の設定の影響かと思い、いろいろ試してみましたが、うまくいきません。とりあえず、format関数等を使わずに、書式で和暦"平成13年7月23日"と表示する方法がありましたら、教えてください。ちなみに、ggge"年"m"月"d"日"で設定をしてデータシートビューに切り替えると書式が勝手に次のように変更されてしまいます。→ ggge\m"月"\d"月" OSのバージョンによって異なるのでしょうか??よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Accessのレポートでソースレコード項目を読む
Accessのレポートでレポートを作っているんですが、グループヘッダーを出力するときに、そのグループの項目内容によって、表示する内容を変えようとしています。 VBで「グループヘッダー_Format」イベントが発生した時に、そのときのグループの内容を読み出して、それぞれに見合った処理を行うつもりです。 ただ、現在のソースレコードの項目をどうやって読み出せばいいかわかりません。 テーブル名!項目名 とやってもエラーになります。 どのように現在印刷しようとしているレコードの指定項目を読み出せばいいのでしょうか? よろしくお願いいたします
- 締切済み
- その他(データベース)
- アクセス2007の単票レポートの各項目の配置変え
Windows7をベースにアクセス2007を使っています。ごく最近まで、旧バージョンを使っていた際には、クエリーで得た検索結果をベースに、レポート(単票)にまとめる際、各項目ごとに配置や表示されるマスの大きさを変更できていたのが、選択したクエリーをベースに「レポートウィザード」で作ると、全ての項目が一斉に位置変更してしまい、個別に配置位置変更できなくなりました。 どうしたら個別に配置位置変更できるのかお教えください。 詳細説明: 「A項目 ↓」 「B項目 ↓」 「C項目 ↓」 の状態から 「A項目↓」 「B項目 ↓」 「C項目 ↓」 ※↓はマスの最後 としたいが、マウスでドラック&ドローすると 「A項目 ↓」 「B項目 ↓」 「C項目 ↓」 や 「A項目↓」 「B項目↓」 「C項目↓」 と一斉に↓の配置が動いてしまう。
- ベストアンサー
- オフィス系ソフト
- Access2007でAccess2000のモジュールを動かす
いつもお世話になります。 Access2007でAccess2000のモジュールを動かすことができなくて困っています。 新しい職場のPCが全てAccess2007に変わってしまいました。 今までは、Access2000でした。そのとき作成したフォームモジュールがAccess2007で全く動作しなくなり困っています。 Access2007でAccess2000ファイルはそのまま読み込み、フォーム自体は表示されます。しかし、VBで作成したモジュールが全く動作しません。 自宅では、Access2000のままですので、Access2000をAccess2007のファイルに変換することなくAccess2000のフォームモジュールを動かす方法はあるのでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- accessのテーブルの書式と定型入力
いつも参考にさせていただいています。 今日質問させていただきたいのは、Accessでの日付入力のことです。 例)平成16年4月9日 (1)和暦の日付を入力する際に「16/4/9」とする定型入力の作成の仕方。 (2)入力後のには「16.4」と表示させる書式。 以上のことが知りたいです。 どなたか回答お願いします。
- 締切済み
- その他(データベース)
- Access レポートについて
全くの初心者なのでAccess2003を使用しています。Accessのレポートで学生の証明書を作成を最終的な目標にしています。 現在レポートにて書式を作ったのですが、元になるテーブルを変更したいのですがいまいち変更の仕方が分かりません。 また特定の一枚だけを印刷するのを簡単に出来る方法はありますか。 意味不明かもしれませんが、補足などいたしますので宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
完璧です。感謝します。 またこのような質問にお付き合いください。 ありがとうございました。