システムエンジニアの部屋コミュのACCESSのフォーム作成について質問です

この場を借りて、ACCESSでのフォーム作成についてお聞きしたいことがあります。
(管理人様：突然このような質問を記載してすみません。こちらへの記載が間違っていましたら即削除させていただきますのでご指摘ください。)

私はＳＥではなくプログラマーなのですが、色々調べてみてもどうしてもわからず、こちらに記載致しました。
ACCESS初心者なので、おかしな事を言っている所があるかもしれませんが、間違いがありましたらご指摘お願いします。

フォーム(フォームＡとします)を開く際に特定のレコードを表示させたいのですが、「DoCmd.OpenForm stDocName, , , 」後のwhere句の表記方法がわかりません。(stDocNameにはフォーム名を先で代入しております)

データの体系としては･･･
テーブル　：ID(Integer)、日付(date)、他数項目
(同IDで日付違いのレコードがいくつかあります)
フォームＡ：上記テーブルの全項目を表示
フォームＢ：ID(Integer)
(既にテーブルに存在する値(ID)をコンボボックスより選んでもらう)
クエリ　　：ID(Integer)、日付(date)
(テーブルよりIDごとに最新日付のものを抽出し、IDのみ表示する。フォームＢのコンボボックスに使用)

フォームの仕様は･･･
フォームＢで値(ID)を選ぶと、既に抽出されたクエリによりIDごとの最新日付がわかっているので、そのIDと最新日付によりテーブルから同じレコードを検索し、フォームＡに表示させたいと思っています。

where句に指定するのは「コンボボックスより指定されたクエリのID・日付＝テーブルのID・日付」だと思うのですが、表記方法がわかる方いましたら教えてください。

考え方が間違っていたり、もっと良い別の方法がありましたらご指摘ください。

よろしくお願いします。

コメント(15)

最初
全て
最新の40件

[1] mixiユーザー 02月23日 12:16

とりあえず専門コミュもあるみたいです。
Microsoft Office Access
　http://mixi.jp/view_community.pl?id=43464

質問が理解しきれていませんが、SQL 的にはこんな感じになるのでよろしいのですかねぇ。

　select * from TABLE where
　 (FormB.ID = TABLE.ID) and (FormB.DATE = TABLE.DATE)

FormB にて指定された結果を条件に入れて値を出すのでよければ上記 SQL になります。
TABLE. や FormB. は適当に読み替えてください。

[2] mixiユーザー 02月23日 13:27

コンポボックスにIDと日付の両方持たせてあげればもっと楽な気が？

[3] mixiユーザー 02月23日 14:54

早速の返答ありがとうございます。
元々こちらのコミュニティーに参加していたので、こちらに書き込みさせていただきました。
ACCESSのみのコミュニティーもあるのですね、参考にしてみます。
ありがとうございます。

上記を参考に修正してみたのですが、「オブジェクトが必要です」というエラーになってしまいました。

DoCmd.OpenForm stDocName, , , (Me!ID = テーブル名.ID) And (Me!日付 = テーブル名.日付)

何か表記の仕方に問題があるのでしょうか？

[4] mixiユーザー 02月23日 23:34

詳しくはヘルプみてほしいけど
Where句もしくはFilter句で指定できます。
ここで指定するのは文字列なので
↓じゃぁだめです。あくまで引数を渡しているということを
忘れないでね。

＞DoCmd.OpenForm stDocName, , , (Me!ID = テーブル名.ID) And (Me!日付 = テーブル名.日付)

[5] mixiユーザー 02月23日 23:38

ありがとうございます！
明日またがんばってみます！！

[6] mixiユーザー 02月24日 16:35

＞えいたさん

ということは、私が抽出条件にしたいIDと日付ではDoCmd.OpenFormでは指定できないということでしょうか？
すみません、ヘルプやネットで色々見たのですがよくわかりませんでした･･･
別の方法でやろうかと検討中です。

[7] mixiユーザー 02月24日 17:18

ヒント

Me.Filter = "文字列A" And Me.Filter = "文字列B"
Me.FilterOn = True

[8] mixiユーザー 02月24日 18:03

じゅりさんありがとうございます。
ひとつ質問してもよろしいでしょうか？
文字列Ａ／Ｂとありますが、この部分は文字列でなければならないとヘルプにも書いてあるのですが、文字列ではなく別フォームのコンボボックスより選択して取得された引数を設定することは不可能ということでしょうか？
無理やり文字列にしようとして""をつけるとパラメータを設定する画面が出てしまうので･･･

DoCmd.OpenForm stDocNameでも同じようなことになってしまいました。

ですので、今度はクエリを使ってやろうかと考えてるのですが、これでもまた抽出条件を設定するところでわからなくなってしまいました。

抽出条件をクエリにし、そのクエリでテーブルを作成するようにし、それをフォームＡで開くようにしました。。。が、クエリの抽出条件の指定がおかしいらしく、うまく抽出してくれません。フォームＢのコンボボックスから選んだ値(ID)をクエリで使うことはできないのでしょうか？
ちなみに、現在の抽出条件は↓こうなってます。

