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

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

回答数

気になる

こんにちは。Accessのことで教えてください。M365環境で、Private Declare Fu

こんにちは。Accessのことで教えてください。M365環境で、Private Declare Function GetOpenFileName、、構文が64ビット環境につきコンパイルエラーになったため、対策として、Private Declare Ptrsafe Function GetOpenFileNameと修正しました。ところがそうしたら、エラーは出なくなったものの、GetOpenFileNameが起動しなくなってしまいました。直し方に問題があるかと思うのですが、どこがおかしいかをアドバイス頂けないでしょうか。よろしくお願いします。

質問日時: 2023/01/09 14:59 質問者: mame1216

ベストアンサー

1

0
対象月の２桁表示について

下記は顧客データの前３か月分のデータを統合するマクロの一部です。顧客データファイル名は（例）顧客データ（2022年09月）、顧客データ（2022年10月）、顧客データ（2022年11月）、顧客データ（2022年12月）と月別になっています。下記の記述ですと対象月が例えば９月の時に呼び込めないため、記述を色々変更してみたのですがうまくいきません。対象月をすべて２桁で表示する記述を教えていただきたいと存じます。 For i = 0 To 2 wdate = DateAdd("m", (i - 3), today) sbname(i) = "顧客データ（" & Year(wdate) & "年" & Month(wdate) & "月）"

質問日時: 2023/01/07 05:08 質問者: ラップ6614

ベストアンサー

1

0
AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成

AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成クエリで降順テーブルを再度作るコードを書いたのですが作成したテーブルをフォームで見ると全ての列で表示の長さぴったりに表示がされていないのがあり複数の✳︎で表示され逐一フォーム上のテーブルをクリックし列を広げる手間をしております Access2016を使っております検索すると列名を指定し列の幅数を指定するコードはあるようですがテーブル名を指定し全自動で列の長さを表示の長さに合わせるコードの書き方は存在しないのでしょうか Access2016 AccessVBA テーブル列幅フィールド幅全て表示の検索単語で調査しましたが良いページが見つかりません何卒ご指南又はご教授よろしくお願い申し上げます。capeofdragon

質問日時: 2023/01/06 11:17 質問者: capeofdragon

ベストアンサー

1

0
アクセスで教えてください。レポートが3つ作成してあるのですが、 pdfに出力するときに 1件のpd

アクセスで教えてください。レポートが3つ作成してあるのですが、 pdfに出力するときに 1件のpdfで3ページにまとめたいのですが、何か方法はありますか？初心者なので、わかりやすく教えてください。よろしくお願いします。

質問日時: 2022/12/21 14:44 質問者: richiha

ベストアンサー

1

0
アクセスのグループ化で、 No.が10番台のJPY合計 No.が20番台のJPY合計 No.が30番

アクセスのグループ化で、 No.が10番台のJPY合計 No.が20番台のJPY合計 No.が30番台のJPY合計を作りたいのですが、集計のグループ化で条件をどのように入れれば良いでしょうか？集計前の表の例 No I JPY 11Ｉ240 21Ｉ300 25Ｉ100 32Ｉ80 集計後の理想の表 No ＩJPY 1* Ｉ240 2* Ｉ400 3* Ｉ80

質問日時: 2022/12/20 14:39 質問者: e_e_e_

ベストアンサー

1

1
Accessでセレクタをダブルクリックで別フォームで詳細表示

どうしてもうまくいきません。どなたかご教授をお願い致します。 Accessでフォーム「F_検索」があります。このフォームは条件集中し、サブフォームにデータ表示さます。サブフォームからセレクタをダブルクリックすると別フォーム「F_コメント」が立ち上がり表示したい。その表示は、「F_検索」から引き継ぎ、ﾌｨｰﾙﾄﾞ「試料番号」を検索したい。「F_検索」と「F_コメント」は別テーブルです。 keyは「試料番号」です。 Private Sub Form_DblClick(Cancel As Integer) 　DoCmd.OpenForm "F_コメント", acNormal, , , , , CStr(Me.試料番号) 　DoCmd.FindRecord strCondition, acEntire end sub どうしたらできるのかさっぱりわかりません。よろしくお願い致します。

質問日時: 2022/12/20 10:36 質問者: khre21

解決済

3

0
Ｏｕｔｌｏｏｋ（Ｈｏｔｍａｉｌ）の表示について

Ｏｕｔｌｏｏｋの受信欄の表示方法が図のように「項目」ごとに表示されるようになってしまいました。受信項目の日膣を「ファルダ―」に移し換えようとして誤操作をしてしまったのかもしれません。従来のように受信日ごとに表示したいのですがその方法を教えてください。

質問日時: 2022/12/08 14:37 質問者: Newkitakarasu

ベストアンサー

1

0
Accessで独自メニューバーまたはリボンを作成したい

ACCESSで簡易システムを作っています。以前のバージョンでは、独自メニューが作成できたと思います。そのメニューから「特定な入力フォーム」を開いたりできたと思うのですが。現在はできないのでしょうか？現在はメニューバーではなくリボンになっているので、せめてリボンから作成済みのフォームを開く事は可能でしょうか？リボン設定から、新規にタブを作成できるのですがそこのタブに、指定した入力フォームを開く事は可能でしょうか？

質問日時: 2022/12/02 14:31 質問者: rabu_chihaha

ベストアンサー

1

0
アクセスレポートを開いたときにパラメーターの自動入力がしたい

