ACCESS2000を使用しています

コンボボックスを使用していますが、 コンボボックスを使用する前と使用後の内容を比較したいのですが、どのイベントを使ったら良いのか教えてください。

 まず、コンボボックスより項目を取得して AAA とします。 さらに、コンボボックスから項目BBBを取得して AAABBB とします。 これはOKなのですが、 AAABBB から 後ろにつけた BBB を取って(コンボボックスより項目を取得しないで)、つまり 後ろのBBBをスペースクリアをして 再び AAA としたいのですが、うまくいきません。
変更前と変更後をどのようなタイミング(イベント)で判断すれば良いのかわからないのです。
 よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>変更前と変更後をどのようなタイミング(イベント)で判断すれば良いのかわからないのです。



コンボボックス1_AfterUpdate()
コンボボックス1_BeforeUpdate(Cancel As Integer)

ではイヤだということでしょうか?

もし、そうじゃなく上記イベントを知りたかっただけなら、何か簡単な解説書を1冊立ち読みする事をお勧めします。当然、購入すればなおよし。

この回答への補足

早速回答ありがとうございます。
説明が足りなかったようなので、補足します。

コンボボックスを使用しているのですが、コンボボックスから項目を選択して入力したのか、コンボボックスを使用しないで直接入力したのかを判別したいということです。
 そういう意味での変更前と変更後ということです。 
 Me!XXXXXX.column(0) がヌルかどうかで判断したのですが、うまくいきません。 よろしくお願いいたします

補足日時:2001/10/13 17:24
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

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

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qファイルbbb.fp5のスクリプトbbbからaaa.fp5のスクリプトcccを実行させたいが

ファイルメーカーProを、1カ月前から始めた
初心者です。
使用環境:WindowsXP、ファイルメーカーPro6

1.ファイルaaa.fp5(スクリプトaaaは、自動立上げに設定)を開く。
 スクリプトaaaの内容
  ・開く[bbb.fp5]
2.ファイルbbb.fp5(スクリプトbbbは、自動立上げに設定)を開く。
 スクリプトbbbの内容
  ・開く[bbb.fp5]
  ・全レコードを表示
  ・レコードのエクスポート
このあと、ファイルaaa.fp5のスクリプトcccを
実行させたいが、・レコードのエクスポートのあとに
何を選んで記述させたらよいか、分かりません。
教えて下さい。

Aベストアンサー

スクリプトbbbの続きに
 ・スクリプト実行[外部:スクリプトccc]

スクリプト実行のステップで下のオプション:指定の
ポップアップメニューの一番下に「外部スクリプト」の
指定があります。

Q【緊急】ADO で SELECT * INTO aaa From bbb で時間切れになる原因は?

SELECT * INTO 新規テーブル From テーブル元
で、新しいテーブルを作る時に時間切れになってしまいます。

自分が思いつくことは テーブル元 のテーブルを誰かが
つかんでいることぐらいなのですが、その様子はありません。

他に考えられる要因を至急教えて下さい!
SQLSERVER2000
WINDOWS2000

テーブル元の件数が関係ありますでしょうか?

Aベストアンサー

件数が関係するか調べるのであれば、

SELECT * INTO 新規テーブル From テーブル元
WHERE 1=2

のように、ありえない条件を記述して空のテーブルを作ってみれば確認できます。

件数が多いというのであれば、単純にタイムアウトしているだけでは?

排他制御でロックがかかっているということはないんですよね?

Qアクセス コンボボックスで全項目表示

アクセス2000で発注書をつくっています

発注書フォームのサブフォーム「発注書sub」内で
「大項目」「中項目」「小項目」「商品コード」の
4つのコンボボックスを設置し、
絞込み検索で商品明細を入力しています

新規レコードに移動するときに
「大項目」「中項目」「小項目」の値を空白にし、
4つめの「商品コード」コンボボックスで
全商品を表示させたいのですが

どう記述していいのかわかりません

現在は

Private Sub 商品コード_AfterUpdate()
Me.品番 = Me.商品コード.Column(1)
Me.商品名 = Me.商品コード.Column(2)
Me.色 = Me.商品コード.Column(3)
Me.サイズ = Me.商品コード.Column(4)
Me.商品単価 = Me.商品コード.Column(5)

End Sub

Private Sub 小項目_Enter()
Me!商品コード.Requery
End Sub

Private Sub 大項目_AfterUpdate()
Me!中項目.Requery
End Sub

Private Sub 中項目_AfterUpdate()
Me!小項目.Requery
End Sub

Private Sub 小項目_AfterUpdate()
Me!商品コード.Requery
End Sub

'フォーカスが移ると同時にドロップダウンさせる
Private Sub 大項目_GotFocus()
Me.大項目.Dropdown
End Sub
Private Sub 中項目_GotFocus()
Me.中項目.Dropdown
End Sub
Private Sub 小項目_GotFocus()
Me.小項目.Dropdown
End Sub

'テスト
Private Sub 摘要_LostFocus()
Me!大項目 = Null
Me!中項目 = Null
Me!小項目 = Null
Me!商品コード.Requery
End Sub
です。
発注書フォーム(単票フォーム)
レコードソース「発注書」
サブフォーム名「発注書sub」(帳票形式)
レコードソース「発注書明細」
リンク親フィールド子フィールドともに「発注書コード」
(他に表記が必要なのがあるかもしれませんが。。)

