Ako odobrať Shift v programe Access 2007

Microsoft Access je dodávaný s balíka Microsoft Office produktivity . Pri spustení softvéru , ak stlačíte kláves " Shift " , môžete obísť rôzne možnosti , start - up , ktoré by inak boli užitočné . Táto schopnosť , aby sa zabránilo tieto možnosti môžu brániť pokroku v projekte , strácať drahocenný čas . Používatelia môžu túto možnosť odstrániť tak , že sú povinní vykonať Voľbou Start - up zakaždým . Tento proces si vyžaduje trochu kódovanie a sa líšia v závislosti na tom , či je projekt programu Access alebo databázy . Pokyny
Vypnutie klávesy Shift pre prístup projekty ( ADP súboru . ) Foto 1

otvorený prístup .
2

Otvorte súbor projektu tým , že pôjdete na " Súbor " potom " Otvoriť " .
3

Stlačením tlačidla " ALT " a klávesa " F11 " na vašej klávesnici . Tým sa otvárajú " Editor jazyka Visual Basic . "
4

Kliknite na " Zobraziť " , potom " Immediate Window . "
5

zadajte nasledujúci kód , poskytované spoločnosťou Microsoft , v " okamžitom okne : " " . Enter "

CurrentProject.Properties.Add " PovolitVynecháníKlíče " , False

Hit
6

Zatvorte editor < . br >
7

Uložte prácu a reštartujte aplikáciu Access .
Vypnutie klávesy Shift pre databázu programu Access ( . mdb alebo . accdb súbory )
8

Open Access .
9

Vytvorte nový modul tým , že pôjdete na " objekty " , potom " Moduly " v okne " Databáza " .
10

Pridať túto funkciu , za predpokladu , Microsoft , do modulu :

funkcia ap_DisableShift ( )

" Táto funkcia vypnúť posun pri spustení . Táto akcia spôsobí

" makro AutoExec a spustenie vlastnosti musia byť vždy vykonaná .

On Error GoTo errDisableShift

Dim db Ako DAO.Database

Dim prop ako DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ( )

" Táto ďalší riadok zakáže kláves shift pri štarte .

db.Properties ( " PovolitVynecháníKlíče " ) = False

" funkcia je úspešná

Exit Function

errDisableShift : .

" Prvá časť tejto chyba rutina vytvorí " PovolitVynecháníKlíče klipart

" majetku , ak neexistuje .

Ak Err = conPropNotFound Potom

Nastaviť prop = db.CreateProperty ( " PovolitVynecháníKlíče " , _

dbBoolean , False )

db.Properties.Append prop

Resume Next

Else

MsgBox " Function " ap_DisableShift " nie úspešne dokončiť . "

Exit Function

End If

End Function
11

Pridať túto druhú funkciu ihneď po tej , ktorú vložili do posledným krokom :

funkcia ap_EnableShift ( )

" . Táto funkcia umožňuje kláves SHIFT pri spustení Táto akcia spôsobí

" Autoexec makro a vlastnosti spustenie , ktoré majú byť vynechané

" v prípade , že užívateľ má stlačený kláves SHIFT , keď používateľ otvorí databázu .

On Error GoTo errEnableShift

Dim db ako DAO.Database

Dim prop ako DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ( )

" Táto ďalší riadok kódu zakáže kláves SHIFT pri štarte .

db.Properties ( " PovolitVynecháníKlíče " ) = true

" funkcie úspešný

Exit Function

errEnableShift :

" Prvá časť tejto chyby rutina vytvorí " PovolitVynecháníKlíče

" vlastnosť , ak neexistuje .

Ak Err = conPropNotFound Potom

Nastaviť prop = db.CreateProperty ( " PovolitVynecháníKlíče " , _

dbBoolean , true )

db.Properties.Append prop

Resume Next

Else

MsgBox " Function " ap_DisableShift " nebola dokončená úspešne . "

Exit Function

End If

End Function
12

Otvorte Editor jazyka stlačením klávesu " ALT " a ďalej len " F11 " klávesy na klávesnici znova .
13

Kliknite na " Zobraziť " , potom " Immediate . "
14

typ " ap_DisableShift " v " Immediate Window " zakázať používanie " klávesy Shift " .

• Predchádzajúca strana: Ako obnoviť Archív pst 
• Ďalšia strana: O Software pre zdravotníctvo praktiky