Access（アクセス）

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

回答数

気になる

アクセスクエリで教えて下さい！ Q_1 に商品番号商品名 S-1256 えんぴつ S-5236

アクセスクエリで教えて下さい！ Q_1 に商品番号　商品名 S-1256 えんぴつ S-5236 けしごむ E-5214 定規 EIANO えんぴつがあったとき、連番をつけたいのですが、どのようにしたらよいでしょうか？

質問日時: 2024/04/25 20:44 質問者: richiha

回答受付中

1

1
Accessでフォームに自動入力した内容をテーブルに反映させる方法はありますか？

Access microsoft365 64bitを使っています。毎日の取引をフォームに入力して、入力した内容をテーブルに蓄積→特定のフィールドを抜き出した異なる２つのクエリを出力したいと考えています。現在フォームを作成し、テーブルにレコードを追加するためのボタンを設置しているのですが、困っていることがあります。それは、直接入力またはコンボボックスで選択した項目についてはテーブルに追加されるのですが、コンボボックスで選択した項目を元に自動入力された値については追加されない、ということです。現在は、添付画像１のように自動入力されるようにしていますが、これが原因でしょうか？そもそも自動入力された内容は、仕様上テーブルに反映することはできないのでしょうか？私のやっていることはAccessよりExcel向きな気もしています。完全に行き詰ってしまっているのでなにかご助言をいただけますと助かります。。。

質問日時: 2024/04/25 12:14 質問者: ほお骨くん

回答受付中

1

1
Access Error3061 パラメータが少なすぎます。４を指定してください。

VBA初心者です。下記VBEを実行すると　【Error3061 パラメータが少なすぎます。４を指定してください。】が表示されます。「４を指定してください。」の解決方法は余り出ていないですのでよろしくお願いします。　　　　 '読み込み時に初期化のプロシージャ呼び出す Private Sub Form_Load() 'フォーム詠み込み時 Call initializeForm '初期化 End Sub Private Sub btn_新規_Click() 'btn_新規クリック時 Call initializeForm '初期化 End Sub 　　　　　 '新規ボタンからに初期化のプロシージャ呼び出す Private Sub initializeForm() '初期化 Me.txt_No.Value = Null 'txt_Noを空に Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーを空に Me.txt_機種品番.Value = Null 'txt_機種品番を空に Me.txt_機種品番コード.Value = Null 'txt_機種品番コードを空に Me.btn_追加.Enabled = True 'btn_追加ボタンを使用可能に Me.btn_更新.Enabled = False 'btn_更新ボタンを使用不可に Me.btn_削除.Enabled = False 'btn_削除ボタンを使用不可に Me.txt_機種品番コード.Enabled = True 'txt_機種品番コードを使用可能に End Sub 　　　　　 '読み込みを行なう Private Sub btn_読込_Click() 'btn_読込ボタンクリックしたとき Call LoadForm 　　 '読込呼出し End Sub Private Sub LoadForm() '読込処理 If IsNull(Me.txt_機種品番コード.Value) Then Exit Sub '機種品番コードが空なら終了 Me.txt_No.Value = Null 'txt_Noをクリア　（前のデータが残らないように) Me.txt_機種品番カテゴリー.Value = Null 'txt_機種品番カテゴリーをクリア Me.txt_機種品番.Value = Null 'txt_機種品番をクリア On Error GoTo ErrorHandler Dim strSQL As String strSQL = _ "SELECT fid_No, fid_機種品番カテゴリー, fid_機種品番 " & _ "FROM MT_機種品番 " & _ "WHERE fid_機種品番コード = '" & Me.txt_機種品番コード.Value & "';" 'SQLを作成 Dim daoDb As DAO.Database Set daoDb = CurrentDb Dim daoRs As DAO.Recordset Set daoRs = daoDb.OpenRecordset(strSQL) If daoRs.BOF = True And daoRs.EOF = True Then MsgBox "対象レコードがありません。", vbInformation, "確認" GoTo Finally 　　　　　 'レコードがなければ終了 End If Me.txt_No.Value = daoRs!fid_No '抽出したレコードをテキストボックスへ Me.txt_機種品番カテゴリー.Value = daoRs!fid_機種品番カテゴリー Me.txt_機種品番.Value = daoRs!fid_機種品番 Me.btn_追加.Enabled = False 'btn_追加ボタンを使用不可に Me.btn_更新.Enabled = True 'btn_更新ボタンを使用可能 Me.btn_削除.Enabled = True 'btn_削除ボタンを使用可能 Me.txt_機種品番コード.Enabled = False 'txt_機種品番コードを使用不可 GoTo Finally ErrorHandler: 'エラートラップ MsgBox "Error #: " & Err.Number & vbNewLine & vbNewLine & _ Err.Description, vbCritical, "エラー" Finally: If Not daoRs Is Nothing Then daoRs.Close Set daoRs = Nothing End If If Not daoDb Is Nothing Then daoDb.Close Set daoDb = Nothing End If End Sub

