If Not IsNull(Me.総合検索) Then
strFilter = strFilter & " and " & BuildCriteria("[質問]＆[回
答]&[種別]" , dbtext,
"(＊" & Replace (StrConv(Me.総合検索, vbwide), " ", "＊ OR ＊") &
"＊)")
End If
Dim i As Long
i = 2
Do Until Cells(i, 1) = ""
’下のSQLがおかしかったので修正
strSQL = "UPDATE MT_社員 SET 身長=" & Cells(i, 3) & " WHERE ID=" & Cells(i, 1).Value
adoCn.Execute strSQL 'SQLを実行 1行ずつ実行する必要あり
i = i + 1 '次の行に進める これがないと無限ループ
Loop
adoCn.Close
Set adoCn = Nothing
End Sub
SELECT * FROM テーブル1
WHERE 部署 IN
(
SELECT 部署 FROM テーブル1
GROUP BY 部署
HAVING Sum( IIf( 順位 Between 1 And 7 AND フラグ Is Not Null, 1, 0 ) ) > 0
AND Sum( IIf( 順位 > 7 AND フラグ Is Not Null, 1, 0 ) ) = 0
);
ちょっとすぐにエラーを再現できませんでした。念のため、もう一度、下記のようにやってみて下さい。
まず、列の挿入で新規列を作り、フィールドのところで、右クリック、ビルドを選択して、式ビルダーを出して下さい。OKボタンの左に、式を入力する場所があると思うので、IIf([B] Is Not Null And [C] Is Not Null,[C],[D])を入れてOKボタンを押します。すると、式1: IIf([B] Is Not Null And [C] Is Not Null,[C],[D])と自動的に名前が付くので、この段階でクエリを実行してエラーが出るか確認して教えて下さい。
ご丁寧にありがとうございます。
早速フィールドのところに入力してみたのですが、
『クエリ式 'テーブル名.[式1:IIf([B] Is Not Null And [C] Is Not Null,[C],[D])]の構文エラー：カンマがありません。』
というエラーが出てしまいます…
このエラーの対処などはご存知でしょうか？
本当に初心者で申し訳ございません…
下記、どうでしょうか？
Switch関数 - もう一度学ぶMS-Access
早速のご教示をいただきましてありがとうございました。
私ではコードの修正が難しかったため、詳しい方にもご協力いただきまして、
「or」対象の「Case 1」のコードを以下で確認してみたいと思います
。もし、お気づきの点などございましたらご指摘いただけましたら幸いです。
ありがとうございました。
できました。
無限ループですね。
Accessのテーブルを更新する場合、レコードセットを利用する方法と、更新クエリを利用する方法があります。
rsという変数がレコードセットの意味だとしたら、上記の異なる方法の解説サイトを理解せずに適当にくっつけた感じのコードですね。
とりあえず下記でどうでしょうか。
あるいは、営業目標の高さを、従業員数に関係なく一定にしたいということなら、
日付と営業目標をメインレポートにして、従業員をサブレポートして埋め込めばいいでしょう。
レコードソースのフィールド構成等、詳細が不明なのですが、
とりあえず下記が参考になりませんか。
上記で分からない場合は、現状のレポートのレコードソースのフィールド構成、レポートのグループ化/並べ替えの設定をを提示してもらえますか。
ご提示いただいたコードでできました。
ありがとうございました。
( ８位以下が存在しないグループも含む )
両方の条件を満たしているグループを抽出したい
という解釈でいいでしょうか。
そうですね
「ACCESS レポート グループフッター」とかで検索すると画像付きで解説しているサイトが見つかるので探してみてください
ほぼ同じ質問があり解説がありました
https://zawazawa.jp/ms-access/topic/183
日付でグループをつくると
日付ヘッダーができますが、日付フッターがありません
デフォルトでは非表示で、表示させる方法があるのですか？
グループ化なしでご指摘の方法でできました
仕切り線についてですが、詳細の一番下に引いておくと、各レコードごとにでてしまします
最初の質問の画像のように、仕切り線を日付ごとに引くことはできないのでしょうか？
次回、クエリをSQLビューにして、表示されるSQL文をコピーしてここに貼り付けてもらえますか？
コンボボックスで起きているそのほかの不具合「苗字カナの内容（カタカナ）が表示される」「データがない」等は起きていないということでいいですか？
たとえば、「か」のボタンを押したと想定して
"[ア-オ]*"を"[カ-コ]*"に変えてみたり、さらに"[サ-ソ]*"に変えてみたり等、試してみてくださいこの、手で書き換えている操作を、フォーム上の値を使って自動で書き換えようというのが
の目的です。抽出条件を再度
Like [Forms]![基本情報1]![抽出用カナ]に設定して、今度はフォーム上の「抽出用カナ」テキストボックスに手入力で"[ア-オ]*"と入力してクエリを開いてみてください。抽出条件を手入力したとき（Like "[ア-オ]*"と入力したとき）と同じ内容が表示されてますか？クエリの元データにはどのようなデータ（テーブルorクエリ）を使っているんでしょうか？>> 15で説明していますがクエリのもとにしているデータに複数登録されていれば何度も出てきて当然になります。データベース運用から考えれば「同一人物の重複登録を許さないデータ（テーブル）」があるものと思います。きちんと指定できていますか？
>> 18
画像1の上部分、写ってませんが、クエリに使用しているテーブルが表示されるエリアがあると思います。どんなテーブルが表示されていますか？
コードはコピペしましょう。また、コードブロックを使うと読みやすくなります
フィルタのAND/ORには優先順位があります。次の二つでは結果が変わります
不具合の時の
StrFilterの内容をみて条件式が間違ってないか確認してみてくださいありがとうございます、できました。
大変勉強になりました。
書き換えてみました。クエリの結果は、漢字で、あ行ではありますが、
太田・岡田・安西・石川・伊藤・太田・岡田・安西・石川・伊藤・太田・岡田・安西・石川・伊藤・・・・というふうに、同じ方の名前が何度も(100回以上)繰り返されています。
データを残す必要がある（テーブルに値を書き込む）ならVBAで組むのが楽でしょう
クエリでやるなら
空きのない順位（DENSE_RANK）をつける（もう一度学ぶMS-Accessさん）
部署ごと、かつ、率の降順になるように集会クエリで加工済みのものをテーブルに書き出しています。そのテーブルに対してNoをふりたいと思っています。
ですので、部署が同じものの中で、AutoNo
の昇順で、率の降順に振りたいのですが、率が同率のものはダブらせいと思っています。
すみません、仕様の全てをお伝えしておらず、お聞きしたいエッセンスのみををお伝えするため、かなり簡略化しています。
念のため確認ですが、同じ部署、かつ、同じ率、かつ、同じNoの重複レコードを登録する必要性が本当にあるのでしょうか？例えば、新しいフィールドが追加されて、違いが後々生じる、という事でしょうか？
グループ内連番ですが、AutoNoの小さい順にNoを振るのでしょうか、それとも、率の大きな順にNoを振るのでしょうか？
こちらが正です。
8 CCCCC 50 1
9 CCCCC 20 2・・・同率
10 CCCCC 20 2・・・同率
11 CCCCC 10 3
すみません、ここは転記ミスです。
8 CCCCC 50 1
9 CCCCC 20 2
10 CCCCC 20 3・・・同率
11 CCCCC 10 3・・・同率
同率考慮はどういう意味ですか？同じ部署、かつ、同じ率の時は、同じNoになるとは限らないように見えますが。
すでにCLOSEしてしまっていますが、どうしても気になり、mayu様の標準SQLを試してみました。割と古いPCでも約4秒ですべての結果が表示されました。ご報告まで。
Database: SQL Server 2019 Developer Edition
OS: Windows10 Pro 64 bit
Processor: Intel(R) Core(TM) i5-3470 3.20GHz
Installed RAM: 16.0 GB
Storage drive: 500 GB SSD
式にNull値（未入力）があると結果もNullになるという仕様です。Nullを０に変換するNZ関数というものがありますのでそれを利用するといいでしょう。
SQLビューに切り替えて、SQL文をコピペ提示してもらうほうが早いですね。
現在、画面の左上のほうに、ファイル、ホーム、作成、、、デザインとある中で、デザインが選択されていると思います。その下の段に、表示、実行、選択、テーブルの作成、、、などボタンがあると思うので、表示ボタンの▼をクリックして、SQLビューを選択して下さい。
何度もありがとうございます。
指示していただいた通り実行したところ、エラーは出なかったのですが、[b]のところに値を入力するボックスが新たに表示され、意図したクエリは実行できませんでした…
まずはテーブル設計から検討しなおす必要がありそうです。
Accessはリレーショナルデータベースアプリですので、テーブル設計が「正規化」されている必要があります。
現状のままのテーブルではAccessでは使いものになりません。
正規化とは - もう一度学ぶMS-Access
アクセスデータベース設計の基本(正規化)
現状のままでいくならエクセルの方が適しているでしょう。
ちょっとすぐにエラーを再現できませんでした。念のため、もう一度、下記のようにやってみて下さい。
まず、列の挿入で新規列を作り、フィールドのところで、右クリック、ビルドを選択して、式ビルダーを出して下さい。OKボタンの左に、式を入力する場所があると思うので、IIf([B] Is Not Null And [C] Is Not Null,[C],[D])を入れてOKボタンを押します。すると、式1: IIf([B] Is Not Null And [C] Is Not Null,[C],[D])と自動的に名前が付くので、この段階でクエリを実行してエラーが出るか確認して教えて下さい。
そのクエリをSQLビューにして、表示されるSQL文をコピーしてここに貼り付けてもらえますか。
ご丁寧にありがとうございます。
早速フィールドのところに入力してみたのですが、
『クエリ式 'テーブル名.[式1:IIf([B] Is Not Null And [C] Is Not Null,[C],[D])]の構文エラー：カンマがありません。』
というエラーが出てしまいます…
このエラーの対処などはご存知でしょうか？
本当に初心者で申し訳ございません…
列の挿入で新規列を作り、フィールドのところに当該式を入力すると、どうでしょう？
補足しておくと、導出項目になるので、テーブルにデータとして残りません。
ご回答していただき大変ありがとうございます。
初心者なので初歩的な質問になってしまうのですが、
りんご様が提示してくださった式は、デザインビューのどこに入力すれば良いのでしょうか？
列の挿入で新規列を作り、フィールドのところに当該式を入力すべきでしょうか？それとも抽出条件の欄でしょうか？
よろしくお願いいたします。
式1:IIf([B] Is Not Null And [C] Is Not Null,[C],[D])
式1の部分を希望の名前にすると、どうでしょうか？
「Q従業員抽出」を直接開いて内容を確認してみましたか？
クエリでほしいリストがきちんと作れているか確認しましょう。フォームとの連携はひとまずおいといて抽出条件を変更して確認してみてください
これでクエリを開くと、「あ」のボタンを押したときにコンボボックスに表示したい内容になりますか？
プロパティシートの書式タブを選択したら、列数を2、列幅を例えば、1cm;1cmにしてみて下さい。
コンボボックスをクリックすると、プロパティシートの連結列が2のときは、(2列目があれば)2列目のデータが選択されたという事になるはず。
再度確認しました。
クエリの名前も、コンボボックスの集合値ソースも Q従業員抽出 にしています。
合っているはずなのですが・・・。
ただ、今回はカタカナの名前が繰り返されるのではなく、コンボボックスの中は空白になってしまいました。
回答ありがとうございます！
皆様のアドバイスを受けなんとかそれらしいものができました。
またよろしくお願いします！
ところで、どんなデータベース管理のために、どんなフィールドを用意して、ぢんなデータをカウントとしようとしているのでしょう？
具体的になると、横向き云々がAccessに不向きだから、縦向きに組み直しましょうとなるかもしれません。