お世話になります。アクセスでレポートを開いたときにパラメーターの自動入力が出来るようにしたいです。レポートの読み込み時に下記コードを記入しました。 Private Sub Report_Load() Dim dbs As Database Dim qdf As QueryDef Dim rst As Recordset Set dbs = CurrentDb Set qdf = dbs.QueryDefs("Q見積書明細") With qdf .Parameters("[Forms]![Frm見積書]![見積ID]") = Forms!T登録用紙!紐づけ見積ID Set rst = .OpenRecordset End With With rst Do Until .EOF Debug.Print !見積ID .MoveNext Loop End With End Sub エラーは出てきませんが、パラメータ入力のウインドウが出てきてしまいます。どのように修正すればよいでしょうか？ご回答よろしくお願いします。

質問日時: 2022/11/30 11:21 質問者: うさぎ0122

ベストアンサー

4

0
Access2016でフォーム内にExcelの複数シートを表示させるイメージで複数テーブルのデー

Access2016でフォーム内にExcelの複数シートを表示させるイメージで複数テーブルのデータをタブを押すことで個別のテーブルデータをデータシート形式で表示できないか考えておりますサブフォームを使えばできるかと考えましたが一つのテーブルに対してデータシート形式で表示させる方法しかわからず Excelのタブで複数シートを表示できるような仕様にはできません AccessVBAで複数テーブルをExcel化して Excelをフォームに表示できないかとも考えましたができるかわからないです簡便で実装し易い方法がありましたらご教授をよろしくお願い申し上げます。 capeofdragon

質問日時: 2022/11/25 15:30 質問者: capeofdragon

ベストアンサー

1

0
アクセス削除するレコードを含んだテーブルを指定してくださいのエラー対処方法

お世話になりますアクセスで削除クエリを実行しようとすると「削除するレコードを含んだテーブルをしてください」とエラーが出てしまいました。下記SQL文です。 DELETE T見積書明細.明細ID, T見積書明細.品名 FROM T見積書 INNER JOIN T見積書明細 ON T見積書.見積ID = T見積書明細.見積ID WHERE (((T見積書.見積ID)=Forms!Frm見積書!見積ID) And ((T見積書明細.品名) Is Null)); delete分でテーブルの指定をしているように思えて、どのように修正すればよいか分かりませんでした。修正方法をご存じでしたら教えてください。よろしくお願いいたします。

質問日時: 2022/11/24 15:01 質問者: うさぎ0122

ベストアンサー

1

0
AccessVBAで任意の複数リンクテーブルをAccessVBAを動かす際に削除したいと考えておりま

AccessVBAで任意の複数リンクテーブルをAccessVBAを動かす際に削除したいと考えております Access2016を使っております例えば、 B から始まるリンクテーブルのみ削除し残したいテーブルは残すを実装したいです DoCmd.DeleteObject acTable,"テーブル名" は，存じておりまして具体的な完全なテーブル名がわかる場合の削除はできるのですが任意の固定の文字列から始まるテーブルを削除するコードが記述できません AccessVBAの正規表現を使えばできるのかと踏んでいますが良い方法が検索してもわかりませんでしたご教授よろしくお願い申し上げます。 capeofdragon

質問日時: 2022/11/17 15:45 質問者: capeofdragon

ベストアンサー

1

0
教えてください。アクセスでクエリデータを指定フォルダに保存するマクロを作成しているのですが、ファ

教えてください。アクセスでクエリデータを指定フォルダに保存するマクロを作成しているのですが、ファイル名に日付を入れたく、例えば、月曜日は2日前、それ以外の曜日は1日前の日付をファイル名にしたいです。できますでしょうか？

質問日時: 2022/11/13 10:35 質問者: richiha

ベストアンサー

2

0
Access で半角スペースと全角スペースの区別について

Access の普通のlike 演算子だけで、半角スペースと全角スペースの区別はできてません。例えば like “* *”だったら半角も全角も問わず抽出されてしまう ①これはなぜでしょうか？設定など変えたら普通にできそうですか？ ②抽出できるためどのようなクエリーの作成必要ですか？

質問日時: 2022/11/05 23:54 質問者: dips

解決済

3

1
宜しくお願いします

2022/11/5 5:51 0回答ボタン1つで登録完了ときました。送り先はご契約の携帯電話住所、誤操作の場合はキャンセル電話を12時間以内に。請求額は30万と書いてあります。ボタン1つで30万も支払わないとダメなんですか？また、これはキャンセルの電話かけた方がいいんでしょうか？ご回答、宜しくお願いします。

質問日時: 2022/11/05 06:00 質問者: jimyn

解決済

1

0
Dlookupにエラーがでてしまう

フォーム上にあるデータを参照してレコードソースが異なるクエリの値をテキストボックスに表示させたいです。 dlookupを使用してみましたが、#nameのエラーが起きてしまい表示させることができません。どの様に修正すればよいでしょうか？下記詳細です。・テキストボックスのコントロールソースに入力したもの =DLookUp("登録用紙ID"," Q見積IDと登録用紙ID","forms![Frm見積書]![見積ID] ='" & [Q見積IDと登録用紙ID]![見積ID] & "'") ・フォームのレコードソース：T見積書・実現したい事 Q見積IDと登録用紙IDからフォーム上に表示されている見積ＩＤの値を参照して紐づく登録用紙ＩＤが表示されるようにしたい・見積ＩＤ、登録用紙ＩＤ＝短いテキストご回答よろしくお願いいたします。

質問日時: 2022/10/31 14:35 質問者: うさぎ0122

解決済

1

0
アクセスで1ヶ月ごとのカウント

アクセスで1ヶ月ごとの特定のカウントは自動でできますか？フィールド名　　日付　　　　　　項目　　　　カウント　　　　　　　　2020/10/1　　りんご　　　　　3 　　　　　　　　2020/10/1　　みかん　　　　　　　　2020/10/5　　りんご　　　　　3 　　　　　　　　2020/10/10　　ブドウ　　　　　　　　2020/10/20　　りんご　　　　　3 　　　　　　　　2020/11/5　　りんご　　　　 2 　　　　　　　　2020/11/5　　ぶどう　　　　　　　　　　　　2020/11/20　　りんご　　　　　2

