Compteur sous Access
SIG
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je développe une base de données sous access et je souhaiterais faire un compteur automatique. Ce qui signifie qu'à chaque nouvel enregistrement il y ait le n° suivant:
2004/0001
puis à chaque nouvel enregistrement que le n° s'incrémente automatiquement:
2004/0002
...
2004/0003
Etc...
merci de votre aide
Je développe une base de données sous access et je souhaiterais faire un compteur automatique. Ce qui signifie qu'à chaque nouvel enregistrement il y ait le n° suivant:
2004/0001
puis à chaque nouvel enregistrement que le n° s'incrémente automatiquement:
2004/0002
...
2004/0003
Etc...
merci de votre aide
A voir également:
- Compteur sous Access
- Compteur électrique - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Acer quick access - Forum Logiciels
- Access appdata - Guide
1 réponse
Il faut que tu passe par un fichier, ce qui est tout bête.
Voici le code (à modifier selon ton applic) :
Close
Dim chemin As Variant
Dim valeur As Variant
chemin = "\xxxx\xxxx\"
Open chemin & "\tonfichier.xxx" For Input As #1
Input #1, valeur
Close
if left(valeur,4)=year(date)
valeur=valeur+1
else
valeur = Val(Year(date)) & "0001"
end if
Open chemin & "\tonfichier.xxx" For Output As #1
Write #1, valeur
Close
Par contre, il faut forcément que tu crées un fichier avant de lancer ton applic, avec un numéro valable dedans, genre 20040000.
@+
Voici le code (à modifier selon ton applic) :
Close
Dim chemin As Variant
Dim valeur As Variant
chemin = "\xxxx\xxxx\"
Open chemin & "\tonfichier.xxx" For Input As #1
Input #1, valeur
Close
if left(valeur,4)=year(date)
valeur=valeur+1
else
valeur = Val(Year(date)) & "0001"
end if
Open chemin & "\tonfichier.xxx" For Output As #1
Write #1, valeur
Close
Par contre, il faut forcément que tu crées un fichier avant de lancer ton applic, avec un numéro valable dedans, genre 20040000.
@+