Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【12683】Re:「メモリが不足しています。」と出る...

まつこ - 15/1/7(水) 9:29 -


	引用なし

	パスワード

かるびの様
御回答ありがとうございました。

フォームに配置できるコントロール数に上限があったのですね。
記載していただいた対処法を行ってみましたが、事象は解決しませんでした。
上司と相談の上、新規DBにインポートすることになりました。

・ツリー全体表示


	【12682】Re:「メモリが不足しています。」と出る...

かるびの

- 15/1/6(火) 21:43 -


	引用なし

	パスワード

　何度かしか目にしたことがないエラーメッセージですので、
私も原因とか対処法とかが十分にわかっているわけではありません。

　可能性として考えられるのは、フォームに使えるコントロールの数が
制限を超えているということです。
　フォームに配置できるコントロールの上限は７５４とのことです。
　これを超えている可能性が考えられます。

　次に考えられるのは、フォームに使えるコントロールの数に関して、
削除したコントロールも数に入れられるらしいです。
　例えば、フォームに７５４個のコントロールを配置し、
その後、全てのコントロールを削除したら、
もうそのフォームにコントロールは配置できないらしいです。
　これに引っかかっている可能性が考えられます。
　なお、この情報源ですが、どこかの掲示板で見た記憶ですが、
元記事は探せませんでした。

　
　対処法ですが、まずは、フォームの作り直しですね。
　第１に、新規フォームを用意し、
第２に、従前のフォームのコントロールを全てコピーして、
第３に、新規フォームにペーストする
ということです。

　これでもうまくいかなければ、フォームのみならず、コントロールも作り直すということに
なると思います。

・ツリー全体表示


	【12681】「メモリが不足しています。」と出るエラ...

まつこ - 15/1/6(火) 10:38 -


	引用なし

	パスワード

OS：Win7(32bit)
Access：2000

フォームのコントロール(たとえばラベル)にイベントを追加しようとすると上記のエラーが発生しました。
特定のフォームやコントロールではなく、どれでも発生してしまいます。
利用可能な物理メモリは1.46GB、仮想メモリは3.89GBあります。
この情報だけでは判断できないかもしれませんが、他にどんな情報をあげれば解決に繋がるでしょうか？
よろしくお願いします。

・ツリー全体表示


	【12680】Re:一つの条件で複数検索

かるびの - 14/12/26(金) 0:41 -


	引用なし

	パスワード

>Me.Filter = strWhere = "コード１ = "　& Nz(検索コード.Value,0)
>この式でいいのか？
　この式ではだめですね。

　Filter プロパティには、条件式たる文字列、例えば、「数量 = 80」というような文字列を
設定します。
　例えば、
　　　Me.Filter = "数量 = 80"
のようにします。
　しかし、本件では、「検索コード」テキストボックスの値を使うため、
条件式はその都度違うものとなります。
　そのため、その都度、条件式たる文字列を生成する必要があります。
　ただ、正しい条件式を作れているかどうかは、コードを見ているだけではわかりません。
　とりわけエラーになった場合には、Filter プロパティに実際に渡された文字列を
確認したいところです。
　その確認を容易にするため、条件式たる文字列は、通常、変数に格納します。

　その確認の仕方ですが、
条件式を strWhere という String 型変数に格納するとします。
　この変数への格納を行った次の行に、
　　　Debug.Print strWhere
というコードを入れます。
　このコードをが実行されると、 strWhere 変数に格納されている文字列が
イミディエイトウィンドウに表示されます。
　その表示を見て、正しい条件式を作れているかどうかをチェックします。

>>　　　strWhere = strWhere & " AND "
>strWhereが２つ出てきて、さらにAND
>イメージよりも完全に混乱しました。
　strWhereが２つ出てくるというこのパターンですが、ＶＢＡではよく使います。
　このコードの意味は、strWhereに格納された文字列の後に「 AND 」という文字列を
くっつけるというこです。
　strWhereに「あいう」という文字列が格納されているとしたら、
上記コードを実行後は、strWhereに格納されている文字列は「あいう AND 」と変わります。

・ツリー全体表示


	【12679】Re:一つの条件で複数検索

kok - 14/12/25(木) 15:54 -


	引用なし

	パスワード

▼かるびのさん：

回答ありがとうございます。

>　　　?　"txtテストの値は" & Forms("Fテスト")!txtテスト.Value & "です。"
イミディエイトウィンドウで結果は出ました。

