Access（アクセス）(7ページ目)

データベースの作成や集計・精査などに役立つAccess。テーブルの組み方やクエリの設定方法などビジネスシーンでも活用できる内容が多いので知っておいて損はないでしょう。操作に困ったときはこちらで質問すると解決のヒントが見つかるかもしれません。

回答数

気になる

指定した数値と等しい場合塗りつぶす

B1 C1 D1 E1　F1 　G1 H1 I1 　J1 4 　4 　3　4　 4 　 5 　4 　3 　5 B2 　C2 　D2 　 E2 　 F2 　G2 　 H2 　 I2　 J2 7 　　 4 　３　 3 　　5 　 7 　　 6 　 4 　 5 上記のようなエクセル表でC1とC2、D1とD2、J1とJ2のように数値が等しい場合セルを塗りつぶす数式をご教授ください。

質問日時: 2021/02/05 12:29 質問者: desafio

ベストアンサー

5

0
アクセス2007のデータを、見出し行(コントロール名)を除いてエクセルに貼り付けたい

アクセス2010とアクセス2016を使用しています。アクセスのデータのみを、エクセルにコピペする方法が知りたいです。社内で、管理用エクセルに全ての人がデータを貼り付けて、データ管理が行われています。自分が作成するデータだけアクセスで作成しているので、アクセスのデータを次々に管理用エクセルに貼り付けないといけない状況です。分割フォームや、フォームのデータシートビューで表示しているデータを選択して、エクセルにコピペすると、見出し行(コントロール名)もコピペされてしまいます。エクセルには、データのみを貼り付けたいのですが、良い方法は無いでしょうか。管理用エクセルをアクセスにするとか、管理用エクセルにアクセスのデータを引っ張るvbaを作る、とかが有効とは思いますが、ダメということで、、、アクセスのデータをエクセルにコピペしたいと思ってます。

質問日時: 2021/02/01 17:11 質問者: takitaki168

解決済

1

0
クエリの抽出で、リストボックスに条件が設定された場合と設定されてない場合の抽出を一つのクエリ内で実現

クエリの抽出で、リストボックスに条件が設定された場合と設定されてない場合の抽出を一つのクエリ内で実現する方法はありますか？例えば、リストボックスが空白の場合、全データを表示して、現金という設定があれば現金だけを抽出すると言う事です。

質問日時: 2021/02/01 15:31 質問者: D-JIN-RYU

ベストアンサー

2

0
Microsoft Accessでフォーム作成寿司屋でお客様が注文するためのフォームをAccess

Microsoft Accessでフォーム作成寿司屋でお客様が注文するためのフォームをAccessで作りたいです。有料で手伝ってくださる方を探す方法を知りたいです。アイデアをお願いします。

質問日時: 2021/02/01 07:39 質問者: BosJaGamer

ベストアンサー

1

0
accessの使い方について

初めまして。 access初心者です。クエリで下記データがあります。 A 5 B 4 C 2 このデータをレポートで添付ファイルのように四角のボックスが数量分横に延びていくように出力したいです。可能でしょうか。もし可能でしたら、やり方を教えて頂ければ有難いです。宜しくお願い申し上げます

質問日時: 2021/01/31 11:33 質問者: nnnkukuku

ベストアンサー

1

0
エクセル入力で項目別にシートに振り分ける方法を教えてください！

エクセルでの入力の時にシート１では集計としてひとまとめにして入力シート２以降では各項目別にシートに振り分ける方法がわかりません。入力する場所はシート１のみでシート２、３は各項目（１会食、２雑収入～１４予備費）ごとの項目になっていてシート１に入力すると自動で各シート（１会食～１４予備費の１４項目）に振り分けられるようにしたいのです。これを解決できる方法は、どのような方法がありそしてどうやれば出来るでしょうか？お時間あるときにご返答頂けると助かります。どうぞよろしくお願い致します。

質問日時: 2021/01/25 13:25 質問者: あおいsan

解決済

1

0
Access 仕入数より多く販売した時のメッセージ

