Invisible database (Access 2000)

Topic

New Reply

I was told that i could make the database invisible with Shell Attrib
but neither ‘Shell “Attrib ” & ANewDB & ” +h”
nor
Shell “Attrib +h”
give any results.
What can i add on my code?

Private Sub Command2_Click()
Call ANewDB(“c:BENewDB.mdb”)
‘Shell “Attrib ” & ANewDB & ” +h”
Shell “Attrib +h”
End Sub
Function ANewDB(tName As String)
Dim wsp As Workspace, db As Database
Dim db2 As Database
Set db = CurrentDb
Set wsp = DBEngine.Workspaces(0)
Set db2 = wsp.CreateDatabase(tName, dbLangGeneral)
db2.Close
End Function

Reply | Quote

Replies

Shell “Attrib ” & ANewDB & ” +h”
should work if the function ANewDB return the path and the file name.

Reply | Quote

Thank you for your reply.I receive the error “argument not optional pointing to ANewDB
But i have alsready shown the path name : the new database should be in the folder BE and have the name NewDB :
Call ANewDB(“c:BENewDB.mdb”)
Shell “Attrib ” & ANewDB & ” +h”

Why do i get the error ?

regards

Reply | Quote

Sorry, I hadn’t seen that you post the function also.
The function ANewDB did not return the name of the db, but create and close it.
You could use :

Private Sub Command2_Click()
Shell “Attrib ” & ANewDB(“c:BENewDB.mdb”) & ” +h”
End Sub

Function ANewDB(tName As String)
Dim wsp As Workspace, db As Database
Dim db2 As Database
Set db = CurrentDb
Set wsp = DBEngine.Workspaces(0)
Set db2 = wsp.CreateDatabase(tName, dbLangGeneral)
ANewDB = db2.Name
db2.Close
End Function

Reply | Quote

Thank you very much indeed

Reply | Quote