しかし、これを
>　　　strWhere = "コード１ = "　& Nz(検索コード.Value,0)
この式にどう変換し組み込むのか？

そして、Filterプロパティを使ったことがないので、
Me.Filter = strWhere = "コード１ = "　& Nz(検索コード.Value,0)
この式でいいのか？さらに、
>　　　strWhere = strWhere & " AND "
strWhereが２つ出てきて、さらにAND
イメージよりも完全に混乱しました。

親切に教えていただいているのですが、前回の回答から何を質問したらいいのかわからなくなってしまいました。

申し訳ないですが、完全に自分の中で迷宮に入ってしまいました。

・ツリー全体表示


	【12678】Re:一つの条件で複数検索

かるびの - 14/12/25(木) 0:09 -


	引用なし

	パスワード

>>　「検索コード」テキストボックスに15という値が入力されているとし、
>>strWhereがString型の変数だとすると、
>>　　　strWhere = "コード１ = "　& Nz(検索コード.Value,0)
>>というコードを実行すると、strWhereに「コード１ = 15」という文字列が格納されます。
>>　「Nz(検索コード.Value,0)」の部分をダブルコーテーションで囲われたものの外に出す
>>という点がポイントです。
>>
>>　strWhere の後に文字列をつなげたければ、上記のコードに続けて
>>　　　strWhere = strWhere & " AND "
>>というコードを実行すれば、strWhere には「コード１ = 15 AND 」という文字列が格納されます。

　文字で書くとごちゃごちゃしますが、実際に試してみるのが一番だと思います。

　まずテスト用のフォーム（Fテスト）を作り、ここにテキストボックス（txtテスト）を
配置します。
　Fテストのレコードソースを指定する必要はありません。
　txtテストのコントロールソースも指定しません。

　そして、Fテストを開き、txtテストに「28」と入力します。

　次に、ＶＢＥのウィンドウからメニューにおいて、表示→イミディエイトウィンドウを選択して、
イミディエイトウィンドウを表示させます。
　イミディエイトウィンドウに
　　　?　"txtテストの値は" & Forms("Fテスト")!txtテスト.Value & "です。"
と入力し、エンターキーを押してみてください。
　イミディエイトウィンドウの次の行に、この式の結果が表示されます。

　次にtxtテストの値を変えて、再び、
　　　?　"txtテストの値は" & Forms("Fテスト")!txtテスト.Value & "です。"　
と入力し、エンターキーを押してみてください。

　こんなところで、イメージをつかめないですかね。

・ツリー全体表示


	【12677】Re:一つの条件で複数検索

kok - 14/12/24(水) 9:52 -


	引用なし

	パスワード

▼かるびのさん：

回答ありがとうございます。

下記のように書いていただいたのですが、実際どう組み込んでいったらよいかわからない状態です。

>　「検索コード」テキストボックスに15という値が入力されているとし、
>strWhereがString型の変数だとすると、
>　　　strWhere = "コード１ = "　& Nz(検索コード.Value,0)
>というコードを実行すると、strWhereに「コード１ = 15」という文字列が格納されます。
>　「Nz(検索コード.Value,0)」の部分をダブルコーテーションで囲われたものの外に出す
>という点がポイントです。
>
>　strWhere の後に文字列をつなげたければ、上記のコードに続けて
>　　　strWhere = strWhere & " AND "
>というコードを実行すれば、strWhere には「コード１ = 15 AND 」という文字列が格納されます。

自分の勉強不足だという事はわかっていますので、理解するまでは時間がかかりそうなので保留させて下さい。

>　クエリのデザインビューで、マウスを右クリックをし、「テーブルの表示」を選択します。
>「テーブルの表示」フォームから「T事業所コード1」を２回追加します。
>　そうすると、デザインビューに「T事業所コード1」「T事業所コード1_1」「T事業所コード1_2」
>というテーブルが表示されるはずです。
>　あとは、これらを使ってクエリを作ります。
>
>　「T事業所コード1_1」「T事業所コード1_2」の実体は、「T事業所コード1」です。
>一つのテーブルを、名前を変えて使い回すわけです。
>
>　とはいえ、コード１～３を一つのフィールドにしてしまえば、T事業所コード1～3の問題は
>出てこないことになるんですけどね。
　　　　　
上記は以前やってみたのですが、クエリ表示をしたら何も出てこなかったんです。
何かやり方を間違えたのかもしれませんので、後日チャレンジしてみます。

