Alternative au champ compteur table access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 688 fois - Téléchargée 39 fois

Contenu du snippet

Les champs compteur dans Acces ne fonctionne pas toujours bien en utilisation multi-utilisateurs. Voici comment y remédier.

A noter que le champ compteur sera de type texte (20) dans la table ce
qui permettra de voir loin

Source / Exemple :


FUNCtion Compteur()
Dim var1 As Record
On Error GoTo AttenteFichierOccupe
    ' remplacer par l'adresse et le nom souhaité
    ' ouvre le fichier en mode exclusive
    Open "c:\temp\FICHTEST.txt" For Random Lock Read As #1
    Get #1, , var1
    var1.ID = var1.ID + 1
    ' je me place en tête afin d'écraser la valeur, sinon met a la suite
    Seek #1, 1
    Put #1, , var1
    Close #1

    AttenteFichierOccupe:
    ' détourne l'erreur et attente si fichier occupé par autre poste
    ' boucle sur cette erreur tant que
    Resume
End Sub

Dans un module 
Type Record   ' Désigne un type défini par l'utilisateur.
   ID As String * 20
End Type

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.