No.3ベストアンサー
- 回答日時:
こんにちは。
多分連結うんぬんは関係ないと思います。
とりあえず、このコードが書かれてあるプロシージャ([抽出]ボタンのクリックイベント?)の先頭にブレークポイントを設定して、1行実行してみて、どこでエラーが出るか確認して下さい。
また、会社名のところでエラーが出るようなら、その時のcbo会社名.Valueに入っている値を調べてみて下さい。
多分エラーになるとデバッグモードに入れるので、その時にイミディエントウィンドウに、
?Me!cbo会社名.Value
と入力してEnterを押すと、値が出力されます。
あと、文字列の比較は「'」で括らないといけませんが、cbo会社名.Valueの前後にちゃんとついてますか。
それと、フィールド名やコントロール名に空白やハイフンが入っている場合は、[]で括らなくてはいけません。
例)cboF 会社名.Value→[cboF 会社名].Value
とりあえず、気づいたのはこのくらいです。
では。
出来ました!!
maruru01さんのおっしゃった通り、1行ずつ実行して確認して見ました。
長い間、お付き合いして頂いてどうもありがとうございました。
これからもよろしくお願いします。
No.2
- 回答日時:
再びmaruru01です。
抽出方法としては、
1.まず、全件でフォームを開いておいて、Filterプロパティに抽出条件を設定し、FilterOnプロパティをTrueにする。
2.予めサブフォームを作成しておき、DoCmd.OpenFormの第3引数に抽出条件を設定して実行する。
3.抽出結果で一時的なテーブルを作成し、それをサブフォームのソースに設定して開く。
などがあります。
いずれにしろ、抽出条件の文字列を作成することに変わりはありません。
それで、抽出条件の書き方ですが、個人情報テーブルの各フィールドのデータ型で書き方が異なります。
まず、在職/退職はYes/No型とします。(在職がTrue)
condShoku = "[フィールド名] = " & chk在職.Value
次に、会社名はText型(またはMemo型)として、
condKaisha = "[フィールド名] = '" & cbo会社名.Value & "'"
そして、ふりがなは、前に回答しましたが、
condFurigana = "[フィールド名] LIKE '" & GetHiragana(ふりがなフレーム.Value) "*'"
で、これらをANDでつなぎます。
WhereCond = condShoku & " AND " & condKaisha & " AND " & condFurigana
このWhereCondを上記の抽出条件として設定して、[抽出]ボタンのクリックイベントで実行すればいいです。
詳細はヘルプなどを参照して下さい。
では。
この回答への補足
アドバイスをありがとうございました。
早速、上記の方法で試してみたのですが、「文字列の構文エラー」というエラーになってしまいました。
一つ一つの条件で実行したところ、会社名のところでこのエラーが出てしまいます。
個人情報のフォームの会社名のフィールドを会社情報のテーブルと連結してコンボボックスで入力出来るようにしてあるのですが、連結列を1にしてあるからでしょうか?
いろいろ考えてみたのですがどうしても分かりません。
No.1
- 回答日時:
こんにちは。
maruru01です。まず、お使いのデータベースの種類とバージョンを明記しましょう。
文面からAccessと思いますが、それならバージョンを。さらにOSも併記した方がいいでしょう。
それから、どううまくいかないのか、具体的に書かないと答えようがありません。
問題のあると思われる部分のコードなどを載せると回答し易いですよ。
また、「レコードを抽出」と行ってもどういう動作をさせたいのかも書いた方がいいでしょう。
例えば、抽出条件用のフォームがあるかどうか、抽出結果をサブフォームに表示するかどうかとか。
では。
この回答への補足
説明不足ですみませんでした。
WINDOWS 98
ACCESS 2000です。
抽出条件用のフォームは作成しましたが、追加、削除、修正が出来るのであればサブフォームで表示するのでもどちらでもかまいません。
個人情報のフォームに
txt個人名、txtふりがな、cbo会社名(会社情報と連結)、chk在職の有無を作成したものから
オプションボタンで在職か退職か選択
コンボボックスで会社名を選択
あ~わのトグルボタンでふりがなを選択
の抽出条件で抽出ボタンをクリックして抽出したいと考えています。
これでよろしいでしょうか?
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Access(アクセス) アクセス where句を使用して複数条件抽出をするには 2 2022/08/29 13:24
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【詳しい方教えて下さい】EXCEL条件に一致する値の複数抽出 9 2022/04/29 10:56
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Excel(エクセル) [条件付き書式]の設定順の変更は可能か? 4 2022/12/07 10:37
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2007でSQLの複数列副問い...
-
アクセスのフィルタ nullにつ...
-
Access クエリで連結する文字...
-
Accessのクエリーのゼロデータ...
-
テーブルの差分をとる結合
-
Accessクエリ特定文字列のカウ...
-
Accessクエリで特定の行を削除...
-
Accessのクエリで1フィールドの...
-
AccessからExcelへの条件付エク...
-
アクセスで任意の件数を抽出す...
-
Accessのデータの一部を削除す...
-
access2019 チェックボックスと...
-
SQLのSELECT文でのランダム抽出...
-
access(アクセス):パラメータ...
-
Accessクエリで年月フィールド...
-
「#エラー」の回避
-
Accessのレポート上のテキスト...
-
アクセスで入力したデータの順...
-
差込印刷で顧客別に複数行のデ...
-
accessのフィールドに10桁の数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessクエリで特定の行を削除...
-
Accessのクエリーのゼロデータ...
-
Access2007でSQLの複数列副問い...
-
アクセスのフィルタ nullにつ...
-
Accessのクエリで1フィールドの...
-
Accessのデータの一部を削除す...
-
access2019 チェックボックスと...
-
AccessからExcelへの条件付エク...
-
access(アクセス):パラメータ...
-
Access クエリで連結する文字...
-
Access:固定長文字列ファイル...
-
アクセスで任意の件数を抽出す...
-
accessで空白の時の抽出
-
Accessクエリ特定文字列のカウ...
-
Access Left$関数で全角半角が...
-
【Access】先月のデータを抽出...
-
テーブルの差分をとる結合
-
Accessクエリで年月フィールド...
-
ACCESS クエリ 抽出条件が多い場合
-
ActiveDirectoryのCSVエクスポート
おすすめ情報