・ツリー全体表示


	【12676】Re:Access初心者です。

かるびの - 14/12/22(月) 0:52 -


	引用なし

	パスワード

　そちらの状況が全くわかりません。
　テーブル構成（各テーブルについて、主キーフィールド、主なフィールド名、そのデータ型）を
示してみてください。　

>同一会員番号の購入回数1と2を出して、2を持ってる会員番号群と、持ってない群を集計して2を
>持ってるときはその期間を算出してまた集計したいのです。
　「その期間」とは、何の期間ですか。
　「その期間を算出してまた集計したい」とは、どういう集計がしたいのですか。
つまり、合計、平均、最小、最大、カウント、標準偏差、分散のどれですか。
また、その集計は、フォームで行うんですか、クエリで行うんですか。

>IIf関数を使って会員IDの購入回数=1の注文日時を返す、購入回数=2の注文日時を返すという2
>種類の関数もほしい(1種類)です。
　どういうことをしたいのかよくわかりません。
　仮に、購入回数が１回だけの会員については、その１回の注文日時を、
購入回数が２回の会員については、２回目の注文日時を得たいというならば、
集計クエリをいくつか結合させたクエリを作れば済むことです。
　それを関数で処理したいというのは、エクセルの発想であって、
アクセスの発想ではありません。

・ツリー全体表示


	【12675】Re:一つの条件で複数検索

かるびの - 14/12/21(日) 1:25 -


	引用なし

	パスワード

>フォームで使用する部分のみ書いてみましたが、足りなかったみたいですね。
　「コード１～３」の各テキストボックスの名前は書いてありましたが、
それらのフィールド名が書いてなかったので、お尋ねしたんです。

>>>>>顧客名　　　　　コード１　　コード２　　コード３
>>>>>A社　　　　　11　　　　　12　　　　　　（ブランク）
>>>>>B社　　　　　12　　　　　14　　　　　15
>>>>>C社　　　　　13　　　　　14　　　　　15
>>>>>
>>>>>というデータがあり、検索コードに12を入れボタンを押すと、
>>>>>
>>>>>顧客名　　　　　コード１　　コード２　　コード３
>>>>>A社　　　　　11　　　　　12　　　　　　（ブランク）
>>>>>B社　　　　　12　　　　　14　　　　15
>>>>>
>>>>>と、C社が抽出されないようなVBAがありましたら教えていただけないでしょうか。

　前回（12672）でも触れましたが、
フォームの Filter プロパティと FilterOn プロパティを使います。

　上例で言えば、
　　　「コード１」フィールドが12であるか、
　　　又は「コード２」フィールドが12であるか、
　　　又は「コード３」フィールドが12である
レコードを抽出することになります。
　これを条件式に表すと
　　　コード１ = 12 OR コード２ = 12 OR コード３ = 12
となります。
　この文字列を Filter プロパティに代入します。

　上記の条件式の「12」という値ですが、「検索コード」テキストボックスの値を使うわけですよね。
　なので、「検索コード」テキストボックスを使って、
上記条件式のような文字列を生成する必要があります。　　　

　「検索コード」テキストボックスに15という値が入力されているとし、
strWhereがString型の変数だとすると、
　　　strWhere = "コード１ = "　& Nz(検索コード.Value,0)
というコードを実行すると、strWhereに「コード１ = 15」という文字列が格納されます。
　「Nz(検索コード.Value,0)」の部分をダブルコーテーションで囲われたものの外に出す
という点がポイントです。

　strWhere の後に文字列をつなげたければ、上記のコードに続けて
　　　strWhere = strWhere & " AND "
というコードを実行すれば、strWhere には「コード１ = 15 AND 」という文字列が格納されます。

　それから、半角スペースも重要な意味を持っています。
半角スペースを省いてしまったり、
半角スペースを入れるべきところに全角スペースを入れたりすると、
エラーになります。

　Filter プロパティに値を設定したら、FilterOn プロパティに True を設定しないと、
フィルタは効きません。

　以下は蛇足です。
　「T顧客名」の作り方が間違っているように思います。
　というのは、「コード１」「コード２」「コード３」というフィールド名だからです。

　エクセルの場合、ワークシートにおける列の項目名として「氏名１」「氏名２」「氏名３」
というようにすることが少なくありません。
　しかし、データベースの場合、そのようなフィールド名を付けた場合、テーブル設計として
誤っていることが少なくありません。
　ことに、「氏名２」の値と「氏名３」の値とが入れ替わっても、大した違いはない
というのであれば、テーブル設計は確実に誤りです。