テーブル
●発注書明細
「明細コード」「発注書コード」「商品コード」「品番」「商品名」「色」「サイズ」「商品単価」「数量」「摘要」です
●商品マスタ
「商品コード」「品番」「種類」「大項目」「中項目」「色」「商品名」「サイズ」「商品単価」
です。

どなたか
ご指導のほどよろしくお願いいたします

アクセス2000で発注書をつくっています

発注書フォームのサブフォーム「発注書sub」内で
「大項目」「中項目」「小項目」「商品コード」の
4つのコンボボックスを設置し、
絞込み検索で商品明細を入力しています

新規レコードに移動するときに
「大項目」「中項目」「小項目」の値を空白にし、
4つめの「商品コード」コンボボックスで
全商品を表示させたいのですが

どう記述していいのかわかりません

現在は

Private Sub 商品コード_AfterUpdate()
Me.品番 = Me.商品コード.Column(1)
...続きを読む

Aベストアンサー

各コンボボックスの制御(絞込み)をどうやっているのか分かりませんが、
例えば、大項目が決まると一致した商品だけが「商品コード」のリストに
表れ、中項目が決まると更に絞り込まれるといった仕様なのですか?
それで、新規の場合、大項目=Nullなので、全商品がリストされるとか?
ポイントは「商品コード」の元になっているクエリですね。それの
SQLを変更するか、動的にSQLをプログラムでSQLを組み立てて、
「商品コード」のControlSourceを書き替えるなどが考えられます。

Qテキストボックスとコンボボックス

こんにちは、Accessのフォームにテキストボックスとコンボボックスを設置して、以下のような事ができないかと悩んでおります。

フォーム内には、テキストボックスとコンボボックスが設置してありまして、コンボボックス内にDB(会社名テーブル)から取得した全ての会社名が入っています。
しかし、そのレコード数が300件近くあるため、コンボボックス内から探し出すのに手間が掛かります。

そこで、コンボボックスの隣にテキストボックスを設置し、テキストボックス更新後に会社名テーブルの検索を行い、条件に合った会社名だけをコンボボックス内に入れることを考えているのですが、上手く行きません。

動作のイメージとしては下記のようになります。
(1)初期表示時はテキストボックス内に何も入力されていないので、全レコードがコンボボックス内に表示される。
(2)テキストボックスに「有限」と入力して、テキストボックスからフォーカスを移動させると、コンボボックス内に「有限」が会社名に含まれているレコードのみが入っている。
(3)テキストボックスを空白に戻すと、コンボボックス内には全レコードが表示

以上、どなたかご教授よろしくお願いします。

こんにちは、Accessのフォームにテキストボックスとコンボボックスを設置して、以下のような事ができないかと悩んでおります。

フォーム内には、テキストボックスとコンボボックスが設置してありまして、コンボボックス内にDB(会社名テーブル)から取得した全ての会社名が入っています。
しかし、そのレコード数が300件近くあるため、コンボボックス内から探し出すのに手間が掛かります。

そこで、コンボボックスの隣にテキストボックスを設置し、テキストボックス更新後に会社名テーブルの検索を行い...続きを読む

Aベストアンサー

コンボボックスの「値集合ソース」の会社名の抽出条件に
Like "*" & [Forms]![フォーム名]![テキストボックス名] & "*"
コンボボックスの「フォーカス取得時」イベントのイベントプロシージャに
Me.コンボボックス名.Requery
マクロなら
 アクション:再クエリ
 コントロール名:コンボボックス名

QACCESS コンボボックス 抽出 テキストボックスに表示

初めての質問を投稿させていただきます。l
ACCESSのVBAにて分からないことがあるので、
質問を投稿させていただきました。

以下のようなテーブルがあります。
名称:番号:管理番号:価格
cake|NO.1|C1|200
cake|NO.2|C2|200
chocolate|NO.1|C3|300
chocolate|NO.2|C4|300
chocolate|NO.3|C5|300
cookie|(空白)|C6|100
フォーム上に、コンボボックスが二つ設置されており
最初のコンボボックスでは、cake、chocolate、cookieを選択することができます。
また、二つ目のコンボボックスでは最初のコンボボックスで選択した名称に対する番号を選ぶことが出来ます。
------------------以下が疑問点です-------------------------
このフォームにはそれ以外にテキストボックスが設定されています。
名称と番号を設定した後に管理番号(重複なし)をテキストボックスに表示。
その後、管理番号を元に価格もテキストボックスに表示したいと考えておりますが、どのようなプログラムを組めばよろしいでしょうか?

初めての質問を投稿させていただきます。l
ACCESSのVBAにて分からないことがあるので、
質問を投稿させていただきました。

以下のようなテーブルがあります。
名称:番号:管理番号:価格
cake|NO.1|C1|200
cake|NO.2|C2|200
chocolate|NO.1|C3|300
chocolate|NO.2|C4|300
chocolate|NO.3|C5|300
cookie|(空白)|C6|100
フォーム上に、コンボボックスが二つ設置されており
最初のコンボボックスでは、cake、chocolate、cookieを選択することができます。
また、二つ目のコンボボックスでは最初のコン...続きを読む

Aベストアンサー

> なぜ、連結列列を2としたか、考えてみてください。

大事なところは2度言いましたよ。。。 は冗談ですが


> (ご質問から想定される私の中での考える動きは確認したつもりでおりますが、意図と違っていましたらごめんなさい)

何か日本語になっていないですね


(ご質問から、・・・私の中で想定した動きは確認したつもりでおりますが、意図と違っていましたらごめんなさい)

まだ日本語化になってないですかね。


人気Q&Aランキング

おすすめ情報