質問日時: 2022/10/31 13:30 質問者: ケンボー5959

解決済

2

0
本日、会社のパソコンでAccessを開いたときウイルス警告のようなものが出ていました。毎日Acc

本日、会社のパソコンでAccessを開いたときウイルス警告のようなものが出ていました。毎日Accessでデータをとるのですが、本日いつも通りにAccessを開くと、赤字でウイルス警告のようなものが出ていました。そのまま使用できたのでデータをとり、そのまま閉じました。正しいデータはとれたようなのですが、急いでいたので明日は元通りになっていますように、と願いながらパソコンを閉じて退社しました。そういう警告はどんなときに出るのでしょうか。少し気になったもので、、何か考えられることがありましたら教えてください。

質問日時: 2022/10/18 23:33 質問者: tomorin_とも

ベストアンサー

3

0
Access IF文でテーブルに存在しない場合の処理について

いつもお世話になっております。 Accessで顧客情報の管理をしようと思って始めました。どうしても躓いてしまったので、どう直せば良いのかご教授ください。＜やりたい事＞ ①　テキストボックスが空白の場合、メッセージボックスを出して処理を中断。 ②　顧客番号がテーブルに存在しない場合は、メッセージボックスを出して処理を中断。 ③　①②に問題がない場合、編集画面に飛ぶ ①と③はなんとか出来たのですが、②が分かりません。現状は存在しない番号を打っても新規レコードが出る状態です。以下補足・顧客情報の管理（数字4桁+アルファベット＝顧客番号）・メインメニューには登録ボタンと編集ボタンとテキストボックスがある・編集ボタンを押すとテキストボックスに入力された顧客番号を抽出して編集する流れ Private Sub コマンド4_Click() If IsNull(Me.テキスト2) Then MsgBox "棚番が入力されていません" Else DoCmd.OpenForm "T_A_MENBER", acNormal, "", "[顧客情報]=" & "'" & [テキスト2] & "'", , acNormal DoCmd.Close acForm, "mainmenu" Exit Sub End If よろしくお願いいたします。

質問日時: 2022/10/10 18:09 質問者: famiru730

ベストアンサー

2

0
アプリケーションエラー

PC初心者です。 Excelで作成したデータ保存しようとしたらアプリケーションエラーの表示が出て「続行」「終了」が表示も出ました。作成したデータを残したいのですがデータが消えるのが怖くて、現在PCをそのまま放置してるのですがどちらを選択すれば保存完了されるのでしょうか？とにかくデータが消えるのが怖くて手がつけられません(*><*)

質問日時: 2022/10/09 00:27 質問者: tk1324

解決済

3

0
ACSESS初心者ですマンション管理をACCESSで出来ないかとチャレンジしています。リレーショ

ACSESS初心者ですマンション管理をACCESSで出来ないかとチャレンジしています。リレーションで (1側)居住区番号には居住者情報全般が入ります。 (多側)駐車場関係IDと区画番号等が入ります。これが基本の二つのテーブルになります、リレーションで1対多の場合 1側の居住区番号の居住者が転居後(転出日項目あり)で前居住者情報を残した上で、　同名居住区番号のレコードを新たに追加したいが　元のIDを呼び出してしまいます。この場合、新たにIDを作ることは出来ないのでしょうか？ちなみに　多側の(駐車場関係路面番号)は問題なく　前使用者の情報を残したまま新しくIDを作れるのですが,,, 1側のデータを残す必要は　次の居住者(区分所有者)との変更届出書の書面提出確認まで残して置く必要から、又　途中仲介者の買い取りがあり　データーを残す必要があります。単に上書きしてしまうと前居住者情報が消えてしまうからです。出来ましたら　判りやすくご指導戴ければ助かります。

質問日時: 2022/10/08 11:45 質問者: 無人駅長

ベストアンサー

3

0
Microsoft365にAccessってありますか？

現在使用していますAccess2013が、2023年4月に延長サポートが切れるということで、Microsoft365の導入を検討しております。しかし、Microsoft365のHPを見ましても、Accessのことが書かれておりませんで困っております。来年春以降もAccessを使い続けます為には、どうしましたら宜しいでしょうか…

質問日時: 2022/10/02 09:04 質問者: risaghon

ベストアンサー

3

0
Access DAOのExecuteメソッドのオプション（RecordsetOptionEnum）に

Access DAOのExecuteメソッドのオプション（RecordsetOptionEnum）についてクエリ実行時に制約違反などで正常に処理できない場合エラーを出したいので以下のようにdbFailOnErrorを指定していますが、　db.Execute "クエリ", dbFailOnError オプションのRecordsetOptionEnumにはdbSeeChangesなどあり、これらを複数指定する事は可能なのでしょうか。 AccessにSQLServerのテーブルをリンクテーブル（ODBC）で繋いでおり、リンクテーブルに対してデータを更新する際dbSeeChangesを指定する必要があります。ここにdbFailOnErrorも追加で下記のように2つの組み合わせで指定したいのですがコンパイルエラーが出てしまいます。　db.Execute "クエリ", dbSeeChanges ,dbFailOnError

質問日時: 2022/09/19 07:34 質問者: monapiiii

ベストアンサー

1

0
お世話になっていますいまクエリを作っています。。デザインビューの画面の集計の欄で、「グループ化」

