Trap registry

[debu]

i have created a project using access as backend and vb as frontend.
my problem is after creating the setup for the project when i want to install the project some where else it is not getting the path of the access database.

i have a idea that if i able to trap the registry the problem will be solved.

So,Please send me the code to over come the problem.
I will be very pleased.

[Paul Warren]

debu -

Here's some code for getting the database name into the registry for your user.

' The value Missing is returned if the key is missing
DatabaseName = GetSetting("Application", "Settings", "Location", "Missing")

IsItThere = Dir(DatabaseName)

If (DatabaseName = "Missing") Or (IsItThere = "") Then

    MsgBox "The Database could not be found. Please specify it's location", , "Database Not Found"
    
    ' Ignore the press of the cancel key
    On Error Resume Next
    
    MainMenu.dlgOpendb.MaxFileSize = 1024
    MainMenu.dlgOpendb.ShowOpen
    
    DatabaseName = MainMenu.dlgOpendb.filename
    
    If DatabaseName = "" Then
        End
    End If
    
    SaveSetting appname:="Application", Section:="Settings", Key:="Location", setting:=DatabaseName
    
End If

Set dbObject = OpenDatabase(DatabaseName, False, False)

The code is run with a form that has a common dialogbox so if the database isn't found it can be located and saved by the user.

An example of the registry setting might be :

[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Application\Settings]
"Location"="C:\\Myapp\\Database\\AppDB.mdb"

You will need to create a registry file which is run during setup to register the location of your database. To do that just run the code once then export the key it creates ( always under HKEY_CURRENT_USER\Software\VB and VBA Program Settings ) to a file. Include this in your steup and hey presto your users now know where the database is.

Hope this helps.