質問日時: 2024/04/12 14:29 質問者: kuri2422

解決済

3

0
AccessVBAについてテーブルの値が空白の場合、直近のデータで空白を埋めるには

質問事項が分かり辛く申し訳ありません。テーブルのIDは昇順で入っている状態です。具体的には、以下の様な場合です。区分CD　　　　　　　会社名　 --------　　　　　　----------- 1100 　　　　　　　A社　　　　　　　　　　A社　　　　　　　　　　B社　　　　　　　　　 B社 1200 　　　　　　　A社　　　　　　　　　　C社　　　　　　　　　　A社　　　　　　　B社　　　　上の状態から下の状態にしたいです。区分CD　　　　　　　会社名　 --------　　　　　　----------- 1100　　　　　　　　A社 1100　　　　　　　　A社 1100　　　　　　　　B社 1100　　　　　　　　B社 1200　　　　　　　　A社 1200　　　　　　　　C社 1200　　　　　　　　A社 1200　　　　　　　　B社　　　　上記の状態に出来ないでしょうか？以前の質問からhttps://oshiete.goo.ne.jp/qa/11811376.htmlを参考にしましたが、こちらは下から上に埋める仕様となっており、いろいろ試しましたが上手くできませんでした。

質問日時: 2024/02/29 17:02 質問者: VBA初心者です

ベストアンサー

1

0
access2019をダウンロードしてもファイル形式が旧式になってしまう

お世話になります。 access2013からaccess2019の移行の為、2019をダウンロードしました。同時に新しいパソコンになるのでaccessは2019のみダウンロードしてある状態です。しかし、新しいデータベースの作成を行おうとするとファイル形式が2007-2016になってしまい、2019の選択が出来ません。アンインストールと再インストールを試しましたが同じ症状がでてしまい改善しませんでした。どんな原因が考えられますでしょうか？ご回答お待ちしております。

質問日時: 2024/02/12 16:27 質問者: うさぎ0122

解決済

1

0
ACCESS VBA でのエラー解決の根拠がわかりませんエラー「イベントプロパティに指定した式・・

ACCESSで開こうとしたときに「イベントプロパティに指定した式　開く時でエラーが発生しました：Sub または Function が定義されていません」のエラーが発生しましたコマンドボタンから未設定のイベントプロシージャをいったん開き削除しましたそれからエラーはでなくなったのですがなぜ　解決したのかわかりません　エラーの原因と解決の根拠がお分かりの方　教えてください

質問日時: 2024/02/07 12:11 質問者: T.Hori

ベストアンサー

1

0
accessの代わりになるもの

巨大なDBは使いません。中小企業の管理システムを作りたいです。昔からACCESSを使っていしました。大きくなってきたらSQL Serverとリンクしました。 accessの弱点はブラウザベースができないです。これを補うのはキントーン、、PigeonCloudなどがあるよあです。キントーンは昔体験版使いましたが、簡単にできる反面細かいところは出来ません。それとaccessで優れているのはVBAが使えること、例えば納入先がブランクだったらメッセージをだしたり、デフォルトの納入先を入れられること。そして一番なのは、結構こだわった帳票が出来ることです。例えば納品書など。複数行書けて、ヘッダフッタ、ハンコ(グラフィック合成)とかもできるやつです。添付ファイルも使えるのは便利でした。ブラウザベース、またはスマホ、タブレットベースでも動作し、こだわった帳票までできるようなシステムありませんか？

質問日時: 2024/01/21 19:02 質問者: 5S6

ベストアンサー

1

0
Access VBA [リモートサーバーがないか使用できる状態ではありません]

Access VBA で　Excel のシートにAccess のテーブルの内容をエクスポートする記述で３ヶ月ほど順調に動いていたのですが年明けよりタイトルのようなエラーがでますしかし　VBAエディターでブレークポイントを指定して1ステップずつ処理すると正常に終わりますコマンドボタンから実行すると必ず出ますこのような症状で思い当たる原因と対処法がおわかりの方がいらっしゃいましたら教えていただきたいと思います　よろしくお願いします

