Access（アクセス）

Microsoft Accessでフォームを作っています。テーブル１とテーブル２があり、レコードソースはテーブル１に設定していますが、フォームの１項目のみテーブル２を参照したいです。どんな設定にすればよいですか。 レコードソースは「駅時刻リスト」、画像の「列車名」は直接入力、「列車コード」は「駅時刻リスト」を参照、「完了フラグ」のみ「素列車リスト」から参照

Accessでフォームを作っています。テキストボックス「列車名」に文字列を入力するとコンボボックス「列車コード」のデータが絞り込まれるようにVBAコードを書いていますが、「列車名」を空欄にすると「列車コード」の2列目が表示されません。表示されるようにするにはどうすれば良いですか。

Microsoft Accessでフォームを作りました。コンボボックス１の値はテーブル１から参照するようになっています。このフォームにボタンを追加して、ボタンを押すとコンボボックスの値が一つ下の値に移動するようにしたいです。どんなコードを書けば良いですか。

例えば、100種類位の商品があります。それぞれ登録番号、品名、単価が、設定されてます。約500人ほどの購入者を募ります。購入数は一人で5種類まで、一種類の購入数は、3個までとします。販売毎にカード型データベースで、購入者情報と販売情報を入力します。販売終了後エクセルで集計し、調整後カード型データベースに戻す事とします。このようなタスクに、エクセルと相性の良いカード型データベースを教えて下さい。ただし、エクセルは、ある程度使えますが、カード型データベースは、使った事ありません。

ExcelからAccessにデータをインポートしようとしていますが、複数の値を持つデータのインポートができません。 画像のデータをインポートするにはどうすれば良いですか。（「列車コード」が複数データ） 適当に調べて「VBAを使う」というところまでは理解しました。

Microsoft Accessでデータベースとフォームを作っています。 テーブル１ 記号　列車名 いよ　いよ１号 いよ　いよ２号 いよ　いよ３号 とさ　とさ１号 とさ　とさ２号 とさ　とさ３号 というテーブルを作ってあります。（実際は１００件以上あります） フォームのテキストボックスに「いよ」と入力すると、プルダウンから「いよ１号」「いよ２号」「いよ３号」が選択できるようにしたいですが、どんなフォームを作れば良いですか。

Microsoft Access で作ったデータベースファイルを社内で共有する方法を教えてください。全員がMicrosoftアカウントを持っていて、共有のSharePoint、Teams、Outlookがあります。

AccessRuntime(2016 64bit)メニューバー（ファイル、実行したい作業を入力してください..と表示されているバー）と閉じる（×）や元のサイズに戻す、最大化が表示されているエリアを非表示または無効化したいです。 show toolberでリボンは非表示（Runtimeはもともとリボンがありませんが）くらいしか情報が見つからず教えていただけますでしょうか？？

　いつもお世話になっております。 　アクセスレポートの「セクション繰り返し」についてお聞きいたします。 　グループ化した項目名をグループヘッダー0セクションにテキストボックスを配置して、「セクション繰り返し」を「はい」にし、印刷した際はそのグループ化した項目名がグループ化した全ページに印刷なるようにしました。 　また、当該レポートではグループ化を２つしており、最初のグループ化（グループヘッダー0）で連番をふっています。 この最初のグループ化に連番をふるモジュール等は次のとおりです。 １　詳細セクションに非連結の「通し番号_GP」を配置し、ここにグループ化ごとの連番が表示なるようにしています。 ２　グループヘッダー0セクションのフォーマット時に下記のモジュールを配置しています。 　Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer) 　Me!通し番号_GP = 0 　End Sub ３　詳細セクションのフォーマット時に下記のモジュールを配置しています。 　Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) 　If FormatCount = 1 Then 　Me!通し番号_GP = Me!通し番号_GP + 1 　End If 　End Sub 　ここで、グループヘッダー0の「セクション繰り返し」を「はい」にして印刷をすると、１ページ目は正しく連番になるのですが、２ページ目になると0から始まってしまい、連番でなくなってしまいます。 　また、グループヘッダー0の「セクション繰り返し」を「いいえ」にして印刷をすると、今度は正しく次のページも連番となります。 　別のグループ化のページになった際も、正しく１から始まり連番となります。 　このように上手く連番がふることができず困っています。 　希望する形としては、グループ化した名称がグループ化した全ページに印刷になること、さらにこのグループ化ごとの連番が次のページになっても正しく表示されることとなります。 　上手く説明ができませんが、どうぞご教示くださいますようお願いいたします。

現在 フォームのテキストボックスに入れた値をレポートのテキストボックスに表現していますが 例えば フォームのテキストボックスの値 を1とした時 レポートの値 １月分 と表示しています フォームのテキストボックス値が空白の時にレポートの値も 空白にしたいのです 現在のままですと 月分 の文字だけが残ってしまいます 何方かご指南ください 使用環境は Windows10 Office2019です よろしくお願い致します

