Microsoft Access Club Access超初心者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

新着の投稿記事


タイトル最も良いbuytowe.com
記事No83368   [関連記事]
投稿日: 2018/11/29(Thu) 11:20
投稿者最も良いbuytowe.com
最も良いbuytowe.com

人気 ブランド時計スーパーコピー、定番スーパーコピー財布し、バッグ新作を見逃さない!

ブランドコピー価額での商品の提供を行い、スーパーコピー専門の販売ショップです。


エルメスコピー:http://www.buytowe.com/brand-Hermes/
ミュウミュウスーパーコピー:http://www.buytowe.com/brand-MiuMiu/
オーデマピゲスーパーコピー:http://www.buytowe.com/Audemarspiguet/
ボッテガ・ヴェネタスーパーコピー:http://www.buytowe.com/brand-Bottegaveneta/

タイトルルイヴィトンベルトコピー代引き
記事No83367   [関連記事]
投稿日: 2018/11/06(Tue) 12:58
投稿者ルイヴィトンベルトコピー代引き
参照先http://www.copyluxuries.com/category-39-b0.html
ルイヴィトンベルトコピー代引き

タイトルRe^2: クロス集計について
記事No83366   [関連記事]
投稿日: 2018/09/03(Mon) 21:38
投稿者hisa
お返事遅れまして申し訳ございません。

クロス集計では無理そうですね。
Djoin関数を使えば目的の動作になりそうですので理解を深めたいと思います。

ありがとうございました。

タイトルスーパーコピーurisale
記事No83365   [関連記事]
投稿日: 2018/08/31(Fri) 10:42
投稿者スーパーコピーurisale
スーパーコピーurisale


最高品質N品レプリカブランド。
http://www.urisale.com/iPhone_keesu/ iPhoneケースコピー
弊店誠実と信用の経営
http://www.urisale.com/brand-CopyAugustPiguet/ オーデマピゲコピー
品質第一、信用第一、ユーザー第一の原則を守り。
http://www.urisale.com/brand-CopyHublot/ ウブロコピー
日本で最高品質のスーパーコピー時計、ブランド時計コピー
http://www.urisale.com/brand-CopyGucci/ グッチコピー
セサリーなどの人気ブランドコピー 優良品も在庫があります。

タイトルRe: クロス集計について
記事No83364   [関連記事]
投稿日: 2018/08/29(Wed) 20:02
投稿者Moko
クロス集計では無理かもです。

YU-TANG さんの DJoin 関数 の出番かと思います。
https://web.archive.org/web/20150517052733/http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaDJoin.html

記事中にもありますが、レポートに表示するのが目的ならこちら。

グループ内のデータを横連結する
https://hatenachips.blog.fc2.com/blog-entry-12.html

クエリで DJoin 関数、ということならこんな感じ。

SELECT
受注番号,
First(DJoin("伝票番号","テーブル名","受注番号='" & [受注番号] & "'",100,"/",False,"伝票番号")) AS 伝票番号,
名字,
名前
FROM テーブル名
GROUP BY 受注番号, 名字, 名前;

[受注番号] がテキスト型の場合です。

タイトルRe^22: 条件指定での更新クエリ
記事No83363   [関連記事]
投稿日: 2018/08/29(Wed) 13:33
投稿者miwa
解決済: ON
ナバさま

> > Me.txtシフト@学籍番号.Value = Me.cmbアシスタント@選択.Column(1) '←コマンドボタンで選択したアシスタントの学籍番号を【tblシフト@一覧】に格納するようにしています。
>
> ここが原因かもしれません。
> Me.txtシフト@学籍番号に値をセットしてもこの時点ではレコードが保存されていないため
> テーブルに反映していないのではないでしょうか。
>
> 上記コードの次の行に
>
> DoCmd.RunCommand acCmdSaveRecord
>
> と入力して、レコードを確定させてください。

!!!!すごいです!うまく作動しました!ありがとうございます!
自分で悩んでいたら絶対分からなかった部分なので、本当に助かりました。


元々の質問からずれてきたのと、とりあえずこれで次に進めそうですので、一旦こちらは解決済みとさせていただきますね。

またご相談させてもらうことがあるかと思うのですが、機会がありましたら是非また色々お教えいただければ嬉しいです。

