Access VBA質問箱 IV

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

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


1 / 499 ページ 前へ→

【13220】差分追加と更新(フィールドごと)
質問  Faber_Sid  - 17/11/18(土) 10:30 -

引用なし
パスワード
   IDとフィールドAは一意
フィールドAの同じものは後のデータを優先するが
空白だったフィールドは上書きしないこんなこと
どうやったらできますか?
(下のテーブルは英単語をランダムに
 選んで打ちました。特に意味はありません。
 実際の表はもっと実用的。)
------------------------------------------テーブル1(入力)
ID フィールドA フィールドB フィールドC
1   sample   example   Whoops
2  validate    won't   seconds
3   example    like   dislike
------------------------------------------テーブル2(入力)
ID フィールドA フィールドB フィールドC
1   sample   example   Whoops
2  validate    want   Minute
3    takes    like   didn't
4   example          this
------------------------------------------テーブル3(出力)
ID フィールドA フィールドB フィールドC
1   sample   example   Whoops
2  validate    want   Minute
3    takes    like   didn't
4   example    like    this
・ツリー全体表示

【13219】Re:クエリのOR条件設定で件数が多い場合...
お礼  たけお E-MAIL  - 17/11/13(月) 8:54 -

引用なし
パスワード
   >早速のご回答をいただきありがとうございます。
>上手くいきました。
>もうこれでコピペをする時のうんざりがなくなり助かります。
>ありがとうございました。
・ツリー全体表示

【13218】Re:クエリのOR条件設定で件数が多い場合...
回答  たけお E-MAIL  - 17/11/13(月) 8:52 -

引用なし
パスワード
   ▼hatena さん:
>>1つ目のクエリは「商品コード」「お客様」の2つのフイールドをもったクエリで「商品コード」の抽出条件欄に「特定の商品コード」を入力して実行し「お客様」を抽出しています。
>
>このクエリの名前を「クエリ1」とします。
>
>>2つ目のクエリは「商品コード」「お客様」「品名」「数量」の4つのフイールドをもったクエリで「お客様」の抽出条件欄に、クエリ1で抽出したお客様名をOR条件でコピー貼り付けしています。
>>件数が少なければ問題ないのですが何分件数が50件、60件と多いので困っています。
>
>このクエリに上記の「クエリ1」を追加します。
>クエリに元からあるテーブルの「お客様」フィールドをドラッグして、クエリ1の「お客様」フィールドにドロップします。
>2つのフィールドが結合線で結ばれます。
>
>抽出条件欄には何も入力しません。
>
>これで、ご希望の結果になります。


早速のご回答をいただきありがとうございます。
上手くいきました。
もうこれでコピペをする時のうんざりがなくなり助かります。
ありがとうございました。
・ツリー全体表示

【13217】Re:クエリのOR条件設定で件数が多い場合...
回答  hatena  - 17/11/12(日) 22:49 -

引用なし
パスワード
   >1つ目のクエリは「商品コード」「お客様」の2つのフイールドをもったクエリで「商品コード」の抽出条件欄に「特定の商品コード」を入力して実行し「お客様」を抽出しています。

このクエリの名前を「クエリ1」とします。

>2つ目のクエリは「商品コード」「お客様」「品名」「数量」の4つのフイールドをもったクエリで「お客様」の抽出条件欄に、クエリ1で抽出したお客様名をOR条件でコピー貼り付けしています。
>件数が少なければ問題ないのですが何分件数が50件、60件と多いので困っています。

このクエリに上記の「クエリ1」を追加します。
クエリに元からあるテーブルの「お客様」フィールドをドラッグして、クエリ1の「お客様」フィールドにドロップします。
2つのフィールドが結合線で結ばれます。

抽出条件欄には何も入力しません。

これで、ご希望の結果になります。
・ツリー全体表示

【13216】クエリのOR条件設定で件数が多い場合の問...
質問  たけお E-MAIL  - 17/11/12(日) 17:26 -

引用なし
パスワード
   ある特定の商品コードの品を購入してくれたお客様を検索し、