Microsoft Access のVBAで、メインフォームで条件を設定するとサブフォームがフィルターされて開くというVBAを作っています。 SQL文を「SQLCode」という文字列型変数に入れました。 具体的には以下の内容がSQLCodeに入っています。 [担当者]=[Forms]![検索]![担当者] この変数をフォームにフィルターをかけて開くコードに入れたいのですが、以下の？の部分を教えてください。 Me!Fサブフォーム.Form.Filter. = ? Me!Fサブフォーム.Form.FilterOn = True

いつもお世話になっております。 AccessのVBAから開いているエクセル（代理店別進捗）の1行目の右側に2列を挿入をしたいのですが、下記のエラーが出てしまいました。 ＊プログラムはとりあえず1列追加してみようと思って作ってます。 【エラー内容】 予期せぬエラーが発生しました。 エラーナンバー：424 エラー内容：オブジェクトが必要です。 '代理店別進捗の操作 Dim intColumn As Long ’1行目の左の列番号取得 intColumn = xlWB.Worksheets("代理店別進捗").Cells(Columns.Count).End(xlToLeft).select '取得した列番号に列挿入 xlWB.Worksheets("代理店別進捗").Columns(intColumn).insert

Accessの複数のテーブルを1つの既存のエクセルに出力したのですが、どのようにしたらいいのでしょうか？ 試しにDO～LOOPのしたにDO～LOOPをもう1つ追加してみたところ、 エラーナンバー７５ オブジェクトが開いている場合は、操作は許可されません。 と表示されます。 Private Sub コマンド144_Click() On Error GoTo Err_FileDialog_Click Dim strsql1 As String Dim strsql2 As String Dim strsql3 As String Dim strsql4 As String Dim strTemplate As String Dim strFileName As String Dim ExpFileName As String Dim xlapp As Object Dim xlWB As Object Dim myCn As New ADODB.Connection Dim myRs As New ADODB.Recordset 'ExportData削除 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE from T_EDI_01_CVJ" DoCmd.RunSQL "DELETE from T_EDI_02_OU" DoCmd.RunSQL "DELETE from T_EDI_03_EDI_CUSTOMER" DoCmd.RunSQL "DELETE from T_EDI_04_CUSTOMER" DoCmd.SetWarnings True 'Export用クエリ実行 DoCmd.SetWarnings False DoCmd.OpenQuery ("D_EDI_01_CVJ2") DoCmd.OpenQuery ("D_EDI_02_OU2") DoCmd.OpenQuery ("D_EDI_03_EDI_CUSTOMER2") DoCmd.OpenQuery ("D_EDI_04_CUSTOMER2") DoCmd.SetWarnings True 'ﾌｧｲﾙ名作成 ExpFileName = "FY24_03_CVJ_EDI" & "_" & Format(Date, "yyyymmdd") strFileName = GetFileName(False, "MicrosoftExcel ブック (*.xlsx)|*.xlsx", "", ExpFileName & ".xlsx") 'EXCELｱﾌﾟﾘｹｰｼｮﾝを起動 Set xlapp = CreateObject("Excel.Application") Set myCn = CurrentProject.Connection strsql1 = "T_EDI_01_CVJ" strsql2 = "T_EDI_02_OU" strsql3 = "T_EDI_03_EDI_CUSTOMER" strsql4 = "T_EDI_04_CUSTOMER" 'ﾚｺｰﾄﾞｾｯﾄｵｰﾌﾟﾝ myRs.Open strsql1, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql2, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql3, myCn, adOpenForwardOnly, adLockReadOnly ' myRs.Open strsql4, myCn, adOpenForwardOnly, adLockReadOnly With xlapp 'ﾃﾝﾌﾟﾚｰﾄを開く strTemplate = Application.CurrentProject.Path & "\" & "FY24_03_xxx_CVJ_EDI.xlsx" Set xlWB = .Workbooks.Open(strTemplate) 'ﾃﾝﾌﾟﾚｰﾄﾌｧｲﾙが存在しないときはｴﾗｰ If Dir(strTemplate) = "" Then MsgBox "テンプレートファイルを確認してください。", vbOKOnly + vbCritical, "エラー" .Visible = True .Quit Exit Sub End If 'ﾃﾝﾌﾟﾚｰﾄﾌｧｲﾙｵｰﾌﾟﾝ .Workbooks.Open strTemplate 'T_EDI_01_CVJの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ xlWB.Worksheets("CVJ").Rows(2).Insert xlWB.Worksheets("CVJ").Cells(2, 1).CopyFromRecordset myRs ' 'T_EDI_02_OUの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("CVJ OU別").Cells(2, 1).CopyFromRecordset myRs ' 'T_EDI_03_EDI_CUSTOMERの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("代理店別EDIデータ").Cells(2, 1).CopyFromRecordset myRs ' ' 'T_EDI_04_CUSTOMERの結果値出力処理(1行目にﾍｯﾀﾞｰを表示しているので、2行目1列目からｾｯﾄ ' xlWB.Worksheets("当月全代理店事業部別データ").Cells(2, 1).CopyFromRecordset myRs Dim I As Long I = 2 xlWB.Worksheets("CVJ").Activate Do While xlWB.Worksheets("CVJ").Cells(I, 1) <> "" I = I + 1 Loop '完了したら保存 If Len(strFileName) = 0 Then xlWB.Close SaveChanges:=False xlapp.Quit MsgBox "処理を中止します。", vbOKOnly + vbInformation Exit Sub Else xlWB.SaveAs FileName:=strFileName End If MsgBox "TX Shuttle用ファイルの出力が完了しました。", vbOKOnly + vbInformation End With Set myRs = Nothing: Close Set myCn = Nothing: Close 'Excelを終了します xlapp.Quit Exit Sub Exit_FileDialog_Click: Exit Sub Err_FileDialog_Click: MsgBox "予期せぬエラーが発生しました" & Chr(13) & _ "エラーナンバー：" & Err.Number & Chr(13) & _ "エラー内容：" & Err.Description, vbOKOnly End

