OhitusnäppäinSallittu-ominaisuus

Asetus

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

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