OhitusnäppäinSallittu-ominaisuus

OhitusnäppäinSallittu-ominaisuuden avulla voit määrittää, voidaanko käynnistysominaisuudet ja AutoExec-makro ohittaa vaihtonäppäimellä. Jos esimerkiksi määrität OhitusnäppäinSallittu-asetukseksi Epätosi, käyttäjä ei voi ohittaa käynnistysominaisuuksia eikä AutoExec-makroa.

Asetus

OhitusnäppäinSallittu-ominaisuus käyttää seuraavia asetuksia.

Asetus

Kuvaus

tosi

Käyttäjä voi ohittaa käynnistysasetukset ja automaattisesti suoritettavan makron VAIHTONÄPPÄIMELLÄ.

epätosi

Käyttäjä ei voi ohittaa käynnistysasetuksia ja automaattisesti suoritettavaa makroa VAIHTONÄPPÄIMELLÄ.


Tämän ominaisuuden määrittämiseen soveltuu makro tai Visual Basic for Applications (VBA) -koodi.

Jos haluat määrittää OhitusnäppäinSallittu-ominaisuuden makron tai Visual Basic for Applications (VBA) -koodin avulla, sinun on luotava ominaisuus seuraavilla tavoilla:

  • Microsoft Access -tietokannassa (.mdb tai .accdb) voit lisätä ominaisuuden LuoOminaisuus-menetelmällä ja liittää sen sitten Tietokanta-objektin Ominaisuudet-kokoelmaan.

  • Microsoft Access -projekti (.adp) voit lisätä ominaisuuden NykyinenProjekti-objektin AccessObjektinOminaisuudet-kokoelmaan Lisää-menetelmällä.

Huomautuksia

Varmista, että OhitusnäppäinSallittu-ominaisuudeksi on määritetty Tosi, kun teet sovellukseen virheenkorjausta.

OhitusnäppäinSallittu-ominaisuuden asetus tulee käyttöön vasta, kun sovellustietokanta seuraavan kerran avataan.

Esimerkki

Seuraavassa esimerkissä on MääritäOhitusominaisuus-toimintosarja, joka välittää määritettävän ominaisuuden nimen, tietotyypin ja asetuksen. Yleiskäyttöinen MuutaOminaisuus-toimintosarja yrittää määrittää OhitusnäppäinSallittu-ominaisuuden, ja jos ominaisuutta ei löydy, se liittää ominaisuuden LuoOminaisuus-menetelmän avulla Ominaisuudet-kokoelmaan. Tämä on tarpeen, koska OhitusnäppäinSallittu-ominaisuutta ei näy Ominaisuudet-kokoelmassa, ennen kuin se on lisätty.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×