Q在庫(クエリ) 仕入履歴NO(オートナンバー) 商品名仕入数販売数在庫: [仕入数量]-Nz([販売数量計],0) 抽出条件 >=0 クエリの実行(仕入数より販売数が少ない） A商品,10,6,4 クエリの実行(仕入数より販売数が多い。在庫がマイナスになる） A商品,10,12,-2 F販売(フォーム)の入力で販売数の更新後処理マイナス在庫の時にメッセージボックスを表示させています。 Private Sub 販売数_AfterUpdate() Dim RCount As Long RCount = DCount("*", "Q在庫") If RCount = 0 Then MsgBox "在庫数より多く販売しました。今すぐ訂正する。または保存後、履歴NOを検索して確認後、訂正して下さい" End If End Sub この方法だと、-2になっていることが不明です。 (例)メッセージを在庫が-2になっています。と表示させる方法を教えて下さい。

質問日時: 2021/01/20 11:46 質問者: yoscc

解決済

1

0
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい

access2016で作成したクエリをマクロで書式設定を保持したままExcelでエクスポートしているのですが、出力するExcelのファイル名に出力するときの日付と時刻を追加したいと考えています。マクロで追加可能でしょうか？

質問日時: 2021/01/19 16:17 質問者: あきお008

ベストアンサー

2

0
クエリの抽出で、チェックボックスを使って全データとチェック有り無しの３種類の抽出を使い分けたいと思う

クエリの抽出で、チェックボックスを使って全データとチェック有り無しの３種類の抽出を使い分けたいと思うのですが、そもそも可能でしょうか？可能ならどの様な方法がありますか？なるべく簡単な方法がといのですが。

質問日時: 2021/01/19 15:21 質問者: D-JIN-RYU

ベストアンサー

1

0
ACCESSを始めたい

初心者です。 ACCESSについては、プログラムが組まれた状態で　操作をした経験はあります。自分でも　作ってみたいと思ったのですが時間がなく　挑戦していません。エクセルに関しては独学ですが　毎日のように使っています。簡単な関数は頭にあるのですが　ACCESSは関数の集積と思っていますだけに関数が理解出来なければどうにもならないのでしょうか？ ACCESSがどうしても業務上必要であることを認識し始めると居ても立っても居られない状態です一から勉強と思っているのですが、参考図書程度でマスターできるものでしょうか？準備にかかる前に皆様の貴重なご意見を頂ければ幸いです。

質問日時: 2021/01/16 16:08 質問者: 無人駅長

ベストアンサー

2

0
ACCESSでレポートを作成し印刷すると、15ページ目から印刷される

ACCESS2010でレポートを作成し、印刷をしました。すると15ページ目から印刷され、最終ページの次から1ページ～14ページが印刷されます。どうしてこの様な状態になるのでしょうか? 元に戻す方法を教えて下さい。よろしくお願いします。

質問日時: 2021/01/13 11:25 質問者: tabisitai

ベストアンサー

4

0
Access レコード総数について

テーブルが2つある状態でテーブル1 ┗工具名/購入日/購入先　テーブル2 ┗工具名/連番/保有者 ※このテーブル2には同じ工具名のデータがあり、連番・保有者で分かれています。　ドライバー 001 Aさん用/ドライバー002 Bさん用/ドライバー003 Aさん用 …等といった形です。このテーブル1を元に工具名別のメインフォームその中にテーブル2を元にしたサブフォームを作成しています。 ※工具別に連番や保有者を表示するようなフォームのイメージです。このサブフォームに表示している保有者ごとのレコード総数を表示させたいのですが、クエリ等を使用してもうまくいかず困っております。うまくいく方法がないかご教授頂けないでしょうか？？

質問日時: 2021/01/12 02:03 質問者: gatya1124

ベストアンサー

2

0
Access改行の仕方

Accessのテキストボックス内での、改行方法を教えて下さい。ネットで調べると「ctrl＋Enter」と書いてあるのですが、実行すると文字が消えてしまい改行どころではなくなります。「Enter」のみでも、打ち込んだ文字が消えてしまいます。どなたか、分かる方教えて下さい。よろしくお願いします。

質問日時: 2021/01/10 22:16 質問者: tabisitai

ベストアンサー

3

0
Access 日付入力についてお世話になっております。今回は日付入力について力を貸していただきた

Access 日付入力についてお世話になっております。今回は日付入力について力を貸していただきたく投稿しました。 Accessで以下のテーブル内容の日付入力フォームを作りました。テーブル名_日付管理 ID 会社名担当者名契約日承認日納期日納品日契約日・承認日・納期日・納品日には取引が無しになったり、4年前の取引で詳細が追えないものはハイフン-で管理している関係で、文字が入力できない日付/時刻型にすることができないので短いテキスト型でテーブル作成しています。しかし入力フォームで日付を入れる際、人によって1/3と入力したり01/03と入力したりと細かい違いがあり気になるので、日付/時間型のようにカレンダー入力かコンボボックスで選べるようにしたいです。カレンダーコントロールの表示が1番いいのかなと思い調べましたがテキストボックスが非連結の場合のものしか出てこなく、コンボボックスでの入力方法も調べましたが値リストの部分を随時変更するのは現場の関係上厳しい為どうしたもんかと頭を抱えています。連結していてコントロールソースがある場合はどのようにすればいいのでしょうか、また他にこう言う方法の方が適している等ありましたらご教授いただきたいです。よろしくお願いします！

質問日時: 2021/01/07 18:37 質問者: 由依.1856

解決済

2

1
MicrosoftのTO DOリストの疑問点！

読んで頂きありがとうございます。いつもMicrosoftのTO DOリストをPCとタブレットで、使用しています。前までは、どちらかで、タスクを作ると両方に表示されていたのですが、ここ最近、どちらかでタスクを作っても、片方にしか表示（追加した端末）されないのです。どうしたら、この問題を解決できますか？

質問日時: 2021/01/06 10:03 質問者: rannboru

解決済

3

0
【access】同一テーブル内の月別金額比較

テーブルAに「商品コード」「地域」「月」「金額」があります。テーブルA 商品コード,地域,月,金額 A01,山形,4,100 A01,東京,4,150 A01,秋田,4,110 A01,山形,5,105 A01,東京,5,153 A01,秋田,5,110 A05,山形,4,1110 A05,山形,5,1120 A05,秋田,5,1200 ・・・という形で、商品別、地域別、月別の年間データとして20万レコードがAに存在しています。やりたいことは月別の金額比較で、例えば4月・5月で金額の異なる商品一覧を最小限のクエリで作成する方法を教えてください。その際に無くなった商品、追加された商品もリスト化できればと思っています。商品コード,地域,前月金額,今月金額,差額 A01, 山形, 100 , 105, 5 A01, 東京, 150, 153, 3 A05, 山形, 1110, 1120, 10 A05, 秋田, null, 1200, null　※null部分の表現はこだわっていません後段作業でレコードを編集したいため、クロス集計からテーブル化等は除外しています。元々、月別にテーブルが分かれていたのですが、同一テーブルに変更されてから力不足でクエリが増え、スマートな方法を模索しているところです。よろしくお願いします。

質問日時: 2021/01/06 06:49 質問者: trendy116

解決済

1

0
IIF構文の書き方 AccessのクエリでIIF文を上手く書けず、お力を貸して頂ければと思います。

IIF構文の書き方 AccessのクエリでIIF文を上手く書けず、お力を貸して頂ければと思います。・テーブル内容 ID 購入日納品日購入ステータス・クエリでやりたい内容購入日に日付が入力されていた場合 →購入ステータスフィールドに「購入」と表示納品日に日付が入力されていた場合 →（購入日フィールドに入力されている値があっても）購入ステータスに「納品」と表示購入ステータスに「購入中止」「社内購入」が入力されていた場合 →購入日フィールド、納品日フィールドに値があっても表示は変えずに「購入中止」「社内購入」のままといった文をまとめて書こうと思ったのですが、上２つの購入日、納品日の変更までは出来るのですが３つ目の表示を変えないという部分が上手くいかず悩んでいます。もしわかる方がいましたら教えていただきたいです。よろしくお願いします、、！

質問日時: 2021/01/02 19:41 質問者: 由依.1856

ベストアンサー

1

0
Access クエリについて

Access クエリ抽出データが4つあり、フォームにある４つのテキストボックス個々に入れる方法が分かりません（テキストボックス名　日付1・日付2・日付3・日付4 としています。）　4つのデータが抽出できても、テキストボックスのコンソールソースにはクエリの１番目の　データしか入りません。　　（各コンソールソースには下記のように入れています。）　 =DLookUp("[日付]","[Q祝日一覧]","![日付1] ='" & [Forms]![資材発注A]![日付1] & "'") 　 =DLookUp("[日付]","[Q祝日一覧]","![日付2] ='" & [Forms]![資材発注A]![日付2] & "'") 　 =DLookUp("[日付]","[Q祝日一覧]","![日付3] ='" & [Forms]![資材発注A]![日付3] & "'") 　 =DLookUp("[日付]","[Q祝日一覧]","![日付4] ='" & [Forms]![資材発注A]![日付4] & "'") 　　　　　　　　　　　どうかご教授宜しくお願い致します。

質問日時: 2021/01/02 09:35 質問者: eskirisima

解決済

2

0
Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 before

Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 beforeテーブルを選択クエリでafterテーブルのように重複した日付かつ番号があって片方が空欄だった場合は削除する方法があれば教えて下さい。 before 番号、商品、日付 1、空欄、20201212 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 after 番号、商品、日付 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 よろしくお願いします。

質問日時: 2020/12/30 16:44 質問者: 教えてアクセス名人

ベストアンサー

2

0
Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 before

Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 beforeテーブルを選択クエリでafterテーブルのように重複した日付かつ番号があって片方が空欄だった場合は削除する方法があれば教えて下さい。 before 番号、商品、日付 1、空欄、20201212 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 after 番号、商品、日付 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 よろしくお願いします。

質問日時: 2020/12/30 08:19 質問者: 教えてアクセス名人

解決済

1

0
Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 before

Accessのクエリについて以下beforeテーブルとafterテーブルがあります。 beforeテーブルを選択クエリでafterテーブルのように重複した日付かつ番号があって片方が空欄だった場合は削除する方法があれば教えて下さい。 before 番号、商品、日付 1、空欄、20201212 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 after 番号、商品、日付 1、りんご、20201212 2、ばなな、20201216 3、メロン、20201215 3、空欄、20201217 よろしくお願いします。

質問日時: 2020/12/29 22:49 質問者: 教えてアクセス名人

解決済

1

0
Access CSVインポートフィールド区切り記号で「="」の指定可否

こんにちは。Accessのインポートウィザードで、csv形式ファイルをインポートする際のことで教えてください。フィールド区切り記号には、「タブ、セミコロン、カンマ、スペース」がありますが、これ以外で区切ることはAccess仕様上可能でしょうか。例えば、今回は、「="」で区切るようにしたいのですが、どのようにすれば指定できるのでしょうか。（その他という欄で、「="」を入力してできるかどうかを試しましたが、できませんでした）よろしくお願いします。

質問日時: 2020/12/20 13:56 質問者: mame1216

ベストアンサー

1

0
アクセスのfilter、複数条件の記述方法を教えてください。

いつもお世話になります。掲題通り、 2つの条件でフィルターをかけたいのですが、下記の記述方法では、「演算子がありません」とエラーが発生してしまいます。エラー要因は、どこにあるか教えてください。　namestr = Me!検索氏 namestr2 = Me!検索名 'namestrとnamestr2の値でフィルターをかける Me.Filter = "氏= ' " & namestr & " ' " And 名 = " & namestr2 & " Me.FilterOn = True

質問日時: 2020/12/18 01:42 質問者: cyunna_5

ベストアンサー

1

0
Accessで、フォームに情報を入力途中で、やめる（レコードに保存しない）ということは出来ますか？

画像のようなフォームがあり、それぞれのボタンには、以下のようなVBAの記述をしています。＜閉じる＞ Private Sub コマンド17_Click() DoCmd.Close acForm, "テーブル1", acSaveNo End Sub ＜保存＞ Private Sub コマンド18_Click() DoCmd.GoToRecord acDataForm, "テーブル1", acNewRec End Sub フォームに情報を入力途中で、何かしらの理由でやめた場合（閉じる）を押しても、テーブルには、入力途中の情報が保存されます。（入力した情報を全部削除して、「閉じる」押しても、空のレコードがテーブルに保存されます）「閉じる」を押した際、何もレコードに保存されない（新規レコードが作成されない）方法は何かありませんか？

質問日時: 2020/12/14 16:27 質問者: tomo3rd

ベストアンサー

2

0
ACCESSで2つのレコードを比較して、不一致のフィールドだけ表示する方法は？

ACCESSで2つのレコードを比較して、不一致のフィールドだけ表示する方法は？

質問日時: 2020/12/13 17:51 質問者: ケンジ19720817

解決済

1

0
エクセルチェックボックスのサイズ変更

チェックボックスを作成しサイズを大きくしたいので, コントロールの書式設定→プロパティ→オブジェクトの位置関係→「セルに合わせて移動やサイズ変更する(S)」のボタンを選択したいのですが項目は存在しているのですが薄い字となり選択することができません。どうすれば選択することができるのでしょうか。ご教授よろしくお願いします。

質問日時: 2020/12/08 22:59 質問者: ナカカズ

解決済

2

0
Access2016で、フォームから直接テーブルに入力して、入力時刻を記録したいのですが、方法はあり

Access2016で、フォームから直接テーブルに入力して、入力時刻を記録したいのですが、方法はありますか？

質問日時: 2020/12/05 21:12 質問者: ぱぱっぱ

ベストアンサー

1

0
Accessのテーブルからcsv出力する際に一部のフィールドを除いて出力したい

Access2016のテーブルからcsvファイルに出力する際、一部のフィールドを除いた状態で出力することは可能でしょうか？もし可能であれば、その方法をお教えいただけると助かります。ただ、一部255文字以上のデータがあるため、クエリからの出力は難しいかなと感じております。というのも、当初はクエリから出力しようとしていましたが、一部255文字以上あるデータがあり、途中で切れてしまったため、一度テーブルに出力してからcsv出力を試みました。ただ、元のクエリでの順番を維持したいために、オートナンバーで「ID」の項目を追加したのですが、csvエクスポートの際にはこの「ID」を出力したくないです。何か良い方法等ご存知でしたらお教えいただけるとありがたく思います。よろしくお願いいたします。

質問日時: 2020/12/03 20:17 質問者: oh-sam

解決済

2

0
教えてください！アクセスのaccdeファイルを編集できるように戻すにはどうしたらよいですか？

教えてください！アクセスのaccdeファイルを編集できるように戻すにはどうしたらよいですか？

質問日時: 2020/12/02 21:40 質問者: richiha

ベストアンサー

1

0
アクセス教えてください。初心者です。以前、勤めていた方が作成したアクセスがあり、それを参考に新

アクセス教えてください。初心者です。以前、勤めていた方が作成したアクセスがあり、それを参考に新規のデータベースを作成したいのですが、ファイルタブやホームタブ、作成タブなども表示されません。。。 F11キーでオブジェクトは表示されたのですが、フォームやレポートのコピーもできずデザートビューも表示できません。。。。どのようにしたらよいか教えてください。。

質問日時: 2020/12/02 12:58 質問者: richiha

解決済

3

0
VBAで同一フォルダにあるブックを全て開く

VBAについての質問です。マクロが保存されているエクセルと同じフォルダにあるエクセルファイルを全て開くマクロをつくりたくて、以下のようにしました。 Dim filename As String Dim openedbook As Workbook Dim isbookopen As Boolean filename = Dir(ThisWorkbook.Path & "*.xls") Do While filename <> "" If filename <> ThisWorkbook.Name Then isbookopen = False For Each openedbook In Workbooks If openedbook.Name = filename Then isbookopen = True Exit For End If Next If isbookopen = False Then Workbooks.Open (filename) End If End If filename = Dir() Loop エラーはでないのですが、ファイルは1つも開きません。何がだめなのかを教えていただきたいです。よろしくお願いします。

質問日時: 2020/11/29 19:41 質問者: ゆうEX

ベストアンサー

6

0
Accessのテーブルのファイルにフィールドを登録しても消えてしまう

Access2010を使用しています。テーブルのファイルにフィールドの挿入して名前をつけました。保存をしてファイルを閉じて、再度ファイルを開けるとファイルには挿入したフィールドはあります。(デザインビューで見てもあります) そして、ソフトを使うとフィールドが見当たらないとして#Name?とフォームに表示されます。そのファイルに入っている他のフィールドは問題なくフォームに表示されるのですが、何故か新しく登録したフィールドだけ消えています。上手く説明が出来ないのですが、使用すると消える理由が判らず教えて頂けませんでしょうか？宜しくお願い致します。

質問日時: 2020/11/28 16:30 質問者: いたしん

解決済

1

0
Accessでリンクテーブルからローカルテーブルに起動するたびに更新したい

Accessで下記のリンクテーブルを参照しています。商品テーブル・ID ・商品名・価格しかし、発注数という項目がないので、ローカルテーブルに同じテーブルを作りそこに発注数を新設したいと思っています。・起動するたびに、発注数を触らないでそれ以外の項目をIDをキーにリンク元から更新・新規に追加された商品情報も追加されるという仕様にしたいのですが、どのようにすればいいのでしょうか？初歩的な質問ですみません。

質問日時: 2020/11/27 22:10 質問者: mdb_t2ib

ベストアンサー

2

0
抽出したデータを修正して元のセルに上書きしたい

整理番号でユーザーフォームに抽出したデータを修正した後、設置したコマンドボタン（上書きボタン）をクリックして、修正した項目だけ元のセルに上書きしたいと考えています。整理番号で抽出するところまではいきましたが、上書きがどうしてもうまくいきません。どなたかご教授頂けると助かります。 ※元データのシートと作成途中の修正フォームの画像を添付します。

質問日時: 2020/11/24 20:22 質問者: Guts1048

解決済

3

0
Microsoft AccessVBAの記述での質問

Microsoft　AccessVBAの記述で、フィールドの追加ですが既存のテーブルの前から5番目とか6番目に新規のなまえのフィールドを複数追加したいのですが、何分Access初心者で　どのように記述したらよいか分かりません。また　そのフィールドを追加したいテーブルを特定する時にワイルドカードを使っての取得の仕方が知りたいのですが、どなたか詳しい方、教えて頂けませんでしょうか？

質問日時: 2020/11/24 14:46 質問者: margau

解決済

1

0
Accessで｢式で型が一致しません｣とエラーがでます

Access初心者です。 Access2016でデータ突合をしようとしています。手元にあるExcel資料はA1とA2とBの3種類です。 A1とA2は同じテンプレートで違う人（どちらも私とは別の方）が作成管理しています。 A1とB、A2とBそれぞれで、とある列同士で同じ数字（5桁）があれば抽出するクエリを作成したいです。 A1とBでは抽出出来たのですが、A2とBを試すと｢式で型が一致しません｣とエラーが出て実行できません。抽出の手順はA1、A2共に同じ手順でやっております【試した事】・A1ファイルにA2のデータをコピーしてペースト→エラー発生・A1ファイルにA2ののデータを手打ち→抽出成功（ただ、元データはあまりに数が多く、全て手打ちする事は厳しいです）・セルの書式設定は3つの資料の抽出列全て｢標準｣であると確認済みどこを修正したら出来るようになるか教えていただきたいです。よろしくお願い致します。

質問日時: 2020/11/21 14:03 質問者: ラーメンたべたい

ベストアンサー

1

0
ACCESSテーブルデータから複数のファイル名変更保存

ACCESS2013、テーブル1にコピー元ファイルパス、NEWファイル名が入っています(約50レコード）やりたいこと；コピー元ファイルパスからコピー先パスへファイル名をNEWファイル名に変えて保存したい。（下記コードにNEWファイル名をどこに書いたらいいか分かりません） Private Sub コマンド0_Click() Dim oFSO As Object Dim rs As New ADODB.Recordset Const sToPath As String = "コピー先パス" Set oFSO = CreateObject("Scripting.FileSystemObject") rs.Open "テーブル1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly While (Not rs.EOF) If (Len(Nz(rs("コピー元パス"))) > 0) Then oFSO.CopyFile rs("コピー元パス"), sToPath End If rs.MoveNext Wend rs.Close End Sub 参考URL；https://oshiete.goo.ne.jp/qa/4831478.html haruru413

質問日時: 2020/11/20 11:31 質問者: haruru413

ベストアンサー

2

0
ファイル名の頭5桁と同名のフォルダを自動作成し、移動させる方法はありますか？

windows10ユーザです。フォルダ内にある複数のファイル（jpg）を、ファイル名の頭5桁ごとに分類したいため、そのファイル名と同名のフォルダを元のフォルダ内に新たに作成し、そこに保存したいと思っていますが、何か一括でファイル名と同名のフォルダを作成する方法はないでしょうか？例）ファイル名：・12345_a.jpg ・12345_b02.jpg ・12345-a.jpg ・12346-011_hh.jpg ・12346-a.jpg 分類後： -フォルダ「12345」・12345_a.jpg ・12345_b02.jpg ・12345-a.jpg -フォルダ「12346」・12346-011_hh.jpg ・12346-a.jpg *最初の5桁の番号で分類したいです。 *_か-の後の文字数は変動あります検索したところフリーソフトや、バッチ、マクロの例などあったのですが、一つずつのファイル名で分類してしまうもの等、ちょうど条件に合うものがみつけられませんでした。何か良い方法ありましたらお願いいたします。

質問日時: 2020/11/11 20:29 質問者: starstarstarl

ベストアンサー

2

0
Access ２つの異なるクエリの合計のやり方を教えてください。

はじめまして。 Access初心者です。自己流で使用しているのですが、どうしたら良いのかわからず困っています。バージョンはAccess　Microsoft365を使用しています。 1つのテーブルにすべての仕入情報を入力しています。【A】という仕入先からの合計金額等の情報を抜きだそうと思い、クエリを作成いたしました。 [個数]＊[単価]に消費税をかけたものを集計しています。ここまではうまくいったのですが時折『値引き』というものが発生し、その時はマイナス○○円とう形で[単価]を登録しておりました。しかし、この『値引き』にも消費税をかけて集計してしまいます。そこで、『値引き』だけを摘出したクエリ_１と『通常』のクエリ_2を作成し合計しようと考えたのですが、うまく2つのクエリを合計することができません。何かいい方法はありますでしょうか。また10%の消費税のものと8%の消費税のものがある仕入先も存在しており、そちらにも応用できるかと思っております。クエリが1つで済むのであればその方がいいのですが、本を読んだのみでうまく使いこなせておりません。ご教授いただけたらと思います。よろしくお願いいたします。

質問日時: 2020/11/06 14:54 質問者: まめたん9

ベストアンサー

2

1
Microsoft Accessの作成方法について

Access初心者です。現在、社内の貸出の管理をするためにAccessでデータ作成をしているのですが、一人が複数の商品を借りたい場合のクエリ・フォーム・テーブル及びマクロの作成方法がわかりません。どのようにしたら良いのかご教示願いたいです。理想としては、レンタルビデオ店のように貸出商品のバーコードを必要な分読み込み、最後に利用者のカード情報を読み込みして受付用のテーブルを作成する。返却時は、返却商品のバーコードを読み込んで返却処理をする・・・など、できるのでしょうか？現在は、商品バーコード１つに対して利用者１名の読み込みとなっております。よろしくお願いいたします。テーブル・　借りたいユーザ情報が入っているテーブル（社員名・所属部署名）・　備品管理をしているテーブル（貸出中・貸出不可・備品情報等）・　受付用のテーブル（貸出商品名・貸出者名・貸出日・返却日）・　貸出状況用(Log)のテーブル（貸出商品名・貸出日・返却日・貸出者名・所属部署名）クエリ・　貸出可能機器（貸出不可にチェックが入っていないもの）・　貸出中の一覧表示用（貸出受付状況用のテーブルの返却日が空欄のものを表示確認のみ）・　貸出受付フォーム用（ユーザ情報と備品管理のリレーションを利用して貸出状況用のテーブルに入力するためのクエリ）・　返却受付フォーム用（貸出受付状況用のテーブルの返却日が空欄のものを表示して返却日の登録用）フォーム・　各クエリの登録用フォーム・　メニュー画面

質問日時: 2020/11/06 13:54 質問者: nonbiricorocoro

解決済

1

0
Accsess 縦のデータを条件付きで横並びに

Access2019クエリについて質問です。やりたいことがあるのですが、過去の質問を見ても似た事例がなかったため質問させていただきます。 ★現在の状態テーブルに、ID、介護認定の時期と種類が縦に入っています(種類はA~Gまで７種類あります）。 ID　│認定時期　　│認定区分 1　 │20100401　│A 1　 │20110401　│B 1　 │20120401　│B 1　 │20130401　│A 2　 │20100401　│C 2　 │20120401　│C 3　 │20100401　│A 3　 │20120401　│B 3　 │20130401　│B 3　 │20140401　│C ★実現したいことこのテーブルから、１人に入っている介護区分の変遷情報を横並び一列で表示したいのです。 ID│初回認定時期│初回区分│２回目時期│２回目区分│３回目時期│３回目区分・・・ 1 │20100401　│A　　　 │20110401│B　　　　 │20130401│A 2 │20100401　│C 3 │20100401 │A　　　 │20120401│B　　　　　│20140401│C 条件としては、 ①区分がA→B→Aとなっている場合、Aを区別し２回掲載したい ②B→B等同じ区分が連続している場合は１回のみ・一番古い認定時期を記載したい ③人によって何回区分が変わるかは不明(多くの人は4回以内だと思われるが・・・）このようなことはaccessのクエリで実現可能でしょうか？クロス集計を試みたのですが、データ数が8000と多く、分割は極力したくないためできませんでした。また、クロス集計では①のようにAを区別できないことがわかりました。大変ややこしくて恐縮ですが、ご教授いただけましたら大変ありがたいです。説明に不足がありましたら補足いたします。どうぞよろしくお願いいたします。

質問日時: 2020/11/06 11:40 質問者: nos2020

解決済

2

0
重複するＩＤのデータを1行にまとめるvbaのコード

1か月分（1日～月末まで）の手当申請をした日の集計をするためexcel　vbaで次のようなコードを作りたく、お知恵を拝借できますでしょうか。シート1に元データが1,000件程あります。シート2に、シート1のＩＤが同じものをまとめ、日付を日付順に横に表示したいです。同じＩＤは最大で20回ほど登場、1度の申請で最大10日分のデータがあります。ＩＤ　氏名　所属　　日付1　日付2　日付3　日付4　日付5　日付6　… …　日付10 1000　田中　営業部　　9/1　　9/2　　9/7 2000　佐藤　業務部　　9/2　 2000　佐藤　業務部　　9/11 2000　佐藤　業務部　　9/13　 9/15 3000　山田　製造部　　9/4　　9/11　 9/12　　9/15　　9/16 3000　山田　製造部　　9/18　 9/20　 9/23　　9/24　　9/25 ： ↓ 1000　田中　営業部　　9/1　　9/2　　9/7 2000　佐藤　業務部　　9/2　　 9/11　 9/13　　9/15 3000　山田　製造部　　9/4　　 9/11　 9/12　　9/15　　9/16　　9/18　… … 9/25 ：どなたかこのような動作を行うvbaのコードを教えてください。よろしくお願いいたします。

質問日時: 2020/11/02 11:23 質問者: しゃもじ_299

ベストアンサー

4

0
フォームから離れる際にテーブルにレコードを入力する方法

Access初心者です（Access2016使用）。テーブル１をレコードソースとしたフォーム１があります。フォームは開く際に、acFormAddで開き、新規レコードの状態でフォーム１に配置した各コントロールに必要情報を入力していきます。全ての情報を入力しフォーム１から離れる際に、テーブル1の「入力日時」フィールドに現在の日時を自動入力したいと思っています。フォーム1に設置したコントロールに入力すると、オートナンバー型に数値（id）が自動で取得されるので、その数値を使用し下記のようにしてみました。ただこれですと、「rstMy!入力日時 = Now」のところで「カレントレコードがありません。」とエラーになってしまいます。修正箇所を教えていただけないでしょうか。よろしくお願いします。　 Dim dbsMy As DAO.Database Dim rstMy As DAO.Recordset Dim strSQL As String Set dbsMy = CurrentDb strSQL = "select * from テーブル1 where id=" & Me.id Set rstMy = dbsMy.OpenRecordset(strSQL) With rstMy .Edit rstMy!入力日時 = Now .Update End With rstMy.Close

質問日時: 2020/10/31 17:00 質問者: フェリスキャット

ベストアンサー

4

0
ACCESSのDlookup

フォームに配置した連結コントローの更新後処理に Msgbox DLookup(”都道府県”,”T_住所”,”名称='" & このコントロール＆ ”’”）帰ってきませんちなみに DLookup(”都道府県”,”T_住所”,”名称='ABC'"）帰ってきます DLookup(”都道府県”,”T_住所”,”名称='" & このコントロール.Value ＆ ”’”）帰ってきません例えば変数を宣言し Let 変数 =このコントロール.Value Msgbox 変数にすると ABC ABC ABS になります 20年ぶりにACCESSを扱います何か勘違いか忘れてることがあればお教えください ACCESSは現バージョンですずいぶん変わったのは驚きです

質問日時: 2020/10/29 14:29 質問者: nakazawasan

解決済

4

0
Accessの入力フォームから、テーブルの添付ファイル型にファイルを入力する方法について

Access2007から追加された「添付ファイル型」フィールドを使用して、報告書管理システムを作成しようとしています（現在使用しているのは2016です）。私はいつもデータをテーブルに追加するときには、非連結単票フォームに情報を入力し、登録ボタンをクリックし、addnew、Updateでテーブルに新規データを受け渡しています。ただ今回「添付ファイル型」は非連結では使用できないようで、どのように添付ファイルをテーブルに受け渡せばよいのか悩んでおります（ちなみに、受け渡す添付ファイルは報告書をPDFにしたものです）。テーブルへの添付ファイルの受け渡し方について、ご助言いただけないでしょうか。よろしくお願いします。

質問日時: 2020/10/29 09:15 質問者: フェリスキャット

ベストアンサー

1

1
マクロ有効ブックを上書きするボタンをワークシート上に設置したい

お世話になります。 VBA初心者ですが、エクセルでのシステム作りに日々励んでおります。その中で、マクロ有効ブックを上書きするにあたり、ワークシート上に設置したボタンで上書き保存させたいのですがうまくいきません。どなたかご教授頂けませんでしょうか？ ※添付画像の「保存」ボタンをクリックすると上書き保存されるイメージで、更に、可能であればブックを閉じるボタンも設置できたらと考えています。

質問日時: 2020/10/28 12:37 質問者: Guts1048

ベストアンサー

1

0
Access2016でのfilter後に並べ替えを行う方法について

Access2016/windows10を使用しております。テーブル（Tbl_data_Report）をレコードソースとした帳票型の検索フォームがあります。検索フォームのフォームヘッダーにはいくつかのテキストボックスとコンボボックスを配置しそこに入力したキーワードでフィルターをかけ、データ抽出を行っています。この抽出は下記コード（btn_絞込_Click）でできています。更に、この検索フォームのフォームヘッダーにトグルボタン「Report_id」「訪問年」「所在国」を配置し、トグルボタンのON/OFFで上記で抽出したデータの並べ替え（昇順/降順）をしたいのですが、並べ替えを実施すると先の抽出が戻ってしまい、全データで並び変わってしまいます。抽出をかけない状態では、並べ替えはできています。抽出結果を維持したまま、並べ替えをする方法をご教示願います。なお、あくまでも抽出結果を見てから並べ替えをしたいので、抽出時に並べ替えるのはなしとしてください。 ’***複数条件での抽出/絞り込*** Private Sub btn_絞込_Click() Dim dbsMy As DAO.Database Dim rsMy As DAO.Recordset Dim strFilter As String Set dbsMy = CurrentDb Set rsMy = dbsMy.OpenRecordset("Tbl_Data_Report", dbOpenDynaset) strFilter = "Report_id >= 1" If Not IsNull(Me.Cbo_訪問年) Then strFilter = "Visit_Year ='" & Me.Cbo_訪問年 & "'" End If If Not IsNull(Me.Cbo_所在国) Then strFilter = strFilter & " AND Customer_Country Like '*" & Me.Cbo_所在国 & "*'" End If rsMy.Filter = strFilter Set rsMy = rsMy.OpenRecordset Set Me.Recordset = rsMy Me.Requery Set rsMy = Nothing Set dbsMy = Nothing End Sub ’***トグルボタンによる並べ替え*** Private Sub btn_Report_id_Click() If Me.btn_Report_id.Value = True Then Me.OrderBy = "Report_id desc" Else Me.OrderBy = "report_id asc" End If Me.OrderByOn = True End Sub

質問日時: 2020/10/27 18:57 質問者: フェリスキャット

ベストアンサー

1

0
Access レポートを開く時、2つの条件で昇順で並び替え

レポートを開く時の並び替え販売月日の昇順にしています。 '開くとき販売月日で昇順 Me.OrderBy = "販売月日 ASC" Me.OrderByOn = True もう一つ、販売伝票履歴番号も加え、販売月日と販売伝票履歴番号で昇順で並び替えたいです。教えて下さい。

質問日時: 2020/10/22 18:02 質問者: yoscc

ベストアンサー

1

0
Accessで、以下のようなことは出来ますか？

Accessのフォームで出荷に関する情報を入力します。レコードが１件の場合は、各入力情報を、「Me.品目番号、Me.ロット、Me.数量」というように扱えますが、画像の様に複数レコード入力し、2件目の「品目番号、ロット、数量」の情報を扱う場合、何か方法はありますか？ご存じの方、教えて下さい。

質問日時: 2020/10/15 09:42 質問者: tomo3rd

ベストアンサー

1

0
2003エクセルが開けない急いでいます＞＜

無知ですみません。先日2003以上のエクセルで作成した添付ファイルを受信し、開こうとしましたところダウンロードはできるのできひらくのですが　保存ができないのです。互換パックなどをさがしておりますが、昔あったような無料で　　2003がひらけるようになる互換パックなどご存知かたおりましたらおしえてください！（私はエクセル2003使用です）・・・もし互換などがないといたしましたら　　どうすれば保存でき、開け編集できるでしょうか？（昔のやりかた？で　資料をおくってくださるかたに、保存時で2003－2007形式みたいな形式で保存してくください　とお願いいたしましたが、もはやそんな形式もなくなったのかもよくわからず恐れ入ります。よろしくお願いいたします。

質問日時: 2020/10/13 09:48 質問者: にゃあた

解決済

4

0

←前の結果
1
2
3
4
5
6
7
8
9
10
11
12
...
20
次の結果→

【Microsoft Office】に関するカテゴリ

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

質問する（無料）

【Access（アクセス）】に関するコラム/記事

弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...