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