お世話になっていますいまクエリを作っています。。デザインビューの画面の集計の欄で、「グループ化」と入れます。その場合、デザインビューを閉じて、クエリのデータを問題なく開くことが出来ます。ところが、集計の欄に「合計」と入れます。その場合、デザインビューを閉じて、クエリのデータを開くと、フィールド名で「パラメータの入力」を求められます。何が原因かわかる方、いらっしゃったら、ご教示頂ければ幸いです。宜しくお願い申し上げます。

質問日時: 2022/09/17 17:03 質問者: nnnkukuku

ベストアンサー

4

1
お世話になっています下記データがクエリにあります。商品名 A A B B B B B C C C

お世話になっています下記データがクエリにあります。商品名 A A B B B B B C C C C 上記をレポートで印刷するとき、アルファベットの変わるところで改ペ―ジしたいと思っています。どのようなコードて書けばよいか、ご教示頂ければ幸いです。宜しくお願い申し上げます

質問日時: 2022/09/11 21:07 質問者: nnnkukuku

ベストアンサー

1

0
Access2016のExcelインポートの機能のことで教えてください

Access2016のExcelインポートの機能のことで教えてください。この度、マクロビルダーのアクション（スプレッドのインポート/エクスポート）を利用し、所定の場所にある拡張子違いのファイルをインポートできる設定ができればと思っています。本来は片方のみの設定としたい所ですが、xls,xlsx両方のパターンで元データが作成される可能性がため、いずれの場合でもインポートできるように設定しておきたいです。 ①MY DOCUMENTS内のA.xls ②MY DOCUMENTS内のA.xlsx ※両ファイルともレイアウトは同じ ※基本的には片方(xls,xlsxのうちどちらか)のファイルしか配置されない上記にように設定するには、アクションの「ファイル名」へどのような表記をすれば実施できるようになりますか。C:・・・\A.xls?、C:・・・\A.xls*等、試しましたが、いずれもだめでした。ご教示のほどよろしくお願いします。

質問日時: 2022/09/11 14:58 質問者: mame1216

ベストアンサー

1

0
capeofdragonと申します。 Access2016を使っております。あるフォームがあり、テ

capeofdragonと申します。 Access2016を使っております。あるフォームがあり、テキストボックスがあるのですが大文字のアルファベット一文字又は ✳︎、アスタリスク一文字のみで入力制限をしたいです。テキストボックスのプロパティで定型入力があり、 >L;_ とし、 >Lで半角アルファベットも大文字アルファベット変換 ;_で入力前の表示が_、アンダーバーは理解しております。 ✳︎、アスタリスクの記号も含め定型入力できないか検索しましたが良いのが出ません。プロパティの定型入力プロパティの入力規則 AccessVBA の順に又は簡便な方法が他にありましたらご教授よろしくお願いいたします。capeofdragon

質問日時: 2022/09/09 13:18 質問者: capeofdragon

解決済

2

0
Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法

Accessフォームで2つのフィールドの値を比較して、大きい方のフィールドの値をテキストボックスに作成したフィールドに表示するようにしたいです。ネットでも調べましたがうまくできませんでしたのでご教授いただきたいです。比較するフィールドは、長座体前屈1-1回目と長座体前屈1-2回目になります。表示したいフィールド：テキスト0 長座体前屈1-1回目と長座体前屈1-2回目を比較し大きい方の値をテキスト0に表示させたいです。分かる方がいましたらよろしくお願いします。

質問日時: 2022/09/09 10:50 質問者: Access苦手

解決済

1

0
access 値を分けるクエリ

「：」で区切られた値を2つに分けたいです。ﾌｨｰﾙﾄﾞ1　　　ﾌｨｰﾙﾄﾞ2　ﾌｨｰﾙﾄﾞ3 123:1-1 →　123　　　1-1 11:5-1 →　11 5-1 055:4 →　055 4 123:100 →　123 100 初心者向けにご教示頂きたいです。よろしくお願いいたします。

質問日時: 2022/09/08 21:24 質問者: tomi1196

解決済

1

0
お世話になります ACCESSを使用しています下記のクエリデータ（1）があります商品名行数 A

お世話になります ACCESSを使用しています下記のクエリデータ（1）があります商品名行数 A ２ B １ C ４ D ３このクエリを下記のようにクエリ(2)のように変更したいです A ２ A 2 B １ C ４ C 4 C 4 C 4 D ３ D 3 D 3 内容はクエリ(1)の行数の数字をクエリ(2)でその数字分複写出来ればと思っています。宜しくお願い申し上げます

質問日時: 2022/09/05 08:52 質問者: nnnkukuku

ベストアンサー

1

0
アクセス意図せずサブプロシージャを移動してしまうのを止めたい

アクセスで意図せずサブプロシージャを移動してしまうのを止めたいです。フォームに複数のサブプロシージャを作製しました。作製したものの、処理の途中で意図せず別のサブプロシージャに飛んでしまうことがあります。例えばクリック時に自動入力されるテキストボックスと、クリック時にフォームにあるテキストボックスをコピーするボタンがある時、ボタンを押すとテキストボックスのサブプロシージャに飛んでしまいます。ボタンにあるサブプロシージャのみ動作させたいとき、どのようにすればよいでしょうか？ご回答よろしくお願いいたします。

質問日時: 2022/09/02 09:19 質問者: うさぎ0122

ベストアンサー

1

0
MSaccessのレポートを開く

レポートが2種（1と2）あって、フォームから開く設定になっています。フォームの項目がAの時はレポート１を開き、Bの時はレポート2を開くような条件によって、開くレポートを自動で開くような設定（マクロなど）はできますでしょうか？

質問日時: 2022/09/01 13:16 質問者: アーロンパパ

解決済

2

0
access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい

