別のMDBのフォームを開く操作をしているのですがエラーになってしまいます
(Access2003 SP3を使用)
Function keisan()
Dim obj As Access.Application
Dim db_name As String
Dim tmpDB As Database
Dim tabname As String
Dim tdynaset as Recordset
Dim KeisanKekka as Boolean
’MDBのフォームを開く
db_name="c:\keisan.mde"
Set obj = GetObject(db_name)
obj.DoCmd.OpenForm "計算", acNormal, , , , acDialog
obj.Application.Quit
Set obj = Nothing
'計算結果をもってくる
Set tmpDB = OpenDatabase(db_name)'ここでエラー****
Set tdynaset = tmpDB.OpenRecordset("select 計算結果 from データ", dbOpenSnapshot, dbForwardOnly)
KeisanKekka = Nz(tdynaset.Fields(0), False)
tdynaset.Close
Set tdynaset = Nothing
tmpDB.Close
Set tmpDB = Nothing
End Function
これで1回目は上手くできるのですが2回目からOpenDatabaseのところでエラーになってしまいます
「実行時エラー3045 c:\keisan.mdbは既に使用されているので、使用できませんでした」
GetObjectの解放はしているのになぜこのようなエラーがでてしまうのでしょうか・・・
別のPCでもやってみたのですが同じエラーが起こりました
どうかよろしくお願いします
お礼
回答どうもありがとうございます。試してみます