そのお客様は他にどのような商品を購入してくれているのかのデータを抽出するために
クエリを2つ作成して対応しています。
1つ目のクエリは「商品コード」「お客様」の2つのフイールドをもったクエリで「商品コード」の抽出条件欄に「特定の商品コード」を入力して実行し「お客様」を抽出しています。
2つ目のクエリは「商品コード」「お客様」「品名」「数量」の4つのフイールドをもったクエリで「お客様」の抽出条件欄に、クエリ1で抽出したお客様名をOR条件でコピー貼り付けしています。
件数が少なければ問題ないのですが何分件数が50件、60件と多いので困っています。
何かうまい方法はないでしょうかと思い投稿させていただきました。
・ツリー全体表示

【13215】Re:処理中の表示ができないか?
お礼  みちのく一人旅 E-MAIL  - 17/11/1(水) 1:30 -

引用なし
パスワード
   亀マスター さん

無事解決いたしました。
ありがとうございました。
・ツリー全体表示

【13214】Re:処理中の表示ができないか?
回答  亀マスター  - 17/10/31(火) 18:28 -

引用なし
パスワード
   「処理中」と書いたフォームを用意して、それを呼び出すことで実現できます。

まず、「処理中」というテキストラベルだけ配置し、ポップアップ設定を
「はい」にしたフォーム(フォームやテキストのサイズは適当にして下さい)
を用意します。

そして、以下のような流れで呼び出せばいいでしょう。

Sub test()

DoCmd.OpenForm "処理中フォーム名"
Forms("処理中フォーム名").Repaint

'ここに実際の処理を入れる

DoCmd.Close acForm, "処理中フォーム名"

End Sub

Forms("処理中フォーム名").Repaintは、これを入れておかないと
「処理中」というテキストラベルが表示されないためです。
・ツリー全体表示

【13213】処理中の表示ができないか?
質問  みちのく一人旅  - 17/10/31(火) 10:39 -

引用なし
パスワード
   ACCESS VBA初心者です。

VBAで処理をさせたとき、画面上に何も表示されないので処理しているかどうか不安です。
それで、処理を開始したら「処理中」というメッセージを表示させたいのですが、できますか?
処理が終了したときに、MSGBOXに表示させるのではなく処理中に出したいのですが。
・ツリー全体表示

【13212】Re:該当データが無い場合の調査観点
お礼  りった  - 17/10/26(木) 14:29 -

引用なし
パスワード
   自己解決しました。
RecordCount って、SELECTたたいた直後にやっても取れないんですね。。。
・ツリー全体表示

【13211】該当データが無い場合の調査観点
質問  りった  - 17/10/26(木) 8:59 -

引用なし
パスワード
   Dim adoCn As ADODB.Connection
Dim adoRs As ADODB.Recordset
:
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & C_DB_PATH & ";"
adoRs.Open strSQL, adoCn

の直後でBREAKし、debug.Print adoCn.ConnectionString したところ、意図したaccdbファイルが表示されました。
上記accdbを開いて、strSQLのSQL分(debug.printして不要な改行削除)を実行したところ、該当データが有りました。(期待動作)
debug.Print adoRs.RecordCountしたところ、-1でした。(期待動作と異なる)

どのような原因が考えられますか?
オーソドックスな調査観点をご教示ください。
・ツリー全体表示

【13210】Re:更新クエリではFormat関数は使えない...
お礼  たけお E-MAIL  - 17/10/20(金) 9:00 -

引用なし
パスワード
   回答ありがとうございました。
でも結果は同じで「引数が無効です」というエラメーセージがでます。
・ツリー全体表示

【13209】Re:更新クエリではFormat関数は使えない...
回答  piroin  - 17/10/20(金) 0:46 -

引用なし
パスワード
   >Format([コード],"000000")

ではなく、

Format([コード],'000000')

のように、000000をシングルクォーテーション
で囲ってみればいいのでは?
・ツリー全体表示

【13208】Re:access連携 列名追加を簡単にするには...
お礼  りった  - 17/10/18(水) 12:47 -

引用なし
パスワード
   自己解決しました。

