Sample DB - Automating mapped drive

[thecsmith70]

Hello -

This posting has two challenges:

1st - I'm trying to automate mapped drive (address) in a field.

Here's what I did: I created a form with the following fields: ID, FirstName, LastName, DOB and ChildsFile. The ChildFile is a address where the folder is located on the shared drive. In this case, it is on the S:\ChildsFile\*

If you go to the form, you can enter the first and last name along with the DOB. You'll see the ChildFile's being autopopulated on the form.

I just cant figure out how to save or append the autopopulated ChildFile info on the table (tbl_childsfile). The ChildFile field will end up just blank on the table.

2nd - Using the above example, if you type in John, Doe, and 07012013 in the three fields, then the childsfile will be S:\ChildsFile\Doe_John_07012013. Is there a way to automate a new folder in a shared drive without having to manually create the new folder itself?

I'm more interested in problem #1 above. Solving problem #2 would be a nice bonus (and less manual work for me).



I've attached a 2007 file to help you see what I've started.

Thanks.

[June7]

Don't use drive letter pathing. Use UNC (Universal Naming Convention). The path would be like:

\\servername\folderpath\filename

Code to create a folder:

strPath = "some UNC path you build in code"
If Dir(strPath, vbDirectory) = "" Then MkDir strPath

Be aware that the upper folders have to already exist otherwise must test for and create each level if not already existing.

Also, permissions must allow for creating folders/files.

[ranman256]

NOTE using paths with drive lettters can cause problems. OTHER people may not have S mapped. Use UNC paths... \\server\folder1\folder2
But if letters work for you , cool.

vDir = [last] & " " & [first] & [InfoNum]
Then You can create a folder name in code with : MakeDir vDir

Public Sub MakeDir(ByVal pvDir)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(pvDir) Then fso.CreateFolder pvDir     'MkDir pvDir
Set fso = Nothing
End Sub

[thecsmith70]

Got it about UNC paths. Thanks for the info.

I'm very new to this, so to code as you suggested, do I need to trigger an event (on enter) and use Code Builder?

[June7]

Yes, this is VBA code. Possible events: AfterUpdate, Click