Vraag : Toegang 2010: Kan ik een ACCDE op runtime wijze het ben wachtwoord leveren beginnen en?

Ik moet een kortere weg tot stand brengen of dossier of vbacode slaan of iets die een gecodeerde Toegang 2010 ACCDE and

o begint zorgt ervoor dat het op runtime wijze loopt zelfs als de kleinhandelsversie van Toegang op de zelfde machine
o Passen loopt het wachtwoord aan het is zodat de gebruiker te hoeven om geen password

I in te gaan het weet hoe te om één van beiden of, maar niet allebei te doen.  Zie fragmenten in code below.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

This in een .bat dossier zal het op runtime wijze beginnen:
begin "" „C:\Program Files\Microsoft Bureau \ Office14 \ msaccess.exe“ /runtime „C:\Users\… \ MyDB.accde“ 

Dit in vba zal een wachtwoord overgaan:
'Maak tot gecodeerde OB huidige OB.
    appAccess.Visible = Waar
    appAccess.UserControl = Waar 
    appAccess.OpenCurrentDatabase „C:\Users\… \ MyDB.accde“, Vals, „MyPwd“
    
Dit vba zal voor niet op runtime wijze testen en zal OB van het lopen tegenhouden:
 Als SysCmd (acSysCmdRuntime) = Waar toen
        MsgBox die „Runtime gebruiken… dit is O.K.“
    Anders
        MsgBox „Deze toepassing moet met /runtime worden in werking gesteld inschakelt“
    Beëindig als

Antwoord : Toegang 2010: Kan ik een ACCDE op runtime wijze het ben wachtwoord leveren beginnen en?

Dit is een grappig probleem. U kunt een normale zitting van de Toegang automatiseren, en u kunt een toepassing op runtime wijze openen… Waarom de runtime niet automatiseren toepassing zodra het open is?

U kunt beginnen door, op runtime wijze, een proef leeg gegevensbestand te openen. Dan grijp het automatiseringshandvat aan die toepassing, en verander het huidige gegevensbestand in uw beschermde toepassing. De code werd hieronder getest in Toegang 2003, zodat zou het niet in uw versie kunnen werken. Het is de volledige module van de enige startvorm van een (derde) gegevensbestand; u kunt iets in een gecompileerde taal (om het wachtwoord te beschermen) beter doen.

(°v°)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Privé SubForm_Load ()

    Schemerige strCmd als Koord
    Schemerige accRT als Access.Application

    strCmd = """" & SysCmd (acSysCmdAccessDir) & „MSACCESS.exe "" /runtime“ _
        & „d:\test\dummy.mdb“
    Shell strCmd, vbNormalFocus
    Reeks accRT = GetObject („d:\test\dummy.mdb“)
    accRT.CloseCurrentDatabase
    accRT.OpenCurrentDatabase „D:\test\protected.mdb“, „zorglub“
    Application.Quit

Sub van het eind
Andere oplossingen  
 
programming4us programming4us