この度は本当にありがとうございました。

タイトルRe^21: 条件指定での更新クエリ
記事No83362   [関連記事]
投稿日: 2018/08/29(Wed) 10:55
投稿者ナバ
解決済: ON
おはようございます。

> Me.txtシフト@学籍番号.Value = Me.cmbアシスタント@選択.Column(1) '←コマンドボタンで選択したアシスタントの学籍番号を【tblシフト@一覧】に格納するようにしています。

ここが原因かもしれません。
Me.txtシフト@学籍番号に値をセットしてもこの時点ではレコードが保存されていないため
テーブルに反映していないのではないでしょうか。

上記コードの次の行に

DoCmd.RunCommand acCmdSaveRecord

と入力して、レコードを確定させてください。

タイトルRe^20: 条件指定での更新クエリ
記事No83361   [関連記事]
投稿日: 2018/08/29(Wed) 10:28
投稿者miwa
解決済: ON
ナバ様

おはようございます。この度は本当にお世話になっており、感謝申し上げます。

お教えいただいたように実行するクエリをまず一つから始めてみました。

> 1回目は
> DoCmd.OpenQuery "qryアシスタント別シフト一覧重複削除クエリ", acViewNormal, acEdit 
> の行以外をコメントにして結果を確認。

こちらを実行した結果、想定どおり、削除元となっている【tblアシスタント別シフト一覧】のデータは全て削除され、0件のレコードになりました。

> 2回目は
> DoCmd.OpenQuery "qryアシスタント別シフト一覧追加クエリ", acViewNormal, acEdit
> までを実行して結果を確認。

ここまでやってみましたところ、実行確認のメッセージが出て、「19件のレコードを追加します」と出ます。想定どおりなので、「はい」をクリックし実行。
その後、レコード追加先の【tblアシスタント別シフト一覧】を開いてみると、確かにレコードは追加されているのですが、コンボボックスで選択した新しいアシスタント情報が反映されておらず、選択する前のアシスタント情報が入っています。

【qryアシスタント別シフト一覧追加クエリ】は、【qryアシスタント別シフト一覧】(ユニオンクエリ)の全レコードを【tblアシスタント別シフト一覧】に追加するものになっているので、そのユニオンクエリを確認しましたら、そちらは新しいアシスタント情報が反映されています。

【qryアシスタント別シフト一覧】は新しい情報になっているので、削除クエリや追加クエリの構造がおかしいのか?と思って、再度手作業で実行してみましたら、こちらの場合は【tblアシスタント別シフト一覧】に新しい情報が反映されました。

つまり、各クエリ自体は正常に動作するようなのですが、これをコンボボックスの更新後処理で実行しようとすると、何らかの理由でレコードが更新されないようなのです。

頭の中が???だらけなのですが、引き続きどうかよろしくお願いします。

タイトルRe^19: 条件指定での更新クエリ
記事No83360   [関連記事]
投稿日: 2018/08/28(Tue) 16:40
投稿者ナバ
解決済: ON
さて、どうしてでしょうね。

> ただ、全て「はい」を選択し実行しているはずなのですが、テーブルには反映されていないです。
「テーブルに反映されていない」とはどういう状態ですか?
追加クエリーの状態までは進んでいるが、更新が反映しないとかですか?


連続して実行するクエリーを1つづつ増やしてみましょうか。

1回目は
DoCmd.OpenQuery "qryアシスタント別シフト一覧重複削除クエリ", acViewNormal, acEdit 
の行以外をコメントにして結果を確認。

2回目は
DoCmd.OpenQuery "qryアシスタント別シフト一覧追加クエリ", acViewNormal, acEdit
までを実行して結果を確認。
というように1つづつ増やしていってみてください。
何かわかるかもしれません。

タイトルRe^18: 条件指定での更新クエリ
記事No83359   [関連記事]
投稿日: 2018/08/28(Tue) 16:13
投稿者miwa
解決済: ON
ナバ様

> 行の先頭にシングルコーテーションを入力します。
> 緑色になりましたよね。
> これが「コメントにする」ということでその行が実行されなくなります。

本当にご丁寧にお教えいただいてありがとうございます。
緑色になり、クエリ実行の確認メッセージが出るようになりました。