Microsoft Access でマクロ（VBAではない）を制作しています。「検索画面」フォームに情報を入力して「検索実行」を押すと「全項目」フォームがフィルターされて表示するようにしたいです。 制作したマクロ① フォームを開く　フォーム　全項目　Where条件式　[投稿者]=[Forms]![検索画面]![投稿者] 制作したマクロ② ローカル変数の設定　変数名　[SQLCode] 値の代入　変数　[LocalVar]![SQLCode]　値　"[投稿者]=[Forms]![検索画面]![投稿者]" フォームを開く　フォーム　全項目　Where条件式　[LocalVar]![SQLCode] ローカル変数の削除　変数　[LocalVar]![SQLCode] このマクロを実行したところ、マクロ①は正しく実行されましたが、マクロ②はフィルターされずにフォームが表示されました。 どこを直せば良いのか教えてください。

Microsoft Access でマクロ（VBAではない）を作っています。「検索フォーム」の「投稿者」のコンボボックスに検索条件を入力して「検索」ボタンを押すと「全項目」フォームがフィルターされて開くようにしたいです。 作ったマクロの手順 一時変数の設定[EmpireloyeeName] 値の代入　アイテム[Tempvars]![EmpireloyeeName] 式[Forms]![全項目]![投稿者]="&[投稿者] メッセージボックス　=[Tempvars]![EmproyeeName] フォームを開く　フォーム名　全項目　Where条件式　=[Tempvars]![EmproyeeName] このようにマクロを組みましたが、開いたフォームがフィルターされていません。全て表示されます。 エラーは出ません。 途中のメッセージボックスで表示されるメッセージは [Forms]![全項目]![投稿者]=山田 と表示されます。 どこが間違っているのか教えてください。

クエリで、29行前のレコードを取得したいのですが、検索してもこの内容の2行以上前の値を取得する方法が出てきません。 例> 1　りんご　2 2　みかん　6 3 4 ・ ・ 29 30　りんご　5　2 31　みかん　3　6 30行のりんごの値5の隣のフィールドに29行前のりんごの値2を表示 31行のみかんの値3の隣のフィールドに29行前のみかんの値6を表示 ご教授頂ければ幸いです。 ver.Access2019

Microsoft Accessのマクロでパラメータークエリを実行する方法を調べると、VBAで実行する方法しか出てきませんが、マクロではできないでしょうか。 検索フォームに条件を入力して検索するマクロを作りたいです。

MicrosoftのExcelとAccessですが、プライベートでも両方使ってる人ってどんな風に使い分けてますか？ 自分も自宅のPCに両方入ってるんですけど、AccessでできることってたいていExcelでもできるんでExcelばかりです。 ただ、Accessも少し勉強してみると便利そうな気もして使ってみたいんですよね。 でもプライベートだと家計簿ぐらいですかね？ 何かコレクションしてるものでもあればそのデータをまとめるのに使えそうですが、そこまで大量にコレクションしてるものなんてないしなぁ… やっぱりAccessは仕事以外では使い所はない？ プライベートでExcelも使ってるけど、こういうときはAccessにしてるという人はいますか？ どんな風に使い分けてますか？

初めまして。 Accessのクエリにパラメータを渡して実行したいのですが、上手くいきません。 ■クエリの中身 SELECT B.aaa AS test_1, B.bbb AS test_2, B.ccc AS test_3, INTO Atbl IN @prm FROM Btbl; 上記「＠prm」には「C:\work\test..accdb」が入ります。 このファイルパスをパラメータで渡したいのですが クエリを保存し閉じると、以下のようにシングルクォーテーションが付いてしまいエラーとなります。 INTO Atbl IN '@prm' どなたかこちらを解決できる方法をご教示いただければと思います。 よろしくお願いいたします。

ACCESSのパラメータークエリで、入力する値をプルダウンから選択するにはどうすれば良いですか。頑張って調べても説明が適当だったり自己解決したりで意味不明です。 以下データベースの概要 ファイル名　データベース1 テーブル　T会社リスト 列　ID　会社名　都道府県　代表者　業種 クエリ　Q会社リスト 列　会社名　都道府県（パラメーター） フォーム　F会社リスト 項目　会社名　都道府県 フォームを開くとパラメーター入力画面が出ますが、そこで都道府県（パラメーター）をプルダウンから選択するようにしたいです。