Microsoft Access 掲示板

どのPCからでもエラーが出ないようにファイルまでのパスを取得したい / 11

13 コメント
views
4 フォロー
11
すずやん 2024/01/24 (水) 10:30:17

ちょっとどの程度まで理解しておられるか分かりませんので、余談になるかもしれません。

会社のサーバー(ファイルサーバーか共有フォルダ、のはず)に置き、ということなので、同じネットワーク上にあるPCからでしたら、共有フォルダのアドレスは変わらないはずです。

例えば「10.0.0.1」というIPアドレスにある「共有CSVフォルダ」という共有フォルダの場合、どのPCからアクセスしてもアドレスは「\10.0.0.1\共有CSVフォルダ」ですよね。
※探し方は参考リンクを書いて頂いてますのでそちらを参照してください

ですの以下のように設定すればいいのではないでしょうか?

DoCmd.TransferText acImportDelim, "my_imp", "注文取込", "\10.0.0.1\共有CSVフォルダ\中略\注文.csv", False, ""

または

folderName = "\10.0.0.1\共有CSVフォルダ"

ただしAccessのプログラムをネットワークフォルダなどに置き、同時に複数人が使用すると不具合が発生します。例えばプログラムを使って同時に取り込み作業を行った場合、データベースに同時に書き込みが発生してしまい、壊れやすくなります。

参考:https://sys-daddy.com/multi-user-setting-of-access/

そこで「データベース分割」などが必要になってきます。
(でも書き込みを見ると、ある程度できているようですね)

通報 ...
  • 13
    すずやん 2024/01/24 (水) 15:45:31 >> 11

    すみません、追記させてください。
    「\10.0.0.1\共有CSVフォルダ」が正常に表示されませんでした。
    コードブロックとして再度記載します。

    DoCmd.TransferText acImportDelim, "my_imp", "注文取込", "¥¥10.0.0.1¥共有CSVフォルダ¥注文.csv", False, ""
    
    または
    
    folderName = "¥¥10.0.0.1¥共有CSVフォルダ"