　この場合、コード１～３の各フィールドをT顧客名から外し、
新たに「Tコード」というテーブルを作ります。
フィールドは、
　　コードID　長整数型又はオートナンバー　（主キー）
　　顧客番号　テキスト型
　　コード番　数値型　　（「コード２」の２を格納する。このフィールドはなくてもよい）
　　コード　数値型
となると思います。
　T顧客とは、顧客番号で結合させます。

　なぜこういうテーブル構成にするのかというと、OR検索は、AND検索に比べて遅いからです。
　コード１～３を一つのフィールドにしてしまえば、OR検索をしなくて済むので、
迅速な処理ができるようになります。
　つまり、処理方法や計算方法に合わせてテーブルを作るわけです。
　なお、ここがアクセスとエクセルの違いの一つです。
　エクセルでは、まず表を作り、表に合わせて処理方法や計算方法を考えるのに対し、
アクセスでは、処理方法や計算方法に合わせてテーブルを作ります。

　それから、T事業所コード1～3の各テーブルですが、格納されているデータが３テーブルとも
同じなのではないですか。
　もしそうであれば、T事業所コード2及び3の各テーブルは不要だと思います。
というより、T事業所コード2及び3みたいなテーブルは作ってはいけません。
同じデータを複数のところに格納することは、データベースでは御法度です（一事実一箇所の原則）。

　では、どう対応するかですが、
　クエリのデザインビューで、マウスを右クリックをし、「テーブルの表示」を選択します。
「テーブルの表示」フォームから「T事業所コード1」を２回追加します。
　そうすると、デザインビューに「T事業所コード1」「T事業所コード1_1」「T事業所コード1_2」
というテーブルが表示されるはずです。
　あとは、これらを使ってクエリを作ります。

　「T事業所コード1_1」「T事業所コード1_2」の実体は、「T事業所コード1」です。
一つのテーブルを、名前を変えて使い回すわけです。

　とはいえ、コード１～３を一つのフィールドにしてしまえば、T事業所コード1～3の問題は
出てこないことになるんですけどね。

・ツリー全体表示


	【12674】Re:一つの条件で複数検索

kok - 14/12/20(土) 10:20 -


	引用なし

	パスワード

▼かるびのさん：

>>>　レコードソースにはどんなフィールドがありますか。
>　これの答えがないですね。
>　質問の仕方を変えると、Q顧客名１にはどんなフィールドがありますかということです。

フォームで使用する部分のみ書いてみましたが、足りなかったみたいですね。
ごちゃごちゃして見づらいかもしれませんが、Q顧客名1の中身を下記で纏めました。

フィールド名　―　テーブル名　―　フィールド名に関連するデータ型

顧客番号　―　T顧客名　―　テキスト型
顧客名　―　T顧客名　―　テキスト型
部署名　―　T顧客名　―　テキスト型
役職名　―　T顧客名　―　テキスト型
氏名　―　T顧客名　―　テキスト型
敬称　―　T顧客名　―　テキスト型
〒１　―　T顧客名　―　テキスト型
〒２　―　T顧客名　―　テキスト型
住所１　―　T顧客名　―　テキスト型
住所２　―　T顧客名　―　テキスト型
TEL　―　T顧客名　―　テキスト型
FAX　―　T顧客名　―　テキスト型
フリガナ　―　T顧客名　―　テキスト型
コード１　―　T顧客名　―　数値型
事業所等　―　T事業所コード1　―　テキスト型
コード２　―　T顧客名　―　数値型
事業所等　―　T事業所コード2　―　テキスト型
コード３　―　T顧客名　―　数値型
事業所等　―　T事業所コード3　―　テキスト型

>>>　コード１、コード２、コード３はテキストボックスだと思いますが、
>>>それぞれのコントロールソースは何ですか。
>　これについても、答えがないですね。
>　それぞれのテキストボックスについて、
>プロパティシートの「データ」タブの「コントロールソース」には、何が設定されていますか
>ということです。

前回フィール名、コントロールソース共同名のテキストボックスと書いたのですが、先程と同じように下記に纏めました。

テキストボックス名　―　コントロールソース　―　関連するデータ型

コード１　―　コード１　―　数値型
コード２　―　コード２　―　数値型
コード２　―　コード２　―　数値型

