| |
はじめまして。
ふくたんと申します。
早速ですが質問させてください。
現在、データベースを三つ使用した状態でそれぞれ更新する部分を私が作成しています。
データベースはLAN上の３つのパソコン上にあり、
マスタ、データ１、データ２、のように別れておりまして、それぞれ更新があります。
現在のソースを抜粋したものが以下になります。
------------------------------------------------------
▼標準モジュールにて以下のように設定
Public pdbWS As DAO.Workspace ' ワークスペース
Public pdbDB As DAO.Database ' データベース
Public pdbDM As DAO.Database ' データベース(マスタ)
Public pdbDE As DAO.Database ' データベース(他会社)
' ワークスペースを定義
Set pdbWS = DBEngine.Workspaces(0)
' データベースを開く
' データ用データベース
Set pdbDB = pdbWS.OpenDatabase(pstrDao_Conn_D)
' マスタ用データベース
Set pdbDM = pdbWS.OpenDatabase(pstrDao_Conn_M)
' 他会社用データベース
Set pdbDE = pdbWS.OpenDatabase(pstrDao_Conn_Etc)
▼各フォームにて以下のように書込
strSQL = ""
strSQL = strSQL & " INSERT INTO M_コントロール ("
strSQL = strSQL & " コントロール区分"
strSQL = strSQL & " , コントロールキー"
strSQL = strSQL & " , データ３"
strSQL = strSQL & " , データ４"
strSQL = strSQL & ") VALUES ("
strSQL = strSQL & " '" & コントロール区分CB.Value & "'"
strSQL = strSQL & " , '" & コントロールキーCB.Value & "'"
strSQL = strSQL & " , '" & pfnc文字列カット(データ3TX.Value, 100) & "'"
strSQL = strSQL & " , '" & pfnc文字列カット(データ4TX.Value, 100) & "'"
strSQL = strSQL & ")"
pdbDM.Execute strSQL
End If
---------------------------------------
ここで問題がありまして、
登録される場合と、されない場合があるのです。
しかも二重キーのような場合はエラーが発生するのですが、
エラーもなく実際のデータベースを見に行くと書込されていないという状態が起きているのです。
登録されない状態になると、どのデータベースもエラーが出ず、登録されないという状態になります。
いったんアクセスを終了させてもだめな場合もあれば、正常に登録できるようになる場合もあり不安定です。
当方の環境は
・WinXP Pro
・ACCESS2000
です。
どこをどうしたら良いのかさっぱりわからず、
エラーにもならないため、対策が建てられないでおります。
どなたか同様の現象が発生し、解決された方がいらっしゃれば
どうかアドバイスをお願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