VBA初心者です。色々調べてやってみましたがうまくいきません。どのようにすればいいでしょうか？よろしくお願いいたします ACCESSでVBAで、注文フォルダ内にある　全てのorder_2022で始まるｃｓｖファイルを Accessの　Order_2022というテーブル　にインポートするまたファイル名の末尾一部を　ファイル名というフィールド（短いテキスト型）に追加する。（またはファイルごとに番号をふる　その際はファイル名フィールドは長整数型）結果→全てのファイルはインポートできたが、ファイル名のフィールドには全て最後のファイル名が追加されるファイル名で失敗したのでファイルごとに番号を振ろうとしたが 1，2，3，4，とは振られず全て4になる（全ファイル数は4ケです） 4回ファイルがインポートされた後、最後に1回ファイル名のフィールドに追加されているようです。他に試したこと　UPDATEではなくINSERT　INTO で2種試す結果→両方とも型変換エラー DoCmd.RunSQL "INSERT INTO Order_2022(ファイル名) VALUES('" & filename & "')" DoCmd.RunSQL "INSERT INTO Order_2022(ファイル名) VALUES(" & i & ")" Public Function Import_ALLCSV_Files() 'order_2022のテーブルのデーターを削除します DoCmd.RunSQL "DELETE * FROM Order_2022" Dim myFilename As String Dim myPath As String Dim i As Integer 　　　'ファイル名用変数 myPath = "C:\Users\y\Desktop\注文\ myFilename = Dir(myPath & "order_202*.csv") i = 0 Do Until myFilename = "" i = i + 1 '注文フォルダ内にある全てのorder_2022*ファイルをOrder_2022テーブルにインポートする DoCmd.TransferText acImportDelim, "Orderインポート定義", "Order_2022", myPath & myFilename, False 'Order＿2022テーブルの　ファイル名フィールドにファイルごとの番号を追加 DoCmd.RunSQL "UPDATE Order_2022 SET ファイル名=" & i & "" 　 '実行結果　ALL　4になる、その都度更新されない最後に一回のみ更新される" ’DoCmd.RunSQL "UPDATE Order_2022 SET ファイル名='" & Right(myFilename, 6) & "' " 'ファイル名で試すも実行結果　ALL29．ｃｓｖになる　 '　次のファイル名取得　myFilename = Dir() Loop End Function

質問日時: 2022/08/31 11:11 質問者: Werthers1

解決済

1

1
Accessクエリで年月フィールドを年のみで抽出する方法について

Accessクエリで年月フィールドを使用しており、このフィールドから年のみを抽出したいです。年月フィールド名「使用年月」　記入例：34/08 これをクエリの抽出で、年：Year([使用年月])としたところ、2034と表示されてしまいました。これを34と表示されるにはどうすればよいでしょうか？分かる方がいましたらご教授ください。よろしくお願いします。

質問日時: 2022/08/29 18:10 質問者: Access苦手

ベストアンサー

2

0
アクセス where句を使用して複数条件抽出をするには

アクセスでグラフを作成しています。値集合ソースを編集、where句を使用して担当者と日付の複数条件で抽出をした結果を反映させたいと思っていますが、エラーがでてしまいました。 where句を入力しない状態では正常にグラフが表示されます。 where句を追加すると下記エラーが出てしまいます。クエリ式([発行日],[担当者名]) in ((Between [日付はじめ] And [日付終わり]), (like '*' & [担当者名選択] & '*' ))の構文エラー：演算子がありません以下エラーが出た値集合ソースです。 SELECT (Format([発行日],"'YY 年 MMM")),Count([見積ID]) AS [見積IDのカウント] FROM [T見積書] WHERE ([発行日],[担当者名]) in ((Between [日付はじめ] And [日付終わり]), (like '*' & [担当者名選択] & '*' )) GROUP BY (Year([発行日])*12 + Month([発行日])-1),(Format([発行日],"'YY 年 MMM")); 発行日のみのwhere句は正常に動作します。以下値集合ソースです。 SELECT (Format([発行日],"'YY 年 MMM")),Count([見積ID]) AS [見積IDのカウント] FROM [T見積書] WHERE [発行日] Between [日付はじめ] And [日付終わり] GROUP BY (Year([発行日])*12 + Month([発行日])-1),(Format([発行日],"'YY 年 MMM")); 複数条件で抽出する際にはinを使用すると良いと調べて使ってみたのですが、うまくいきませんでした。どのように修正すればよいでしょうか？ご回答よろしくお願いします！

質問日時: 2022/08/29 13:24 質問者: うさぎ0122

ベストアンサー

2

0
教えてください！アクセスの書式設定を保持したままエクスポートについてですが、出力ファイル名を

教えてください！アクセスの書式設定を保持したままエクスポートについてですが、出力ファイル名を＝指定フォルダ+先月（処理日が必ず1日なので、今月だと202207）+会社名 202207A社というようにしたいですが、どのようにしたらよいでしょうか？わかりにくくてすみません。

質問日時: 2022/08/29 09:49 質問者: richiha

ベストアンサー

1

0
チェックボックスにチェックが入った後の挙動

フォーム内に「出荷」というYes/No型のチェックボックスと「出荷日」というテキストボックスのフィールドがあります。レコードも複数あります。以下のコードでチェックボックスにチェックが入ると「出荷日」に当日の日付が入力されます。 Private Sub 出荷_AfterUpdate() If Me.出荷 Then Me.出荷日 = Format(Now(), "yyyy/mm/dd") Else Me.出荷日 = "" End If End Sub このチェックに全選択の機能も持たせたくボタンを増設しました。 Private Sub 全選択_Click() Dim rs As DAO.Recordset If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord Set rs = Me.Recordset.Clone Do Until rs.EOF rs.Edit rs!出荷 = True rs.Update rs.MoveNext Loop Me.Refresh End Sub 「出荷」の全チェックはうまくいきましたが、「出荷日」に日付が入力されません。どうすれば良いかわからずご質問させていただきました。お詳しい方宜しくお願いいたします。

