Alternative au champ compteur table access

Commenter

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

Du même auteur (cs_labout)