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
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.