Ａｃｃｅｓｓのフォームでシマシマ

Question

いつもお世話になっています。
大変恐縮なのですが、どなたか教えてください。

Ａｃｃｅｓｓのフォームでシマシマの帳票フォームを作るにはどうしたら良いのでしょうか？

いくつか調べてみましたが、どれもしっくりくる答えがなく質問いたしました。
お願いいたします。

Ａｃｃｅｓｓ2000
WindowsＸＰ

30246kiku · Accepted Answer

＃２です

> RowNo()関数をダブルクリックすると、
この操作は何でしょうか。チョッとわかりません。

> 「ファイルへのアクセスエラーが発生しました。
> 　ネットワークへの接続が切断されている可能性があります。」
> とエラーメッセージがでました。
このインポートしたものが原因とは考えにくいエラーと思います。
インポートしたものの中での動作でエラーが発生すると、エラーの内容は
イミディエイトウィンドウに表示されるだけだと思います。
何故エラーが出たのか、原因はチョッとわかりません。

その mdb ファイルのコピーを取っておいて、最適化してみてどうなりますか。
また、新規 mdb を作成し、そのエラーの起きた mdb から全てインポートして、
新規 mdb での動きもおかしくなるのでしょうか。

メニューの「ファイル」→「外部データの取り込み」→「インポート」から、
ダウンロードした mdb ファイルを指定し、「モジュール」にある２つをインポートすると
RowNo() 関数が使えるようになると思います。

後は、条件付き書式等で RowNo() を使ってみてください。
（RowNo() 関数を使うフォームの「コード保持」は「はい」にしておきます）
（イベントプロシージャが全くないフォームに組み込む時には注意）

なお、＃２で提示した方法の条件付き書式のところで、
条件１、条件２で行の色を変更していましたが、
少しでも処理を速く・・・・とした場合、条件は１つだけにした方が良いと思います。
（気付いていたかと思いますが、念のため）

元々のテキストボックスの背景色を奇数行のものにしておいて、
条件付き書式の方で偶数行を判別して背景色を変える。

（説明上、対比しやすかったので並べて書いてました）

テキストボックスでどうにか・・・・っていう方法でした。
後、見栄え的には、このシマシマ用テキストボックスの前面に乗っかっている
テキストボックスの背景スタイルを透明にすると行の色が全部見えるようにはなります。

余談）

YU-TANG さんのところは見られましたか。
他の記事
　　OleRect 関数 - 表形式(帳票)フォームの背景色をレコード別に変える方法
　　http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmOleRect.html

これはまさに行の色変えの方法です。
サンプルファイルのフォームに「商品2」があります。
そこの動きで行番号を得る関数と組み合わせるとシマシマにできると思います。
（記事後半の使用上の注意は、よく読んでください）

=OleRect(IIF((RowNo() Mod 2)=1,奇数行の色,偶数行の色))

でいけそうな気はします。（未検証）

shinkami · Answer

>ピクチャサイズ…

添付は

ピクチャ:１cm角内に数個の同心円 JPG形式
ピクチャ全体表示：はい
ピクチャサイズ:クリップ

shinkami · Answer

勘違いかもしれませんが
フォームに背景を入れたいならフォームのプロパティーの書式で
ピクチャー関係の設定を試してください。

背景の模様はご自分で検索してください。
背景の大きさは小さい時はタイル張りのように敷き詰める
設定もありますので小さくても構いません。
Windowsの壁紙にも使えるのが有りそうですね

30246kiku · Answer

できなくはないのですが、処理が重くなりそうな気がします。

2007 からは、詳細のセクションに「代替えの背景色」が追加されていて、
シマシマの帳票フォームを簡単に作ることが出来るようになってます。

とは言っても 2000 で実現したいのですよね。

以下に作り方を記述しますので、小さい環境で試してみてください。
（前回ご質問で画像にあった検索フォーム「F02」をコピーしたものが適当かと・・・）

準備）

・帳票フォームを表示している時、私は何レコード目を表示しているの？
　これを求める方法を入手します。

YU-TANG さんの　フォームに行番号を表示する方法
　http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmRowNo.html

ここからサンプルファイルを入手します。
　ここの RowNo() 関数を使って偶数・奇数行を判別するようにします。
　必要なものをインポートしておきます。

フォームの修正）
　以下、フォーム「F02」を想定して記述していきます。

・詳細部分を縦にちょっと広げて、
　各テキストボックス等を縦方向中央になるように移動します。
・ヘッダ部分にテキストボックス（仮名「txt1」）を配置し、ラベル部分は削除します。
・そのテキストボックスを詳細左上角に合わせて移動します。
・そのテキストボックスの大きさを、詳細部分全部になるようにします（全てを隠すように）
・そのテキストボックスの
　　「タブストップ」を「いいえ」
　　「フォーカス取得時」をイベントプロシージャにし、以下を記述します。

Private Sub txt1_Enter()
　　　　Me.顧客CD.SetFocus
　　End Sub

これは、テキストボックス「txt1」かマウスでクリックされた時、
　　前面に出てこないようにするために、クリックされたら「顧客CD」へフォーカス移動。
　　固定で「顧客CD」にフォーカスが移動するようにしましたが、

Private Sub txt1_Enter()
　　　　Screen.PreviousControl.SetFocus
　　End Sub

のように、前にフォーカスがあったところに・・・でも良いかもしれません。

・テキストボックス「txt1」の「背景スタイル」が「普通」になっていることを確認します。
・条件付き書式で以下を設定していきます。
　条件１：
　　「式」にして　(RowNo() Mod 2)=1　で奇数行での背景色を指定
　条件２：
　　「式」にして　(RowNo() Mod 2)=0　で偶数行での背景色を指定

・今まで設定してきたテキストボックス「txt1」を「最背面へ移動」させます。
　（メニューの書式から指定）

以上で修正は完了です。

※　マウスホイールのコロコロとか、スクロールバーでのスクロール等、
　　条件付き書式での背景色表示が追いつきません。

※　記述忘れがあったらごめんなさい。大体上記のような感じです。

※　上記は条件付き書式を使ったものになりますが、条件付き書式を使わずに
　コントロールソースで記述する方法もあります。
　（この場合は、色付けなしと/ありの違いになりますが）

カレント行の背景色の変更 その3
　http://hatenachips.blog34.fc2.com/blog-entry-21.html

これ、カレント行という処理をしていますが、首をひねればそのまま使えると思います。
つまり、コントロールソースの判別で
　=IIF((RowNo() Mod 2)=1,"gggggg","")
として前景色（フォントの色）を設定すれば、その前景色がバックとなった表示になると思います。
※　このテキストボックスは最背面にしておきます。
※　他のプロパティはそのまま設定してみてください。

※　条件付き書式を使った方法、文字の前景色を使った方法・・・・
　どちらが軽い処理なのかわかりません。

osahune · Answer

ストライプ・シープかと^^;
失礼しました。。

下記へどうぞ。

魔法使いの開発工房
http://www.mahoutsukaino.com/
　↓
魔法使いの開発工房--Access2000　超入門
http://www.mahoutsukaino.com/ac/ac2000/index2000.htm

vBAの小屋 →　シマシマのレポート　で如何でしょう？

Ａｃｃｅｓｓのフォームでシマシマ

＃２です

>ピクチャサイズ…

勘違いかもしれませんが

できなくはないのですが、処理が重くなりそうな気がします。

この回答への補足

ストライプ・シープかと^^;

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング