Directory tree

[Vulcan1500]

In my MS Access 2003 database I want to have the option to select a folder where the backup of the backend is stored before the database closes. Can one of you give me directions on the internet where I can find the code that gives me the directory tree.

[Hack]

How about the Common Dialog Control?

[Phil Weber]

http://www.freevbcode.com/ShowCode.asp?ID=3064

[Vulcan1500]

Thanks. Got it working and able to store the path in the backend. Before the backend is stored I'm checking if a path is set. If not then I use the defauld path. Doing this I get a response from Access 2003 "invalid use of null" in the red line of the underneath code.

Dim strBackupFolder As String
Set db = CurrentDb
Set rs = db.OpenRecordset("Administratiesysteem")
strBackupFolder = rs("BackupFolder").Value
'In the situation that in main menu Onderhoud the folder for backups is not selected
If Len(strBackupFolder) = 0 Then
strBackupFolder = "C:\Aalles Administratiesysteem\Aalles Administratiesysteem Backups\"
End If

[Hack]

Ah yes, been there - got that. Try this

If Not IsNull(rs("BackupFolder").Value) Then

You could add an Else (although I seldom do in my code) that pops up a message box indicating there is no value in the backupfolder field.

[Vulcan1500]

Thanks again for your help Hack! It is solved now. ""...Null...Empty.....very confusing

[Slope]

""...Null...Empty.....very confusing

Exactly. One way to simplify is to set AllowEmptyStrings to False for Text columns in Access tables. That way, you only have to check for nulls. For example, you won't find null records if you use WHERE col = "". And you won't find empty strings if you use WHERE IsNull(col). You can use implicit conversion to force Access to cast nulls to strings by doing WHERE (col & "") = "" but then you always have to remember to do that, which gets to be a pain.

[Vulcan1500]

Never done that Slope. I will look into this to simplify. Thanks for advice!