| |
こんにちは よろしくお願いいたします
都港区会社A-同じ建物 同一部署 3人
都多摩会社B 1人
で下記、試しましたが、多摩の人だけがうまく動作しません
下記のような使用可能なのでしょうか
可能、不可能等
アドバイス頂けると助かります
よろしくお願いいたします
動作概要
・ファイルサーバーに帳票（エクセルブック）を保存しています
・アクセスＤＴ.mdbに上記一覧リストのテーブルを有しています
・アクセスＦＲＭ.mdb（配布用、ローカルPCで使用）は
ＤＴ.mdbの一覧リストをデータシート形式で表示
レコード選択で、ファイルサーバの帳票ブックを開く（同時使用は禁止）
アクセスのクラスモジュールのWithEventsで
セル編集時、指定セル値取得
帳票ブック保存時、ＤＴ.mdbのレコード更新
としていますが、多摩の人だけ、ＤＴ.mdbへの更新が出来ていません
クラスモジュール WithEvents の 理解足りていないため
デバッグもいまいち思い通りに出来ていないです
何かアドバイス頂けると助かります
よろしくお願いいたします
'----------------------------------------------------------------
アクセスコード
'----------------------------------------------------------------
Class1
Private Sub xlsApp_WorkbookBeforeSave(ByVal Wb As Excel.Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
'tmpテーブルdt登録
edit_TmpT_PJ_DT
'SVテーブルdt登録
edit_DT02_PJ_DT
End Sub
'----------------------------------------------------------------
Module10
'ローカルPC内TMPテーブルにレコード追加
Function edit_TmpT_PJ_DT()
Dim db As Database
Dim RT As Recordset
Set db = CurrentDb
db.Execute ("DELETE FROM TmpT_PJ_DT")
Set RT = db.OpenRecordset("TmpT_PJ_DT", dbOpenTable)
On Error Resume Next
RT.MoveFirst
'RT.Edit
RT.AddNew
RT![依頼部署] = da1_iraibusyo
・
・
RT![IDX] = d0_NO
RT.Update
On Error GoTo 0
RT.Close
db.Close
End Function
'サーバー更新
'Function edit_DT02_PJ_DT()
Sub edit_DT02_PJ_DT()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim I As Long
strSQL = "SELECT DT02_PJ_DT.*, DT02_PJ_DT.IDX FROM DT02_PJ_DT IN '" & LC_get_path & "' WHERE DT02_PJ_DT.IDX=""" & Forms("MF01_JOB選択F").Controls("T02_PJ_DT").Controls("IDX") & """;"
Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
ws.BeginTrans
rs.Edit
rs![依頼部署] = da1_iraibusyo
・
・
rs![mckd] = d32_mckd_dt
rs.Update
ws.CommitTrans
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
'----------------------------------------------------------------
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
