Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3141 / 9994

←次へ　｜　前へ→


	【10115】エラーなしで更新されない

ふくたん - 07/12/22(土) 9:00 -


	引用なし

	パスワード

はじめまして。
ふくたんと申します。
早速ですが質問させてください。
現在、データベースを三つ使用した状態でそれぞれ更新する部分を私が作成しています。
データベースは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
です。
どこをどうしたら良いのかさっぱりわからず、
エラーにもならないため、対策が建てられないでおります。
どなたか同様の現象が発生し、解決された方がいらっしゃれば
どうかアドバイスをお願い致します。

525 hits

▼

【10115】エラーなしで更新されない ふくたん 07/12/22(土) 9:00