質問日時: 2024/01/21 11:59 質問者: T.Hori

ベストアンサー

5

0
Accessのフォーム上のテキストボックスの０を表示したくない

Accessのフォーム上のテキストボックスの０を表示しない方法として、書式に＃を入力するという方法は見つけました。テキストボックスには名前などの文字列を入力したいです。#だと数値しか入力ができないので、書式を空白にすると０が表示されてしまいます。文字列を入力できるテキストボックスのクリアな状態で0を表示させない方法はありますか？

質問日時: 2024/01/09 01:48 質問者: 人生カウンセラー

解決済

3

0
Access VBA でHTML文を表示したい

普通のエディターで文章を書き、HTML形式で "E:\Temp\test01.html" に保存しています。サーバーにアップするつもりはなく、ただハードディスクに保存しているだけです。これをAccessのボタンを押せば表示するようにしたいのですが、VBAの記載がわかりません。どなたか教えていただけませんか

質問日時: 2024/01/08 05:56 質問者: Star-X

ベストアンサー

2

2
日付のテキストボックスに（例）2024/01/ と入力すると「入力した値が正しくありません」を回避

日付のテキストボックステーブルのデータ型日付/時刻型フォームを作成し、末尾の１を消したとします（例）2024/01/0 と入力して、Enterすると、このフィールドに入力した値が正しくありません。と表示されます。 Deleteで消して、何も入力していない状態で閉じると、フィールドに値を入力してください。と表示されます。 2024/01/0 と入力しても、メッセージが表示されることなく DoCmd.Close できる方法は、ありませんか？

質問日時: 2024/01/04 17:14 質問者: yoscc

ベストアンサー

1

0
accessでlaccdbファイルが削除できずファイルが使えない

office 2021 proffesionalのaccessを使っています。データベースを分割して複数台のPCで作業していた所突然フリーズし、使えなくなりました。accessを強制終了したら、拡張子がlaccdbのファイルが作られて削除できず、ファイルも開けない状況です。 accessのファイルをバックアップアップから複製し、名前を付けて保存しようとしたり、データベースの最適化をしようとすると画面右下に「テンポラリオブジェクトを削除しています」と出て、そこで動作が停止してしまいます。データベースの分割をやめてBEとFEのファイルをひとつにしても変わらずです。原因と解決策をご存知でしたら教えて頂きたいです。

質問日時: 2023/12/13 19:40 質問者: なななおー

解決済

1

1
accessのフォームに設置したボタンからレポートの印刷プレビューが表示されなくなった

office proffessional plus 2021のaccessを使っています。フォームに設置したボタンをクリックすると、 A4サイズのレポートの印刷プレビューをDoCmd.OpenReportで開くようにしてあったのですが、開かなくなりました。他のフォームに設置した別のレポートを開く印刷ボタンも同様に機能しておりません。原因はとある会社のラベルプリンターのドライバーをインストールしたのが、原因かと思われます。ドライバーをアンインストールすると上記の症状はなくなりました。ただ、このプリンタードライバーを入れた状態でもラベルサイズ(30mm x 6mm)のレポートであればボタンクリックで開くことができています。解決策をご存知でしたら、教えて頂きたいです。

質問日時: 2023/12/08 13:00 質問者: なななおー

ベストアンサー

2

0
AccessのDBを理解するコツは？

社内の担当者が逃亡し、既存のAccessのDBを管理する羽目になりました。 Accessは表面的に利用はしていましたが、テーブルやクエリの構造理解、フォームやページの管理となると難題です。テーブルにカーソルで触れるとデータを移動とか並びを変えてしまったかと冷や汗が出ます。質問です。 Accessを利用している方々は、例えばネットのテンプレファイルや他者が作成されたファイルの中身、テーブルやクエリの関係性を理解する際、コツや、必ず行っていること（例えば図に起こすとか・・・）などあるのでしょうか。

質問日時: 2023/11/30 18:58 質問者: tebentou

解決済

4

0
テーブルとクエリの相関図は表示できますか

昔ファイルメーカーを使用していた時の話ですが、複数のテーブルのリレーショナルの相関図みたいなものが表示できました。テレビドラマ等の人物相関図みたいなものです。現在のAccessで、どのテーブルのどのフィールドを参照してクエリにしたというような情報を、前述した相関図や一覧表のように表示する機能はあるのでしょうか。 Accessのファイルの中身を調査し整理する命令を受けたのですが、なかなか複雑で苦戦しています。

