Microsoft Access 掲示板

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

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

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

お試しを