OVH Cloud OVH Cloud

incrémentation automatique modifiable bis

2 réponses
Avatar
PS
Bonjour,
suite à ma demande concernant la fonction à utiliser en valeur par défaut
pour une incrémentation automatique modifiable, 3stone m'a donné la fonction
= DMax("[LeCompteur]";"LaTable") +1
ça fonctionne , merci à 3stone, .... MAIS...... (désolé)je viens de m'en
apercevoir ....
La fonction n'est valable que en mode formulaire simple. En mode feuille de
donnée, la valeur donnée ne prend pas en compte la ligne d'enregistrement en
cours est le compteur est faux de 1.
Quelle est la solution.
D'avance Merci
Paul

2 réponses

Avatar
3stone
Salut,

"PS"
suite à ma demande concernant la fonction à utiliser en valeur par défaut
pour une incrémentation automatique modifiable, 3stone m'a donné la fonction
= DMax("[LeCompteur]";"LaTable") +1
ça fonctionne , merci à 3stone, .... MAIS...... (désolé)je viens de m'en
apercevoir ....
La fonction n'est valable que en mode formulaire simple. En mode feuille de
donnée, la valeur donnée ne prend pas en compte la ligne d'enregistrement en
cours est le compteur est faux de 1.
Quelle est la solution.



Ne mets rien en valeur par défaut, mais, place ceci
dans l'événement "Form_Current"


Private Sub Form_Current()

If Me.NewRecord Then
Me.IDCounter = Nz(DMax("IDCounter", "TaTable"), 0) + 1
End If


ca le fait...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
PS
Merci Beaucoup 3stone.
ça l'a fait
A+ Paul

"3stone" a écrit dans le message de
news:
Salut,

"PS"
suite à ma demande concernant la fonction à utiliser en valeur par
défaut


pour une incrémentation automatique modifiable, 3stone m'a donné la
fonction


= DMax("[LeCompteur]";"LaTable") +1
ça fonctionne , merci à 3stone, .... MAIS...... (désolé)je viens de m'en
apercevoir ....
La fonction n'est valable que en mode formulaire simple. En mode feuille
de


donnée, la valeur donnée ne prend pas en compte la ligne
d'enregistrement en


cours est le compteur est faux de 1.
Quelle est la solution.



Ne mets rien en valeur par défaut, mais, place ceci
dans l'événement "Form_Current"


Private Sub Form_Current()

If Me.NewRecord Then
Me.IDCounter = Nz(DMax("IDCounter", "TaTable"), 0) + 1
End If


ca le fait...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------