質問日時: 2023/11/29 17:59 質問者: tebentou

ベストアンサー

1

0
VBA Excelファイルの保存先を変更したときのコピペについて

VBAについて質問です。定期的にBook1からBook2へコピペする作業があるのですがBook1が現在デスクトップにあります。これを他の場所（例えばドキュメント）に保存した際にもコピペ出来るようにしたいのですが以下のどの部分にどのように追加すれば良いのでしょうか。現在以下のようになっています。 Sub 助() ' 助 Macro Dim FilePath As String FilePath = ThisWorkbook.Path Workbooks.Open FilePath & "Book1.xlsx" Workbooks("Book1.xlsx").Sheets(1).Range("A1:J13").Copy _ Workbooks("Book2.xlsm").Worksheets("sheet１").Range("A1") Workbooks("Book1.xlsx").Close savechanges:=False End Sub 宜しくお願いします。

質問日時: 2023/11/27 16:41 質問者: 19730928

解決済

1

0
アクセスで作成したマクロの印刷方法

アクセスでマクロを作成した場合、マクロの内容をチェックしたり後から変更したいときに備えて，マクロを印刷しておきたいことって有ますよね。そんな時、皆さんはどうしていますか？

質問日時: 2023/10/26 14:42 質問者: M.Ando

解決済

1

1
Microsoft365の outlookについて

Microsoft 365 を使用しており、その中に OutLookがあります。タククバーに　Microsoft Edgeにメールが来たら点滅するか？音を鳴らす事できますか？画面表示でも・・？設定でできますか？よろしくお願いいたします。

質問日時: 2023/10/20 15:56 質問者: ひらりん2

解決済

5

0
Accessのクエリの条件付けの際に、0越えで1未満という条件指定をしたいのですが、どのようにすれば

Accessのクエリの条件付けの際に、0越えで1未満という条件指定をしたいのですが、どのようにすればよいかを教えてください。よろしくお願いします。

質問日時: 2023/10/20 08:51 質問者: mame1216

ベストアンサー

1

0
Accessのことで教えてください。一行のデータしかない前提のテーブルがあるとして、もしそのテーブル

Accessのことで教えてください。一行のデータしかない前提のテーブルがあるとして、もしそのテーブルに2行以上のデータが入っていた場合、コマンド(例えばボタン)実行時にコーションの出るような設定をしたいのですが、可能でしょうか。できれば、マクロビルダの基本機能でできるとありがたいのですが。。

質問日時: 2023/10/07 12:12 質問者: mame1216

ベストアンサー

1

0
ms access 2013で、チェックボックスのサイズを大きくすることは出来ますか

ms access 2013で、チェックボックスのサイズを大きくすることは出来ますか

質問日時: 2023/08/28 00:10 質問者: pogi2415

解決済

1

0
ACCESS2019でのエラーメッセージ

ACCESS2019で”指定した名前は、このデータベースに含まれる同じ種類のオブジェクトで使われています”が出ます。２台のPCで実行すると1台はエラーは出ず終了するが別のPCだとエラーメッセージが出ます。ご指示ください

質問日時: 2023/08/15 17:40 質問者: dahuisoul

解決済

1

1
Access VBA を利用して、フォルダ内のファイルの名称を変更したい

フォルダ内には複数のPDFファイルがあり、そのファイルすべてのフルパスを「変更前ファイル名」、名称変更後のフルパスを「変更後ファイル名」としたフィールドを持つテーブルを活用して、VBAでファイル名称変更をしたいのです。エクセルVBAではあるようですが、Accessの場合は複数の一括変更は見つからず、または理解できなかったので、なにとぞよろしくお願いいたします。

質問日時: 2023/08/03 08:27 質問者: b8928657

ベストアンサー

1

0
Accessで予定表を作成しようとしてます。テーブルフィールド名連番オートナンバー型年月日

Accessで予定表を作成しようとしてます。テーブルフィールド名連番　オートナンバー型年月日　日付/時間型曜日　短いテキスト予約0830 yes/No型所属課　短いテキスト名前　短いテキスト予約理由　短いテキスト 30分刻みで1730まで作成してます。フォーム　年月日で検索をかけます。フォームヘッダー予約　チェックボックス所属課　非表示名前　非表示予約理由　非表示詳細予約0830 所属課名前予約理由 30分刻みで1730まで作成してます。作業として検索をかけて予約する日付を表示させます。予約にチェックを入れます。所属課、名前、予約理由に必要事項を入力します。ボタンを押すとチェック、入力した事項を午前中に該当する予約0830から1200までのすべてのボックスにチェックと必要事項を入力出来るVBAを作成したいのですが初心者なので作ることが出来ません。ググってもなかなか該当するVBAを見つけることが出来ません。誰か教えていただけませか？よろしくお願いします。