質問箇所だけ回答してみました。
これで大丈夫でしょうか？

・ツリー全体表示


	【12673】Access初心者です。

紗栄子 - 14/12/20(土) 0:28 -


	引用なし

	パスワード

Access初心者です。

同一会員番号の購入回数1と2を出して、2を持ってる会員番号群と、持ってない群を集計して2を持ってるときはその期間を算出してまた集計したいのです。1と2は列が同じだから、どんな関数が良いのやら分かりますか？

IIf関数を使って会員IDの購入回数=1の注文日時を返す、購入回数=2の注文日時を返すという2種類の関数もほしい(1種類)です。

そして。その横にDateDiffで期間を出そうかと思っています。

どうかご指導くださいませ。

よろしくお願いします。

・ツリー全体表示


	【12672】Re:一つの条件で複数検索

かるびの - 14/12/20(土) 0:10 -


	引用なし

	パスワード

　いろいろな掲示板でいろいろな人の質問を見ていて思うんですが、
フォームとテーブルが全く別個のものであるというのを意識している人が
少ないんですよね。
　よく見かけるのが、フィールドとテキストボックスを混同しているものです。
「フォームに××フィールドを配置する」など言ってみたり、
「△△テキストボックスのデータ型は日付型だ」などという表現を
よく見かけますが、いずれも間違いです。
　フィールドはテーブル又はクエリの要素であり、
フォームにフィールドという概念が入り込む余地はありません。
　またテキストボックスにデータ型はありません。
　上記の例について正確な言い回しをすれば、
「フォームに、××フィールドをコントロールソースとするテキストボックス配置する」
「△△テキストボックスのコントロールソースたる▲▲フィールドのデータ型は日付型だ」
となります。
　確かに、ウィザードでフォームを作ると、
テキストボックス名はフィールド名と同じになるので、両者を混同することはやむを得ない
とは思いますが、テキストボックス　イコール　フィールドだと思っていると、
どこかで行き詰まると思います。
　なので、少々厳しめにレコードソースやらコントロールソースやらを聞いてみた次第です。

　少し脱線しますが、テーブル（クエリ）とフォーム、
あるいはフィールドとテキストボックスの関係ですが、
テーブル（クエリ）とフォームを結び付けるのが「レコードソース」プロパティです。
レコードソースにテーブルを指定してやることで、
当該テーブルのデータをフォームで表示できるようになります。
　フィールドとテキストボックスを結び付けるのが「コントロールソース」プロパティです。
レコードソースたるテーブル（クエリ）のフィールドをコントロールソースに指定してやることで、
テキストボックスに当該フィールドの値を表示できるようになります。

　さて、本題です。
>>　レコードソースにはどんなフィールドがありますか。
　これの答えがないですね。
　質問の仕方を変えると、Q顧客名１にはどんなフィールドがありますかということです。

>>　コード１、コード２、コード３はテキストボックスだと思いますが、
>>それぞれのコントロールソースは何ですか。
　これについても、答えがないですね。
　それぞれのテキストボックスについて、
プロパティシートの「データ」タブの「コントロールソース」には、何が設定されていますか
ということです。

　今回のレスは、ここで終わりにしてもいいんですが、折角コードを示してくれたので、
もう少し先まで進めたいと思います。

>　　DoCmd.ApplyFilter "", "[Q顧客名1]![顧客番号] = [Forms]![F顧客一覧]![顧客番号入力]"
　ApplyFilterって使ったことがないのでわからないのですが、
ApplyFilterは、例えば、クエリをデータシートビューで開いているときに、
メニューからレコード、フィルタと選択して（ちなみに当方はアクセス２００３です）
行う動作をマクロで行うものだと思います。
　この場合、データシートビューの表示上だけでレコードを絞り込んでいるに過ぎず、
クエリ自体では何らの絞り込みもされていません。
　だから、ApplyFilterを使っても、フォームでのレコードの絞り込みはできないと思います。

　フォームでレコードの絞り込みを行うには、通常、
フォームの Filter プロパティと FilterOn プロパティを使います。