質問日時: 2022/08/21 12:39 質問者: さわ子

ベストアンサー

1

1
アクセス有効なフィールド名、または式として認識できませんのエラー

アクセスでグラフを作成しています。日付を指定してグラフ表示をしたいと思い、グラフのSQLを書き換えたところエラーが出てしまいました。 WHERE [発行日] Between [日付はじめ] And [日付終わり]を加えて日付を指定しようとしています。・SQL書き換え前 TRANSFORM Count(*) AS [カウント] SELECT (Format([発行日],"'YY 年 MMM")) FROM [Qグラフ] GROUP BY (Year([発行日])*12 + Month([発行日])-1),(Format([発行日],"'YY 年 MMM")) PIVOT [進捗状況]; ・SQL書き換え後 TRANSFORM Count(*) AS [カウント] SELECT (Format([発行日],"'YY 年 MMM")) FROM [Qグラフ] WHERE [発行日] Between [日付はじめ] And [日付終わり] GROUP BY (Year([発行日])*12 + Month([発行日])-1),(Format([発行日],"'YY 年 MMM")) PIVOT [進捗状況]; グラフが複数有り、他のグラフも同様の書き換えをしました。他のグラフではエラーは無く動作します。・他のグラフ書き換え SELECT (Format([発行日],"'YY 年 MMM")),Count([見積ID]) AS [見積IDのカウント] FROM [Qグラフ] WHERE [発行日] Between [日付はじめ] And [日付終わり] GROUP BY (Year([発行日])*12 + Month([発行日])-1),(Format([発行日],"'YY 年 MMM")); どう修正すればよいでしょうか？ご回答よろしくお願いいたします！

質問日時: 2022/08/19 11:53 質問者: うさぎ0122

ベストアンサー

3

1
access フォーム大分類、小分類

accessフォームにリストの大分類、小分類があって【大分類リスト】【小分類リスト】大分類はテーブルから、項目を読み取っているのですが小分類の読み取り方に悩んでいます。小分類テーブルは項目＋該当する大分類があるのですがその大分類によって、選択した項目によってもう一つのリスト（小分類）の選択出来る項目を変化させていのですが vbaで、sql文実行 vbaで、クエリ実行 adoで、テーブルから読み取って、ループして該当する項目を追加みなさんは、どんな方法使いますか？ access2016です。

質問日時: 2022/08/11 18:03 質問者: ひろみch

解決済

1

0
アクセス IDが空白の時、メッセージボックスがでるようにするには

アクセスでIDのテキストボックスが空白の状態で他のテキストボックスを入力しようとした時、警告のメッセージが出るようにしたいです。下記コードです if ID = "" or null then msgbox "IDがありません" end if IDの空白が取得できないのかメッセージボックスが動きません。 IDが空白の場合、新しいレコードを開いた状態でコードを起動しています。どのように修正すればよいでしょうか？ご回答よろしくお願いいたします！

質問日時: 2022/08/04 11:06 質問者: うさぎ0122

ベストアンサー

1

0
Access の SetFocus について教えてください

単票フォームに非連結のテキストボックス「Tx_テキストA」と「Tx_テキストB」があり、 Tx_テキストA には「１～10の数値」という条件があるとします。 Tx_テキストAに数値を入力した後、更新後処理イベントで数値をチェックし、範囲外であればその旨のメッセージを出力してTx_テキストAをクリア。カーソルをTx_テキストAのままにして再度入力してもらう、という処理をしたいと思っています。 Tx_テキストAの更新後処理イベントに以下のコードを書いたのですが、メッセージボックスを閉じるとTx_テキストAはクリアされるものの、カーソルがTx_テキストBに移動してしまいます。「Me.Tx_テキストA.SetFocus」を if文の外に出しても同様なのですが、カーソルをTx_テキストAにするにはどうしたらよいのでしょうか？ちなみにタブオーダーは Tx_テキストA Tx_テキストB となっています。よろしくお願いいたします。 Private Sub Tx_テキストA_AfterUpdate() If Me.Tx_テキストA < 1 Or Me.Tx_テキストA > 10 Then MsgBox "1～10の数字を入力" Me.Tx_テキストA = Null Me.Tx_テキストA.SetFocus End If End Sub

質問日時: 2022/08/04 07:32 質問者: Sand_Dollar

ベストアンサー

5

0
Access DTPickerの初期表示月を変えたい

Access2021で作成していて、使用するのはAccess2016です。非連結のテキストコントロール「Tx_日付A」と「Tx_日付B」があります。この２つは書式：日付（S)、日付選択カレンダーの表示：日付にしてあります。２つのテキストボックスともに選択すればカレンダーが表示されるのですが、初期値として Tx_日付Aは「１カ月前」、Tx_日付Bは「１カ月後」を表示させたいと思っています。具体的には、今日が8月2日とすればTx_日付Aは 7月のカレンダー、Tx_日付Bは9月のカレンダーを表示させたいのです。ネットで調べてみたところDTPicker.Valueに初期値を設定すればよいといった記述が有ったのですが、例えば Me.Tx_日付A.DTPicker.Value=DateAdd("m", -1, Date) のようにやってもエラーが出るだけでした。また、ネット上で「DTPicker.Value」を調べてみたときに DTPicker0.Value DTPicker1.Value のように DTPicker の後ろに番号がついている記述が多くありました。この番号はDTPicker１つ１つを示しているように思えたのですが、コントロールに紐づけされているDTPickerが何番なのかを調べる方法も分かりませんでした。質問なのですが、非連結のテキストボックスでカレンダーを表示させたとき、カレンダーの初期値を１カ月前（または１カ月後）に設定するにはどうしたらよいのでしょうか？よろしくお願いいたします。