SELECT CUSTOMER_NAME AS ATTR1 ,,,,, 等とすれば、
列が増えてもほとんど修正しなくてよくなります。
トリッキーですが。
・ツリー全体表示

【13207】Re:フォルダ作成
お礼  taka  - 17/10/18(水) 6:47 -

引用なし
パスワード
   亀マスター 説明ありがとうございます。
作成することができました。本当にありがとうございました。
・ツリー全体表示

【13206】Re:フォルダ作成
回答  亀マスター  - 17/10/16(月) 19:07 -

引用なし
パスワード
   いくつか方法はありますが、簡便に行うのであれば
MkDirステートメントとNameステートメントを使います。

'フォルダを作成
MkDir "C:\Sample1\111"
'Sample2フォルダに入っていたa1.txtをSample1フォルダに移動
Name "C:\Sample2\a1.txt" "C:\Sample1\a1.txt"

もしくは、FileSystemObjectを使う方法もあります。

With CreateObject("Scripting.FileSystemObject")
  .CreateFolder "C:\Sample1\111"
  .MoveFile "C:\Sample2\a1.txt" "C:\Sample1\111"
End With
・ツリー全体表示

【13205】Re:どう動いているのかご教示ください。
回答  亀マスター  - 17/10/16(月) 18:45 -

引用なし
パスワード
   どこがどのように理解できないのかを書いていただければ
追加で回答を出すこともできます。必要であればどうぞ。
・ツリー全体表示

【13204】更新クエリではFormat関数は使えないので...
質問  たけお E-MAIL  - 17/10/16(月) 12:53 -

引用なし
パスワード
   テーブルの「コード」フイールドにテキスト型の数値が入力されています。
しかしそれらの桁数はバラバラです。
前に0を付けて、すべて6桁に変更するために更新クエリで「レコードの更新」欄に「Format([コード],"000000")」と設定したのですが「引数が無効です」のエラメッセージがでます。
選択クエリのフイールドに「桁数揃え:Format([コード],"000000")」に設定したものは問題なく機能します。
何故更新クエリでは「引数が無効です」のエラーになるのか原因が知りたいのですが・・・。
・ツリー全体表示

【13203】Re:どう動いているのかご教示ください。
お礼  りった  - 17/10/16(月) 12:43 -

引用なし
パスワード
   回答ありがとうございます。
(回答内容の一部をまだ理解できてませんが。)
・ツリー全体表示

【13202】フォルダ作成
質問  taka  - 17/10/16(月) 1:15 -

引用なし
パスワード
   アクセスで、
ある特定のテーブルの項目のデータ(仮に111)を記載した
テキストファイル a1.txt としてダウンロードします。

a1.txt ファイルの中身は、仮に111


そのテキストファイルの中身と同じ名前のフォルダ名(仮に111)
を指定のpathに作成し、
その作成されたフォルダの中に
a1.txtが格納されている状態にするにはどのようなしたらよいのでしょうか。

ご教示、よろしくお願いします。
・ツリー全体表示

【13201】Re:どう動いているのかご教示ください。
回答  亀マスター  - 17/10/12(木) 20:34 -

引用なし
パスワード
   VBAというよりAccessの基本的な質問な気はしますが。

どう動いているのかと言われても、実物のファイルを見ないことには
なんとも言えませんが、提示された情報から類推できることとして

> DoCmd.OutputTo acOutputReport, "売り上げデータ"
"売り上げデータ"というテーブルかクエリをレポートとして出力するということです。

>・"売り上げデータ"が何なのか、どこで定義を確認できるか?
リンクテーブルマネージャで確認できるエクセルファイルではないのですか?

>・accdbファイルを開くとフォームが表示されるのはなぜですか?
> (accessでは、すべてのフォームは起動時に表示される?何か指定している?)
Accessのオプションの
現在のデータベース>アプリケーションオプション>フォームの表示
でフォームが指定されているか、起動と同時に実行されるマクロで
フォームを開くよう指定されているかでしょう。
・ツリー全体表示

1 / 499 ページ 前へ→
ページ:  ┃  記事番号:
988299
(SS)C-BOARD v3.8 is Free