Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Formulaires - Verrouillage de formulaire

En multi-utilisateurs, il est fortement conseillé de verrouiller les formulaires

 

Le verrouillage le plus approprié dans ce cas étant "Enregistremement modifié".

 

Le positionnement "à la main" de cette propriété, dans de nombreux formulaires, pouvant être rébarbatif, il suffit d'utiliser la fonction suivante:

 

Remarque : A utiliser à partir d'Access 2000



Function SetLock(Optional intValeur As Integer = 2)

'//
'// Usage: Call SetLock(x)
'//
'// Valeur de 'x' : 0 = Aucun , 1 = Général , 2 = Enregistrement modifié
'//
'// Si omis, la valeur 2 est utilisée
'//

Dim frm As Object

DoCmd.Echo False

For Each frm In CurrentProject.AllForms

DoCmd.OpenForm frm.Name, acDesign

Forms(frm.Name).Properties("RecordLocks").Value = intValeur

DoCmd.Close acForm, frm.Name, acSaveYes

Next frm

DoCmd.Echo True

End Function

 


 

La même fonction que ci-dessus, mais pour Access 97 qui ne connait pas la collection "AllForms"

 

Function SetLock97(Optional intValeur As Integer = 2)

'//
'// Usage: Call SetLock(x)
'//
'// Valeur de 'x' : 0 = Aucun , 1 = Général , 2 = Enregistrement modifié
'//
'// Si omis, la valeur 2 est utilisée
'//

Dim db As DAO.Database

Dim doc As DAO.Document

Set db = CurrentDb

DoCmd.Echo False

For Each doc In db.Containers("Forms").Documents

DoCmd.OpenForm doc.Name, acDesign

Forms(doc.Name).Properties("RecordLocks").Value = intValeur

DoCmd.Close acForm, doc.Name, acSaveYes

Next doc

Set db = Nothing

DoCmd.Echo True

End Function


Date de création : 31/10/2005 : 15:09
Dernière modification : 08/02/2010 : 01:41
Catégorie : Formulaires
Page lue 8434 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut