ALTERNATIVE AU CHAMP COMPTEUR TABLE ACCESS

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