改めてコンボボックスを更新しましたら、削除クエリ、追加クエリ、更新クエリ・・と
実行確認メッセージおよび「○○件のレコードが削除(追加)(更新)されます」というメッセージも表示され、○○件というのは想定している件数になっています。
ただ、全て「はい」を選択し実行しているはずなのですが、テーブルには反映されていないです。

再度手作業で各クエリを実行すると、こちらは反映されているようです。

・・何かお分かりになるでしょうか・・?

タイトルRe^17: 条件指定での更新クエリ
記事No83358   [関連記事]
投稿日: 2018/08/28(Tue) 14:43
投稿者ナバ
解決済: ON
> ”ここをコメントにする”というのが分からないのですが、具体的に教えていただけないでしょうか?

行の先頭にシングルコーテーションを入力します。
緑色になりましたよね。
これが「コメントにする」ということでその行が実行されなくなります。

タイトルRe^16: 条件指定での更新クエリ
記事No83357   [関連記事]
投稿日: 2018/08/28(Tue) 14:05
投稿者miwa
解決済: ON
ナバさま

> > このVBAの記述でコマンドボタン
> コンボボックス、ですね?

 コンボボックスの誤りでした!失礼しました。


> > DoCmd.SetWarnings False
> まずはここをコメントにして、メッセージがどう出ているか(想定通りの件数が処理されているか)を
> 確認してください。

”ここをコメントにする”というのが分からないのですが、具体的に教えていただけないでしょうか?

タイトルRe^15: 条件指定での更新クエリ
記事No83356   [関連記事]
投稿日: 2018/08/28(Tue) 13:02
投稿者ナバ
解決済: ON
こんにちは。

> このVBAの記述でコマンドボタン
コンボボックス、ですね?


> DoCmd.SetWarnings False
まずはここをコメントにして、メッセージがどう出ているか(想定通りの件数が処理されているか)を
確認してください。

タイトルRe^14: 条件指定での更新クエリ
記事No83355   [関連記事]
投稿日: 2018/08/28(Tue) 11:50
投稿者miwa
解決済: ON
ナバさま

お世話になっております。

> ユニオンクエリはOpenQueryする必要が無いです。
> 削ってください。

そうなのですね!無知で申し訳ありません・・。
確かに、一つ一つ手作業でクエリを作動してみましたら、ユニオンクエリの実行をスキップしても
しっかりと目的のデータは反映されていました。

ただ、まだ問題が解決できずでして・・

Private Sub cmbアシスタント@選択_AfterUpdate() 
Me.txtシフト@学籍番号.Value = Me.cmbアシスタント@選択.Column(1) '←コマンドボタンで選択したアシスタントの学籍番号を【tblシフト@一覧】に格納するようにしています。
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryアシスタント別シフト一覧重複削除クエリ", acViewNormal, acEdit ←削除クエリ
DoCmd.OpenQuery "qryアシスタント別シフト一覧追加クエリ", acViewNormal, acEdit ←追加クエリ
DoCmd.OpenQuery "qryシフト更新(空きコマ情報反映)", acViewNormal, acEdit ←更新クエリ
DoCmd.OpenQuery "qryシフト更新(月1)", acViewNormal, acEdit ←以下全て更新クエリ
(中略)※同様に月2〜金4が入ります。
DoCmd.OpenQuery "qryシフト更新(金5)", acViewNormal, acEdit

このVBAの記述でコマンドボタンを更新してみても、なぜかクエリが実行されないのです。
コマンドボタンを更新した後に各関連テーブルを見てみたところ、どうやら最初の削除クエリと追加クエリの段階で実行されていないようです。

数時間色々とやってみたのですが全く原因が分からず、もし何かお分かりになれば教えていただけないでしょうか。

タイトルRe^13: 条件指定での更新クエリ
記事No83354   [関連記事]
投稿日: 2018/08/27(Mon) 17:38
投稿者ナバ
解決済: ON
> ところが、コンボボックスでアシスタントを選択し更新しようとすると【qryアシスタント別シフト一覧】
> (←シフト@の情報とシフトAの情報を結合するユニオンクエリです)のクエリ実行時に、クエリの結果が
> 表示されてしまい、そこで更新が止まってしまいます。

ユニオンクエリはOpenQueryする必要が無いです。
削ってください。

ページの先頭へ 前ページへ戻る