質問日時: 2023/07/23 11:40 質問者: たか72

解決済

2

1
Microsoft Accessをクレジットカード登録無しで試用したい

題名の通りです。社内研修で一時的に社員にaccessを使用させたいのですが、探しても現在365版しか見つからず、1ヵ月の試用にもクレジットカードの登録を求められます。以前の買い切り版では確か、インストールまでは無料でできて、ライセンス認証をしなければ1ヵ月で使用停止だったと思うのですが、買い取り版の試用インストールは現在できないのでしょうか？どうぞよろしくお願いいたします。

質問日時: 2023/07/20 17:28 質問者: seau

解決済

3

0
Accessの参照フィールドの列がずれてしまいます

Accessで社員名簿を作成中です。営業所テーブル営業所ID　営業所名 101　札幌 102　青森 103　仙台社員名簿社員ID　社員名 1　やまだたろう 2 　たなかいちろう営業所名と社員IDをフォーム上で組み合わせて管理ナンバーを新しく作らなければならないのですが、テキストボックスに [営業所名]&[社員ID] と式を入れたところ札幌、やまだたろうの組み合わせで「札幌1」と表示されず、「1011」と表示されます。営業所名はテーブルからコンボボックスで選んだ値、社員IDはフォームの別なテキストボックに入力した値です、。コンボボックスには「札幌」と表示されているのですが、式を入れたテキストボックスには反映されません。原因と対策をご教示いただければ幸いです。よろしくお願いいたします。

質問日時: 2023/07/19 15:00 質問者: e-dom

ベストアンサー

1