質問日時: 2022/08/02 08:55 質問者: Sand_Dollar

ベストアンサー

1

0
Accessのクエリの結果を、既存のエクセルに追加したい

Access2016を使用しています。以下のことをAccessのvbaでやりたいと思っています・クエリで抽出したレコード（複数）を、既存のエクセルに追加（コピペ）したい・エクセルには、Ａ列に「番号」（１～9999）が既に入力されていて、Ｂ列～Ｗ列まで貼り付けたい・クエリのフィールドは、貼り付け先のエクセルと同じにしています　（クエリのA列は空欄なので、エクセルの番号がそのまま残る）・例えば、エクセルＡ列の番号333までデータがある場合で、クエリの結果が３行の場合、エクセルＡ列334,3335,3336の行に、クエリの結果をＢ～Ｗ列まで貼り付けたい・クエリの結果を普通にコピペすると先頭行（フィールド名）までコピーされるが、フィールド名は不要・可能なら、その後、エクセルA列の値をクエリにコピペしたい（例だと、クエリのA列の空欄３行分に、334,335,336を張り付ける）現状では、上記を一連の流れで行うvbaがよくわからず、、ネットで調べたものを元に Set objExcel = CreateObject("Excel.Application") でクエリの結果を新しいエクセルにして出力して、それを手動でコピペしています。クエリの結果を、既存のエクセルに挿入するのは難しいのかな？と思い、クエリの結果を新しいエクセルに出力した後に、新しいエクセルを操作することで、新しいエクセルのデータを、既存のエクセルにコピペする方が良いのかな？と思ったのですが、 Access上で、新しいエクセルのデータをコピーする方法もよくわからず、困っています。どなたか教えて頂けないでしょうか

質問日時: 2022/07/31 22:44 質問者: takitaki168

ベストアンサー

2

0
Access 複数条件検索の設定が上手く行きません

画像のようにコンボ1、コンボ2、テキストボックス3という検索フォームフォームを作りました。コンボ1は会社の部署、コンボ2は所属課、テキスト3は備考、メモ欄です。検索開始をクリックしたら選択されている項目のみでレコードを表示させたいです。パターンは、コンボ1コンボ2テキスト3全て完全一致の検索。コンボ1は選択、コンボ2は未選択、テキスト3は検索範囲を絞るワードを入れる、検索。コンボ1、2が選択でテキスト3は空白で検索最後にテキスト3のみで検索。 4パターンを作れと指示があり、本を読みながら検索フォームまで何とか漕ぎ着けた初心者です。完全一致はマクロビルダーを使って出来たのですが、他のパターンがand検索にならず困っています。マクロビルダーではこれらの事をするのは難しいでしょうか？

質問日時: 2022/07/22 20:37 質問者: らむねのがむ

ベストアンサー

1

0
DoCmd.SearchForRecord が動かない時の解決方法

アクセスでフォームとサブフォームの複製をしたいです。下記の様にコードを作成しましたが動作しません。確認すると DoCmd.SearchForRecord の部分で、レコードの移動が出来ていませんでした。 DoCmd.SearchForRecord の部分だけ切り抜いて動作させた所、問題なく動きました。 DoCmd.SearchForRecord が動かない時、どんな原因が考えられるでしょうか？ご回答よろしくお願いします！下記コードです。 Dim db As DAO.Database Dim rs As DAO.Recordset Dim rl As DAO.Relation Dim maxnumber As Integer: maxnumber = 0 Dim a As Variant Dim c As Variant Dim vsql As String Dim x As Variant a = 見積ID c = Me!Frm見積書明細.Form.Recordset.RecordCount Set db = CurrentDb Set rs = db.OpenRecordset("T見積書") Do Until rs.EOF = True If rs!見積ID > maxnumber Then maxnumber = rs!見積ID End If rs.MoveNext Loop x = maxnumber + 1 DoCmd.RunCommand acCmdSelectRecord 'カレントレコードの選択 DoCmd.RunCommand acCmdCopy '選択レコードのコピー DoCmd.GoToRecord , , acNewRec '新規レコードに移動 DoCmd.RunCommand acCmdSelectRecord 'カレントレコードの選択 DoCmd.RunCommand acCmdPaste 見積ID = x ↓ここの移動ができません DoCmd.SearchForRecord , , acFirst, "見積ID ='" & a & "'" Me!Frm見積書明細.SetFocus 'サブフォームにフォーカスを移動 DoCmd.RunCommand acCmdSelectAllRecords 'すべてのレコードを選択 DoCmd.RunCommand acCmdCopy '[コピー]を実行 DoCmd.SearchForRecord , , acFirst, "見積ID ='" & x & "'" Me!Frm見積書明細.SetFocus DoCmd.RunCommand acCmdPasteAppend 'コピーレコードの追加貼り付け vsql = "update T見積書明細 " vsql = vsql & " set 見積書ID = '" & x & "'" vsql = vsql & " where 見積書ID is null" db.Execute vsql, dbFailOnError

質問日時: 2022/07/22 15:31 質問者: うさぎ0122

解決済

3

0
Access 登録ボタンからサブフォームの更新