　Filter プロパティでは、条件式を文字列として指定する必要があります。
条件式の基本形は、「フィールド名＝値」です。
　フィールドが数値型の場合は、値は何も囲いません。例えば、「数量 = 123」です。
　フィールドがテキスト型の場合は、ダブルコーテーションで囲います。
例えば、「都道府県 = "青森県"」です。
ＶＢＡのコード中では、文字列であることを示すダブルコーテーションと区別するために
シングルコーテーションで値を囲います。
例えば、「strWhere = "市町村 = '長野市'"」です。
　フィールドが日付時刻型の場合は、シャープで囲います。
例えば、「受注日 = #2014/12/19#」です。
　条件式を２つ以上指定したい場合は、条件式を AND 又は OR でつなげた文字列にします。
例えば「数量 = 234 AND 都道府県 = "岩手県"」です。

・ツリー全体表示


	【12671】Re:一つの条件で複数検索

kok - 14/12/19(金) 11:49 -


	引用なし

	パスワード

▼かるびのさん：

すみません。補足させていただきます。

>　フォームのレコードソースは何ですか。

「Q顧客名1」です。

>　レコードソースにはどんなフィールドがありますか。
>　それらフィールドのデータ型は何ですか。
>　コード１、コード２、コード３はテキストボックスだと思いますが、
>それぞれのコントロールソースは何ですか。

フォームヘッダーに、非連結のテキストボックスの「顧客番号入力」、「顧客名入力」、「コード入力」

ボタンの「検索ボタン」。
検索ボタンには下記のVBAを組んでいます。

Private Sub 検索ボタン_Click()
　　If Forms!F顧客一覧!顧客番号入力 <> "" Then
　　DoCmd.ApplyFilter "", "[Q顧客名1]![顧客番号] = [Forms]![F顧客一覧]![顧客番号入力]"
　　ElseIf Forms!F顧客一覧!顧客名入力 <> "" Then
　　DoCmd.ApplyFilter "", "[Q顧客名1]![顧客名] like '*" & [Forms]![F顧客一覧]![顧客名入力] & "*'"
　　End If
End Sub

実際この検索ボタンの中にコード入力の検索も組み込みたいと考えています。

詳細には、フィールド名、コントロールソース共同名のテキストボックス、「顧客番号」、「コード１」、「コード２」、「コード３」があり、
「顧客番号」、「顧客名」がテキスト型
「コード１」、「コード２」、「コード３」が数値型です。

この説明で大丈夫でしょうか？
お手数掛けすみません。

・ツリー全体表示


	【12670】Re:一つの条件で複数検索

かるびの - 14/12/17(水) 23:19 -


	引用なし

	パスワード

　フォームのレコードソースは何ですか。
　レコードソースにはどんなフィールドがありますか。
　それらフィールドのデータ型は何ですか。
　コード１、コード２、コード３はテキストボックスだと思いますが、
それぞれのコントロールソースは何ですか。

　フォームの状況だけを説明されても、そちらの状況がさっぱりわかりません。
テーブルの状況も説明してもらわないと。

・ツリー全体表示


	【12669】一つの条件で複数検索

kok - 14/12/17(水) 14:37 -


	引用なし

	パスワード

詳細の中にコード１、コード２、コード３とういうデータが入っているテキストボックスがあります。

ヘッダー部に検索用の検索コードというテキストボックスを作成し、そこにコードを入れ、コード１、コード２、コード３のいずれか完全一致するものをボタンを押すと抽出する仕組みを作りたいと考えています。

例として、

顧客名　　　　　コード１　　コード２　　コード３
A社　　　　　11　　　　　12　　　　　　（ブランク）
B社　　　　　12　　　　　14　　　　　15
C社　　　　　13　　　　　14　　　　　15

というデータがあり、検索コードに12を入れボタンを押すと、

顧客名　　　　　コード１　　コード２　　コード３
A社　　　　　11　　　　　12　　　　　　（ブランク）
B社　　　　　12　　　　　14　　　　15

と、C社が抽出されないようなVBAがありましたら教えていただけないでしょうか。

よろしくお願いします。

・ツリー全体表示


	【12668】Re:複数のクエリを実行です

[okamoto] - 14/12/10(水) 9:52 -


	引用なし

	パスワード

かるびの様
ありがとうございます

中身を確認して、改めましてお願いします

・ツリー全体表示


	【12667】Re:複数のクエリを実行です

かるびの - 14/12/10(水) 0:09 -


	引用なし

	パスワード

>DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
>で止まってしまいます。
　簡単なサンプルを作成して試してみましたが、コードが止まることはありませんでした。

　クエリが間違っている可能性があります。
　ナビゲーションウィンドウから「DATE1」クエリを開けますか。