[Forms]![フォームＢ]![ID検索用コンボ]
(クエリでは、IDごとの最新日付レコードを抽出し、更にコンボボックスに選択されたIDとイコールのものを抽出しようとしています)

よろしくお願いします。

[10] mixiユーザー 02月27日 14:19

ありがとうございます。
上記を元に、
--------------------------------------------------------------------
stWhere = "ID=" & Me!ID検索用コンボ.Column(0)
stWhere = stWhere & " AND [日付]=#" & Me!ID検索用コンボ.Column(1) & "#"
stDocName = "ID発行変更申請一覧"
DoCmd.OpenForm stDocName, , , stWhere
--------------------------------------------------------------------
･･･というようにしてみました。
しかし、今度は「OpenFormアクションの実行はキャンセルされました」となってしまいました。
上記の部分に間違いがあるのでしょうか？
今、もう一度全体的に見直しているのですが･･･

[11] mixiユーザー 02月28日 01:09

ふむ・・・ここまで教えてもらって出来ないって・・・・
おっと最近　愚痴っぽくなっていけないね　ここは優しくアドバイスでもｗ

いきなりコンボボックスの値を条件文として編集するんじゃなくて
自分で条件文を手で書いてみて正しく実行されるか確認する

例）　stWhere = "ID = 1 AND 日付 = #2006/01/01#"

正しく実行されるならば　stWhere を編集する段階の間違い
（ブレイクポイントをしてどのような編集結果になっているか確認する）
実行されないならば　考えている条件文自体が間違い
（何処が違っているのかよく考えてみる）

追記つーかヒントかな？
1.コンボボックスの値を参照する時はIndexを指定した方が良い
2.条件を指定する際には確実に何処の何が何かと等しいという具合に書く事

Aというテーブルを元にした"F_A"というフォームを
F_Bというフォームのコンボボックスから選択した値により
条件を指定するサンプルを作成してみました

iIx = Me.IDコンボ.ListIndex
stWhere = "A.ID = " & Me!IDコンボ.Column(0, iIx)
stWhere = stWhere & " AND A.日付 = #" & Me!IDコンボ.Column(1, iIx) & "#"
stDocName = "F_A"
DoCmd.OpenForm stDocName, , , stWhere

さぁて理解できましたかね？

[12] mixiユーザー 02月28日 02:00

ぴょんさん、こんばんわ。

説明が足らなくてすみません。
でも皆さんが説明してくれたおかげで
完成しました？？？？

もしまだなら

「OpenFormアクションの実行はキャンセルされました」
は、下記のときにメッセージが表示された経験があります。

＜発生条件＞
抽出条件の書式が、
フィールドのデータ型と合っていないとき。
例）数値型なのに文字列で指定したりその逆だったり。
　　日付型なのに指定を間違えたり。

コンボボックスの２列目は
ダイン・クガさんが書いてるように
YYYY/MM/DD書式になっていると思ってＯＫですよね？

ウォッチ式などで確認しながらステップ実行して
Where句に指定している内容を確認してみてください。

[13] mixiユーザー 02月28日 10:14

ありがとうございます！！
やっと出来ました！
ダイン・クガさんのアドバイスの通り、ブレイクポイントをしてみたところ、WHERE句だけ除くと通ったので、WHERE句だけに集中して考えながらえいたさんのアドバイスを読み返して、気が付きました。
元のテーブルのIDが数値ではなく文字列になっていたので型が合わなくてエラーになっていました。
まさかこんなところで間違っているとは思わなかったので･･･
恥ずかしいです。。でもやっと解決したので良かったです。
本当にありがとうございました！！
これからもっとＡＣＣＥＳＳ勉強します！

[14] mixiユーザー 02月28日 20:38

解決してなによりですわ

>まさかこんなところで間違っているとは思わなかったので･･･

って先入観でプログラムを見ると深みにはまりますね
こんな時は隣に居る人でもひっつかまえて現象を順を追って
口頭で説明してみたりすると　ピンとくるもんです
（最初こう書いて、こう変えて、こう変えて、こうやって・・とね）

プログラマとは言葉を紡ぐ職です
（勝手に私がそう解釈してるだけですけどね^^;）
Programer　Pro=プロ gram=言葉 er が付いて　言葉を紡ぐプロ

頑張って下さいまし

[15] mixiユーザー 02月28日 22:42

http://mixi.jp/view_bbs.pl?id=4806644&comment_count=9&comm_id=43464

結果としてマルチポストになっており、
概算で…
4000人 * 3分 = 200h
1人/月あたりの費用を80万として換算すると
160h/月として100万ほどが無駄に…
…というのは冗談としてｗ

同様の意見交換を別コミュでも平行して行ってしまうので、非効率的になってしまいます。
マナー違反でもありますし、以後気をつけましょう。

ログインすると、みんなのコメントがもっと見れるよ