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

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

回答数

気になる

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
こんにちは。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

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

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

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

質問する（無料）

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

弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

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

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

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

今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...