0
Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか？現在 If(

Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか？現在 If(Not IsNull(DLookup("［標準番号ID]","T作業簿","[標準番号ID]=& Me.標準番号01 & " ' ")))Then にもう一つの条件　作成年度　を追加したいのですがデーブル　T作業簿 [標準番号ID ] [作成年度] フォーム　[標準番号01] [作成年度01] 以上になります。よろしくお願いします。

質問日時: 2023/06/28 14:28 質問者: たか72

ベストアンサー

1

0
アクセスで教えてください。クエリで2日前を抽出する計算式を入力して表示させるとちゃんとyyyy

アクセスで教えてください。クエリで2日前を抽出する計算式を入力して表示させるとちゃんとyyyy/mm/ddと表示されるのにそれをエクスポートすると英語の日付表示になります。どうやったらなおりますか？

質問日時: 2023/06/08 21:05 質問者: richiha

解決済

1

0
Accessで作ったデータベースをwebで活用したい

社内に10年ほどかけて作ったAccessのデータベースがあります。リモートワークに伴いこのデータを社員が外から閲覧、検索できようにしたいのですがどのような方法が考えられますか？知識に乏しいので構築は外部にお願いする予定です。・データは活用したい・できれば社内サーバーではなくクラウドで・専用ブラウザではなくChromeやsafariなどから

質問日時: 2023/06/03 08:49 質問者: yanyanyanyan

解決済

2

0
アクセスで、androidのスマホサイズのフォームは作れますか？テキストとチェックボックスだけのフォ

アクセスで、androidのスマホサイズのフォームは作れますか？テキストとチェックボックスだけのフォームがあれぼいいんです。そのチェックボックスもチェックを入れたあとはなにもしなくていいんです。出来るなら、アクセスだけでいいのですか？

質問日時: 2023/05/31 00:53 質問者: pogi2415

解決済

1

0
Accessに関する質問です。クエリーQ出勤からフォームF出勤を作成フォームは分割フォームで作

Accessに関する質問です。クエリーQ出勤からフォームF出勤を作成フォームは分割フォームで作成質問は分割フォームの出勤可否【yes/NO（チェック）】を一括入力したいのですが可能ですか？

質問日時: 2023/05/26 08:57 質問者: たか72

解決済

1

0
アクセスで、スマホサイズのフォームは作れますか

アクセスで、スマホサイズのフォームは作れますか

質問日時: 2023/05/20 01:45 質問者: pogi2415

ベストアンサー

2

0
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー

accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコードを教えて下さい。 VBA初心者です。過去に同様の質問がありましたらすいません。現在、accessからExcelへのデータはDocmd.TransferSpreadsheet にて実施しており、これだと新しいExcelへエクスポートされてしまいます。自分なりに調べているのですがなかなか思うようなものが見つける事が出来ません。どなたか教えて頂けないでしょうか？

質問日時: 2023/05/17 17:02 質問者: たくちん。23

ベストアンサー

2

0
スキルシートのエクセルの項目に

四則演算ができる関数、ピボットテーブルができる VBA（マクロ含む）ができると大雑把にある場合、どう申告すれば良いですか? 四則演算は当然できるとして、関数はデータ管理上で使ったものに限定します。なのでVlookupとか使ったことないです。グラフも実務は無く知識だけ。ピボットテーブルもないです。VBAもありませんがマクロの記録で動かしたものを自分で改造しまくって使ってました。　つまり体系的に学んだ訳でなく実務に必要だった部分に特化してます。あとはエクセルデータをCSVファイルでアクセスにインポートしたり?もしてました。アクセスは良くわからない状態で使っており、インポートしたデータでクエリの抽出条件とかで任意のデータを出してました。。こういう場合のスキルの申告はどうすべきでしょうか? 特にアクセスは良くわからない状態で使ってました。

質問日時: 2023/04/04 22:41 質問者: 通常の2倍

ベストアンサー

2

0
Accessのデータ型の日付/時刻型について

Windowsの日付をyyyy/mm/dd ddddとして曜日表示している影響かAccessの日付が曜日を含んだものになってしまっている。これをなんとかAccessはyyyy/dd/ddとし、Windowsの右下はyyyy/mm/dd ddddとしたいが Acｃessでどこをそうさすればいいのかお教え願う。

質問日時: 2023/04/02 17:03 質問者: knightworld

ベストアンサー

1

0
アクセスフォームの自動入力

取引先　　担当者　　　融合 A社　　　　佐藤　　　A社佐藤と表示されるようにフォームで設定したです。（[取引先]と[担当者]は手動で入力　[融合]を自動でデータ作成されるようにしたい） [融合]のコントロールソースにて、=[取引先]&[担当者]でフォーム上で表示はされるのですが、もとになるクエリのデータには反映されません。（空白になります）宜しくお願い致します。

質問日時: 2023/03/20 00:18 質問者: ケンボー5959

解決済

1

1
Access VBA

テーブルの値をCSVに出力したいです。保存はせず、書き出されたCSVを開くというコードを教えていただけないでしょうか。

質問日時: 2023/03/04 15:03 質問者: suzu0152

解決済

1

0
マイクロソフトアクセス2021のフォームビュー作成でレイアウトを帳票形式から単票形式にあとから変更

マイクロソフトアクセス2021について質問です。まず、フォーム作成で、フォームのレイアウトを帳票形式で作りました。これを、あとから単票形式に「変更」することは出来るのでしょうか？いろいろ見たのですが、それらしいボタンがありません。一度フォームを作成したものを、あとから「変更」する、何か良い方法はありますでしょうか？これについて、詳しい方がいましたら、ご回答よろしくお願い申しげます。

質問日時: 2023/03/03 10:56 質問者: thanksv

解決済

1

1
【至急・画像あり】建物or住所から電話番号を出す方法を教えてください

①住所から郵便番号や、②郵便番号から住所の自動入力を【アドイン】タブのウィザードから出来るので、もしかしたら、建物名or住所から電話番号を出す方法もあるのではないかと思い質問いたします。必ずお礼いたします。

質問日時: 2023/02/17 11:58 質問者: 非匿名

ベストアンサー

3

0
Accessのデータ型の日付/時刻型について

現在、Accessの勉強をしています。市販のテキストの通り勉強を進めておりデータとして日付を入力するところがありました。テキストは西暦で表示されているのですが、自分が入力したフィールドは和暦になっています。 2019/5/25と入力しましたが、" 01/05/25"と表示されます。テキストは”2019/05/25"となっています。どうしたら西暦で表示されるのでしょうか？よろしくお願い致します。

質問日時: 2023/02/14 07:40 質問者: たかクン

ベストアンサー

2

0
accessについて（超初心者です）

フォームでボタンを押すとコメントボックスにformat nowで日時が入る様にしましたが、フォームを閉じてまた開くと消えています。保存方法又は適切なVBAを教えてください。ちなみにテーブルインポート時の更新日としての利用です。テーブルに更新日時のレコードを追加する事もやってみましたが、テーブルをインポートするとそのレコードが消えてしまうので諦めました。

質問日時: 2023/02/11 11:18 質問者: matsu1978yrk

ベストアンサー

1

0
Excelの質問

小数点以下の設定がある場合は、小数点第2位まで表示としたい。どのように設定すれば宜しいでしょうか。以下にパターン書いときます。 (例) 100だったら100のみで小数点第2位は表示しない 99.90だったら99.90と表示したい 81.05だったら81.05と表示したい

質問日時: 2023/02/09 14:57 質問者: 佐藤知

ベストアンサー

3

0
Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです

現在、Accessを使用してデータ集計をチームで行っています。テーブルデータは、全てSharepointに保存している情報とリンクさせた上で編集/クエリ作成をしていますが、作業したAccessデータを他者に共有した場合に、クエリが開けないという問題が起こります。リンクテーブルの情報を見たところ、データソース情報がC:Users\個人番号\Sharepointフォルダという形で繋がっている為、社員番号が異なる他者が使えないのではと想定されます。表題の対応は一つのやり方だと思いますが、このやり方に留まらず何か良いか解決策がございましたらご教示頂けますと幸いです。

質問日時: 2023/02/08 13:29 質問者: ks602

解決済

1

0
エクセルのマクロについて教えてください。

エクセルのマクロコード Sub テキスト変換() Workbooks.OpenText Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.txt", Origin _ :=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _ , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:= _ False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _ TrailingMinusNumbers:=True Columns("A:A").ColumnWidth = 53.25 ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & "FDﾃﾞｰﾀ.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub が有ります。マクロを実行すると「 "FDﾃﾞｰﾀ.txt"」が「"FDﾃﾞｰﾀ.xlsx"」に変換されます。マクロを実行し、「"FDﾃﾞｰﾀ.xlsx"」の保存されたブックをそのまま（警告文無し）でクローズする方法を教えてください。よろしくお願いします。

質問日時: 2023/02/04 14:20 質問者: エクセル小僧

ベストアンサー

2

0
エクセルのマクロについて教えてください。

マクロを実行したの保存先フォルダを変更する方法を教えてください。マクロがあるファイルを作業後下記のマクロを実行すると Sub マクロ保存() Const fol As String = "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\" Dim fname As String, fPath As String Dim exte As String fname = Worksheets("休日").Range("R2").Text exte = ".xltm" fPath = fol & fname & exte ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled If Workbooks.Count > 1 Then ThisWorkbook.Close SaveChanges:=False Else Application.Quit ThisWorkbook.Close SaveChanges:=False End If End Sub 指定フォルダ「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"」に指定セル値名でマクロ有効テンプレート形式で保存されます。このマクロを、指定フォルダ「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"」ではなくマクロがある同じフォルダ内に保存する方法を教えてください。よろしくお願いいたします。

質問日時: 2023/02/03 16:07 質問者: エクセル小僧

ベストアンサー

2

0
CSVファイルの「0落ち」にVBA

毎日保存されてCSVファイルがあります。 CSVファイルはAからAA列まであります。取り込む場合にF列とＹ列のみ文字列にし「0」落ちを防いだ状態でエクセルに取り込みたいのですが VBAのプログラムじゃどのようになりますでしょうか？（他の列はそのままで） CSVファイル名は日付が付いたファイル都度更新されており、同一名ファイル名でないため指定する形式がよいで。色々試してみましたができませんでした。お手数をおかけしますがどなたかよろしくお願いします。

質問日時: 2023/02/02 15:27 質問者: mihomiho34

ベストアンサー

6

2
Accessにインポートした複数のテーブルを表示させる方法が分かりません。

下記の手順で上記表題を実現させたいのですが、ネットで調べてもやり方が載っていないので、誰か知っている人がいれば教えてください。 ①Accessで複数のエクセルファイルをインポートして複数のテーブルを作成する。 ②フォーム上に作成したコンボボックスから複数のテーブルのうちどれかを選ぶ。 ③フォーム上に作成したボタンを押して、コンボボックスから選んだテーブルを表示させる。何か特別なマクロが必要なのでしょうか。どなたか教えてください。

質問日時: 2023/01/30 20:22 質問者: タメゴロウ

解決済

1

0
エクセルのVBAについて教えてください。

先日、下記のコードを教えて頂きました。 Private Sub Workbook_Open() Dim tmp, dNow tmp = Split(ThisWorkbook.Name, ".") If Split(ThisWorkbook.Name, ".")(UBound(tmp)) <> "xlsm" Then dNow = Format(Now, "yyyy/mm/dd") With Worksheets("指定シート") If dNow >= Format(.Range("D39"), "yyyy/mm/dd") _ And dNow <= Format(.Range("E39"), "yyyy/mm/dd") Then MsgBox ("「締め切りが完了しました」"), 16 Exit Sub End If End With End If End Sub D39～E39の期間中にブックを開くと警告文が表示されます。警告文が表示され、「OK」を押すと次からは期間中でも警告文を非表示に出来る方法を教えてください。このブックはテンプレート（ひな形）として使用しており、一度警告文が表示されれば役割は完了です。よろしくお願いします。

質問日時: 2023/01/21 10:21 質問者: エクセル小僧

ベストアンサー

4

0
ExcelのVBAコードについて教えてください。

以前教えて頂いたコード Private Sub Workbook_Open() Dim cellDate As Range Dim Rng As Range Set Rng = Worksheets("300").Range("D37,E37,D39,E39") Dim strMsg As String strMsg = "" For Each cellDate In Rng If Not IsDate(cellDate) Then strMsg = strMsg & cellDate.AddressLocal(0, 0) Next If strMsg <> "" Then MsgBox strMsg & "　のセル日付を確認してください": Exit Sub With Worksheets("300") If chkPeriod(.Range("D37"), .Range("E37")) Then MsgBox ("「行政報告先」の変更時期です、担当者は更新をし、ひな形の保存をお願いします。"), 48 Exit Sub End If If chkPeriod(.Range("D39"), .Range("E39")) Then MsgBox ("「各行政条例」「べんり帳」の更新時期です、各担当者は更新をし、ひな形の保存をお願いします。"), 48 Exit Sub End If End With End Sub '例によってファンクションで Function chkPeriod(fromDate As Date, toDate As Date) As Boolean Dim chkResult As Boolean: chkResult = False If Date >= fromDate And Date <= toDate Then chkResult = True End If chkPeriod = chkResult End Function があります。このコードは作業ブックを立ち上げたタイミングでそれぞれの指定日付範囲内であれば「警告文」を表示できます。このコードを下記の条件を反映できる方法を教えてください。 1.「警告文-2」のみを表示させて「警告文-1」は削除 2.この作業ブックはマクロ有効テンプレート形式「.xltm」で使用しており、次の作業に移行し、ファイルをマクロ有効形式「.xlsm」又は一般の「.xlsx」で保存しながら使用していきますので、このコードはマクロ有効テンプレート形式「.xltm」のみでの表示以上となります。よろしくお願いいたします。

質問日時: 2023/01/20 09:44 質問者: エクセル小僧

ベストアンサー

4

0
Accessのテキストボックスの入力文字制限

テキストボックス（半角カナ）で次のようなコードを書きました。 Private Sub 半角カナ_AfterUpdate() Me.半角カナ = StrConv(Me.半角カナ, 8 + 16) Me.半角カナ = Replace(Me.半角カナ, "ｯ", "ﾂ") Me.半角カナ = Replace(Me.半角カナ, "ｬ", "ﾔ") Me.半角カナ = Replace(Me.半角カナ, "ｭ", "ﾕ") Me.半角カナ = Replace(Me.半角カナ, "ｮ", "ﾖ") Me.半角カナ = Replace(Me.半角カナ, "ｧ", "ｱ") Me.半角カナ = Replace(Me.半角カナ, "ｨ", "ｲ") Me.半角カナ = Replace(Me.半角カナ, "ｩ", "ｳ") Me.半角カナ = Replace(Me.半角カナ, "ｪ", "ｴ") Me.半角カナ = Replace(Me.半角カナ, "ｫ", "ｵ") End Sub Private Sub 半角カナ_BeforeUpdate(Cancel As Integer) If Me.半角カナ Like "*[!-0-9ｱ-ﾝA-Zﾞﾟ()./]*" Then Cancel = True MsgBox "半角カタカナと英数字のみ入力可能です。" End If End Sub これにより、ひらがな⇒半角カナ　に変換小文字の半角カナ⇒大文字の半角カナ　に変換数字、半角カナ、アルファベット、濁点、半濁点、()./　の文字以外は入力できなくしました。そこでもう一つ工夫したいのが、やまだ　たろう　や　ﾔﾏﾀﾞﾀﾛｳなどを入力しても、半角、全角スペースでエラーが生じてしまいます。あと、どう改善すればよろしいですか？

質問日時: 2023/01/18 20:43 質問者: kuwakuwamadoka

ベストアンサー

1

0

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

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

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

質問する（無料）

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

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

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

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

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

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