Since I switched to Office 365. I lost automation with Access 2013.
Send it to me and I'll break it and send the parts back to you.Hi vbaInet!
No it's not my morning routine but this automation issue became an obsession: I am finalizing a procedure to deliver a highly secure (I really mean it) Access app to a customer: no links to data file and no queries, BE super protected (can't be opened), unreadable modules, etc.!!! Someone, in a USA forum laughed at me, saying it's impossible to secure Access. Oh yes? if you want me do something challenge me!!!
Application.SysCmd(acSysCmdAccessDir)
str = CurrentDb.Name
P = InStrRev(str, "\")
PathBE = Mid(str, 1, P)
strBE = "SecurityBE.accdb"
We have to make it more interesting and say £1000Hello vbaInet!
Holly shmit I will put 100 $CDN on this one!!! But wait a sec: you will have to define the time you need to break it (the bet will depend on it...).
You can use:To get path, etc. I use this:
Code:str = CurrentDb.Name P = InStrRev(str, "\") PathBE = Mid(str, 1, P) strBE = "SecurityBE.accdb"
CurrentProject.FullName <--- full path to the FE (includes the name)
CurrentProject.Path <--- just the path