Access Db window won't close

[newguy86]

Here is the situation, I have a form in Access that opens another access db to transfer data over for storage. The issue is that once the macro is done with the 2nd db it closes the 2nd db but a generic blank "Microsoft Access" window is left behind. Even worse when I close the blank window it immediately reappears and I have to go into Task Manager to end the program. I have included my code in case someone can see something that I missed and any suggestions are greatly appreciated.

<Code>
Const strFilePath = "**************"
strDB = strFilePath & "TRAVEL AGENT.mdb"
Set appAccess = CreateObject("Access.Application")
Set accDB = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=**********")
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True

strDocName = "TA Db Upload to Agency"
appAccess.DoCmd.OpenQuery strDocName

appAccess.CloseCurrentDatabase
appAccess.Quit

Set appAccess = Nothing
<\Code>

Travis

http://www.enterprise.com

 

[newguy86]

Well I figured it out, but something still doesn't seem right.

Why did it work when I moved:

<code>
Public strDocName as String
Public accDB as DAO.Database
<\code>

in the Option Compare Database area to the specific macro where they were being used and changed "Public" to "Dim". Shouldn't "Public" & "Dim" be responding the same way? One is used to create the same object for all macros and the other is used to create an object within a specific macro. Correct?

Travis

http://www.enterprise.com