Compléments pour Microsoft Access

Description

		Cette fonction permet de modifier une propriété de la base de données en cours.

Syntaxe

Boolean = fEditPropr(strProp, varTypeProp, varValeurProp)

La syntaxe de la fonction fEditPropr comprend les éléments suivants :

Eléments	Description
strProp	Expression de chaîne correspondant au nom de la propriété que l'on souhaite modifiée.
varTypeProp	Type de donnée de la propriété.
varValeurProp	Valeur de la propriété

Exemple

		Aucun excemple disponible pour le moment.

Code de la fonction

Public Function fEditPropr(strProp$, varTypeProp, varValeurProp) As Boolean
    'Modification des propriétés de la base de donnée en cours

    Dim db As DAO.Database
    Dim prp As DAO.Property

    Set db = CurrentDb
    On Error GoTo fEditPropr_Err
    db.Properties(strProp) = varValeurProp
    fEditPropr = True

fEditPropr_Exit:
    db.Close: Set db = Nothing
    Exit Function

fEditPropr_Err:
    If Err = 3270 Then
        Set prp = db.CreateProperty(strProp, _
        varTypeProp, varValeurProp)
        db.Properties.Append prp
        Set prp = Nothing
        Resume Next
    Else
        fEditPropr = False
        Resume fEditPropr_Exit
    End If

End Function

Modifier une propriété (Base de données)