Access勉強中の初心者です。情報入力用のフォームを作っていて、登録ボタンを押すとテーブルに保存されるように作りました。入力用フォームの下部にサブフォームでテーブルを表示しています。登録ボタンを押すと、テーブルには保存されるのですが、いくつかデータを登録してみても、サブフォームのテーブルには、最初の1行しか表示されません…（一度閉じたりしても変わりませんでした）理想としては、情報を入力して、登録ボタンを押したと同時に、サブフォームにも表示されて欲しい（自動的に更新されてほしい）のと、できれば、サブフォームで選択すると入力フォームにあがって、修正や削除も行いたいです。（ボタンだけは作っています）色々調べながら作っていて、知識不足で大変申し訳ないのですが、ご教授いただきたいです。よろしくお願い致します。

質問日時: 2022/07/22 10:23 質問者: まき0616

解決済

1

0
Accessフォームで複数条件でフィールドの値を表示する方法

Accessのフォームで複数条件でフィールドの値を表示する方法を教えてほしいです。フィールドは以下のようになっています。氏名CD 氏名部課CD 所属性別　　握力右握力左握力平均握力得点 ※その他フィールドは省略今回フォームで表示したいのが「握力得点」フィールドの値で、性別が「男」でかつ握力平均が0～31のとき、握力得点は「1」性別が「男」でかつ握力平均が32～36のとき、握力得点は「2」性別が「女」でかつ握力平均が0～18のとき、握力得点は「1」性別が「女」でかつ握力平均が19～20のとき、握力得点は「2」と表示されるようにしたいです。「性別は」すでに入力済で、「握力平均」の値を入力すると「握力得点」に自動で値が入るようにしたいです。説明が下手で申し訳ございませんが、わかる方がいましたら教えてほしいです。よろしくお願いします。

質問日時: 2022/07/21 10:47 質問者: Access苦手

ベストアンサー

4

0
Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について

Accessで体力テストの結果入力を作成しています。体力テストの測定者やその他基本情報を登録する「測定者テーブル」と測定者の結果や得点、実施日などを入力した「結果テーブル」の２つを作成し、テーブルの結合を行いました。テーブルの内容は以下の通りです。「測定者テーブル」 ※氏名CDでテーブルの連結をしています　　　　　　　　氏名CD(短いテキスト)※主キー氏名(短いテキスト) 部課CD(短いテキスト) 職場(短いテキスト) 生年月日(日付/時刻型) 性別(短いテキスト) 身長(短いテキスト) ※その他フィールドは省略します「結果テーブル」氏名コード(短いテキスト) 実施日(日付/時刻型) ※最大5回分まで入力します握力右(数値型) 握力左(数値型) 握力平均(数値型) ツーステップ測定値１回目(短いテキスト) ツーステップ１回目(短いテキスト) ツーステップ測定値2回目(短いテキスト) ツーステップ２回目(短いテキスト) ※その他フィールドは省略しますこの２つのテーブルを連結しフォームを作成しました。測定者に１人につき最大5回体力テストを受けます。今回やりたいことフォームでツーステップ1回目、ツーステップ２回目の値を表示したいのですが、求め方がツーステップ測定値１回目÷身長で表示されるようにしたいのですが、nameと表示されてしまいます。別々のテーブルのフィールドを使って表示することは可能でしょうか？もし表示する方法があれば教えてほしいです。よろしくお願いします。

質問日時: 2022/07/20 19:43 質問者: Access苦手

解決済

2

1
Accessのスプレッドシートエクスポートで、シートが追加されてしまう

こんにちは。 Accessのマクロ作成で、或るクエリの結果を既存のExcelファイルの特定のシート（例として、「クエリ」というシートとします。）にエクスポートしたいのですが、何故か「クエリ1」というシートが新規作成され、そこにエクスポートされてしまいます。フィールド名も合わせています。解決策を〜… 教えてGoooo！

質問日時: 2022/07/16 21:45 質問者: gorilla39

ベストアンサー

2

0
アクセスステップインのやり方

アクセスのステップインのやり方について教えてください。ステップインをするとエラー音がなって動作しません。ショートカットキーを有効にしてF8を押したり、デバッグ→ステップインをクリックしたり、ブレークポイントを設置してみたりしたのですが上手くいかず・・・原因をご存じの方いらっしゃいましたら教えてください！よろしくお願いします！！

質問日時: 2022/07/12 11:42 質問者: うさぎ0122

ベストアンサー

9

0

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

【Access（アクセス）】に関する回答募集中の質問

access2021 印刷プレビューでの＃エラーや＃Tpye!といったエラーが表示
- 質問日時： 2024/04/19 15:57
- 質問者：シュウ11

Access（アクセス）の回答募集中の質問一覧

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

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

質問する（無料）

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

フキノトウ、ワラビ、タラノメなどの「山菜」を若い人は知らない？食べたことない？

春の訪れと共に、八百屋やスーパーには様々な種類の野菜が並ぶ。春野菜といって思い浮かぶのは、「春キャベツ」や「春タマネギ」という人が多いだろう。一方で、「フキノトウ」「ワラビ」「タラノメ」など、かつて春...
摘発相次ぐ「モペット」法律的な問題点を弁護士に聞いてみた

電動モーターを搭載し、走行可能な二輪車である「モペット」に関する交通違反が増加しているため、警視庁は10日、東京の渋谷で取り締まりを行った。警視庁によると、昨年、東京都内で「モペット」と呼ばれる電動モー...
メダロット：第238話「Vol．238※期間限定公開」

天才メダロッター六葉カガミの戦いを描く「メダロット再～リローデッド～」(漫画：伯林、監修：イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
寒暖差疲労の予防・改善には「入浴」がおすすめ？ポイントと効果を専門家にきいてみた

季節の変わり目になると、体調を崩す人が少なくない。その原因のひとつは「寒暖差疲労」だといわれている。一日の気温差が7℃以上になると、体温調節を担う自律神経が過剰に働くので、冷え症、肩こり、頭痛、全身倦怠...