Microsoft Access 掲示板

変更後のVBA(下の方)のDim strSQL行の最後に select * from を加筆し、

  Dim strSQL As String: strSQL = "insert into T_UserLog (場所,行為,ユーザー名,マシン名) values ('" _
  & PN & "','" & AN & "','" & WSH.UserName & "','" & WSH.ComputerName & "') select * from "
  
  CurrentDb.Execute strSQL & "T_UserLog IN '' [MS Access; DATABASE=C:\略\MnfctMng_BEDB.accdb;PWD=PASSWORD;];"""

と書き直した所、CurrentDb.Execute行に　最後の；が足りないエラーが出てしまいました。
strSQLの内容がまずい気がするんですが、いかがでしょうか…。

コードの記述はちょっと気に掛けてあげると問題にも気づきやすくなります

問題のあるコードそのまま書き換え

Dim strSQL As String
strSQL = strSQL & "insert into T_UserLog (場所,行為,ユーザー名,マシン名)"
strSQL = strSQL & " values ('" & PN & "','" & AN & "','" & WSH.UserName & "','" & WSH.ComputerName & "')"
strSQL = strSQL & " T_UserLog IN '' [MS Access; DATABASE=C:\略\MnfctMng_BEDB.accdb;PWD=PASSWORD;];"""
CurrentDb.Execute strSQL

INSERT INTO ステートメント

外部ファイルに接続する場合の記述は

複数のレコードを追加するクエリは、次のとおりです。

INSERT INTO target [(field1[, field2[, ...]])] [IN externaldatabase]
SELECT [source.]field1[, field2[, ...]
FROM tableexpression

1 つのレコードを追加するクエリは、次のとおりです。

INSERT INTO target [(field1[, field2[, ...]])]
VALUES (value1[, value2[, ...])

VALUESを使った記述の場合「外部ファイルに接続する方法」の記述がありませんね・・・

まぁ、Microsoftの公式資料なんてそんなもんです。きっと似たような記述をすればなんとかなるはず

INSERT INTO target [(field1[, field2[, ...]])] [IN externaldatabase]
VALUES (value1[, value2[, ...])

Dim strSQL As String
strSQL = strSQL & "insert into T_UserLog (場所,行為,ユーザー名,マシン名)"
strSQL = strSQL & " IN '' [MS Access;DATABASE=C:\略\MnfctMng_BEDB.accdb;PWD=PASSWORD;]"
strSQL = strSQL & " values ('" & PN & "','" & AN & "','" & WSH.UserName & "','" & WSH.ComputerName & "')"
CurrentDb.Execute strSQL

お試しを

hiroton さん
お早いご返事誠に痛み入ります。
実際に置換してみたところ、うまくいきました・・・！
ありがとうございます！
VBAでSQL文を書いてると、ゴチャついてきちゃいますね。
追加で代入していく方法も今後用いて、着実にミスの無いようにしていきたいです。

また、早速参考にして、UserLogの古い履歴をイイカンジに消す CleanLog　にも頑張って適用してみました。下記。

Public Sub CleanLog(Day As Integer)
'上記で登録したユーザーAccessデータを、いい感じの古さの物から削除

  Dim RemoveDate As Date: RemoveDate = DateAdd("d", -Day, Now)
  '今の日にちから、●●日前　を特定する関数
    
  RemoveDate = Format(RemoveDate, "yyyy/mm/dd hh:mm")
  '特定した日付を、xxxx/xx/xx xx:xx の形に整える

  Dim DB As DAO.Database: Set DB = CurrentDb
  Dim strSQL As String
  
  strSQL = strSQL & "delete from T_UserLog "
  strSQL = strSQL & "IN '' [MS Access; PWD=PASSWORD; DATABASE=C:\略\MnfctMng_BEDB.accdb;] "
  strSQL = strSQL & "where 日時<#" & RemoveDate & "#"

  DB.Execute strSQL
  '上記の日時からのデータをすべて削除する

End sub

これによって、BEDBの方の古いログも消すことができましたが、これで問題ないでしょうか…。
ログなので別にミスって全消去になってもそこまで問題はないのですが、DELETEを扱うので
すこし心配になってしまって。
ご教示の程宜しくお願い致します。

難しい質問ですねぇ
実行されるクエリが、という意味ならDB.Execute strSQLの行でのstrSQLの中身は問題ないように思います

VBAコードの良し悪しという意味なら突っ込みどころも出てきます

とりあえず、完全にNGなので指摘しますが

RemoveDate = Format(RemoveDate, "yyyy/mm/dd hh:mm")

RemoveDateはDate型の変数です。Format()は文字列を返します。Date型の変数に文字列を代入しようとしているので暗黙の型変換が発生します。この行は結局

RemoveDate = RemoveDate

と変わりません。完全に無駄な処理です

他の記述については、好みの問題まで発展しそうな話ので触れないことにしておきます

ちなみにですけど、テーブルをリンクテーブルにしたらだめなんですかね？
そうすればVBA変えなくていいしクエリとか使ってるならそれもそのままでOKになるし･･･フォルダ構成が変わったとかの時も対応できるし、バッチリだとおもうんですが。
あとACCSESSはデータを消しても容量が減らないので、捨てるデータはたとえば月単位でDB作って書き込み、月が替わったらDB切り替えするとか、そもそも隠す内容でない＆検索するとか再利用しないならCSVに吐き出していくとかでも良い気がします。

なおリンクテーブルにするなら参考↓
ACCESSのVBAでリンクテーブルを更新する