　ふと、気が付いたんですが、コードが止まるのは、
>DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
ではなく、
>DoCmd.OpenQuery "DATE2", acViewNormal, acEdit
の方なのではないですか。
　DATE2は、テーブル作成クエリとのことですが、
新たに作成するテーブルの名前が既存のテーブルと同じ名前であれば、
テーブル作成クエリを実行すると、エラーになるはずです
（試してはいませんが）。

・ツリー全体表示


	【12666】Re:複数のクエリを実行です

[okamoto] - 14/12/9(火) 13:53 -


	引用なし

	パスワード

かるびの様
お名前間違えました。
すいません

・ツリー全体表示


	【12665】Re:複数のクエリを実行です

[okamoto] - 14/12/9(火) 13:49 -


	引用なし

	パスワード

元記事様申し訳ありません
vbaに変換して再度説明します。
ボタンですが間違えて説明しました。
textbox1です。textbox1に数値を記入して、データの
中から必要なデータを取り出して、フォームに表示することです。
Private Sub textbox1_AfterUpdate()
On Error GoTo mototyouzitukou_Err
DoCmd.SetWarnings False
DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
>ユニオンクエリで作成したデータで、最初の必要なデータです。
>コード = forms!siryou!textbox1をユニオンクエリに記述しています
DoCmd.OpenQuery "DATE2", acViewNormal, acEdit
>DATE1を、テーブルに表示。
mototyoukobetu
>そのテーブル(資料)で、テキスト型で表示されたフィールドを
>ナンバーズに変更する標準モジュールです。
DoCmd.OpenQuery "元帳kobetu", acViewNormal, acEdit
>資料を再度ユニオンクエリで追加修正してデターベースを表示。
me.Requery
mototyouzitukou_Err:
End Sub

上記データベースを元に作成したフォームに表示するです。
ただ、このコードですが、
DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
で止まってしまいます。
どうかお願いします

・ツリー全体表示


	【12664】Re:複数のクエリを実行です

かるびの - 14/12/9(火) 0:22 -


	引用なし

	パスワード

　何をしたいのかよくわかりません。

>そのdate1を「テーブル作成クエリ」で作成したクエリ(名前DATE2)
>を、テーブル(名前、資料)に表示します。
　これがわかりません。「を」が２つ重なっているため、「資料」テーブルに表示されるのが、
DATE1なのか、DATE2なのかわかりません。

　おそらく、
　　　「DATE1」クエリからテーブル作成クエリでテーブル（T1）を作成し、
　　　「T1」テーブルを元にして「DATE2」クエリを作成し、
　　　「DATE2」クエリをテーブル作成クエリによりテーブル化して「資料」テーブルを作り、
　　　「資料」テーブルと何らかのテーブル又はクエリとをくっつけるユニオンクエリを作る
いうことではないかと思うのですが、これで合っているんでしょうか。

　それから、ちょっと脱線しますが、「テーブルに表示」という部分についてです。
　テーブルは、レコードを表示するためのものではありません。レコードを格納するためのものです。
　レコードを表示するためのオブジェクトはフォームです。
　なので、レコードを表示するのに、テーブルを使うのというのは、おかしいです。

>そのデータベースからフォーム(表)を作成
　「データベース」という言葉をどのような意味で使っているのでしょうか。
　言い換えると、そのフォームのレコードソースは何になるんでしょうか。

>ボタン１をクリックしたらデータベースを表示したいのですが。
　「データベース」という言葉をどのような意味で使っていますか。
　「データベース」という言葉には広狭の意味がありますが、
テーブルの集まりというのが、最も狭い意味だと思います。
　アクセスの場合、MDBファイル又はACCDBファイルのこと、
つまり、テーブル、クエリ、フォーム、レポート、モジュールなどのセットを
データベースと呼ぶことがあります。
　「データベースを表示したいのですが」とのことですが、何を表示したいのでしょうか。

　上記の点のほか、全体の構成、つまり、
テーブル構成（テーブル名、主なフィールド名、フィールドのデータ型）、
クエリ構成（クエリ名、当該クエリの種類（選択クエリか、ユニオンクエリかなど）、
当該クエリで使うテーブル名、結合フィールド名）
を示した方がよいと思います。

>どのように、マクロ実行したらいいのでしょうか。
　なお、私は、マクロは使ったことがありません。ＶＢＡでやってしまいます。
　マクロの考え方はＶＢＡとそう変わらないと思っていますが、
マクロの書き方はよくわかりません。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free