OVH Cloud OVH Cloud

Implémenter un champ de 1

3 réponses
Avatar
Luis
Bonjour,
Dans un formulaire ‘frm_Contacts’ que l’on ouvre à partir d’un formulaire
‘Client’ qui reste ouvert on saisie les données des contacts pour la société
en question, voici le schéma de la table "Contacts".

[NCONTACTS] NuméroAuto
[NCLIENT] Numérique
[NOMCONTACT] Texte
[TELCONTACT] Texte
[MAILCONTACT] Texte
[ORDRE] Numérique

Dans le formulaire ‘frm_Contacts’
[NCLIENT] Valeur par défaut=[Formulaires]![CLIENTS].[NClient]

Dans [ORDRE] on doit saisir le numéro (1,2,3...) de l’ordre de parution dans
lequel on veut voir apparaître les contacts.
J’aimerai savoir comment faire pour que le numéro [ORDRE] s’implémente de 1
par rapport au dernier numéro déjà saisi pour ce client.
Merci pour votre aide.
Luis

3 réponses

Avatar
Raymond [mvp]
Bonjour Luis.
ça faisait longtemps, nous deux ......

si tu veux un truc sûr, il faut faire un DMax +1 sur le champ ordre de la
table contact, avec la clause where sur NCLIENT
Me.ORDRE = DMax("ORDRE", "Contacts", "NCLIENT = " & Me.NCLIENT) + 1

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Luis" a écrit dans le message de news:

| Bonjour,
| Dans un formulaire 'frm_Contacts' que l'on ouvre à partir d'un formulaire
| 'Client' qui reste ouvert on saisie les données des contacts pour la
société
| en question, voici le schéma de la table "Contacts".
|
| [NCONTACTS] NuméroAuto
| [NCLIENT] Numérique
| [NOMCONTACT] Texte
| [TELCONTACT] Texte
| [MAILCONTACT] Texte
| [ORDRE] Numérique
|
| Dans le formulaire 'frm_Contacts'
| [NCLIENT] Valeur par défaut=[Formulaires]![CLIENTS].[NClient]
|
| Dans [ORDRE] on doit saisir le numéro (1,2,3...) de l'ordre de parution
dans
| lequel on veut voir apparaître les contacts.
| J'aimerai savoir comment faire pour que le numéro [ORDRE] s'implémente de
1
| par rapport au dernier numéro déjà saisi pour ce client.
| Merci pour votre aide.
| Luis
|
Avatar
Luis
Bonjour Raymond,
Ca me fait plaisir de te lire.
Je vais tout de suite essayer.
A tout à l'heure.
Luis


Bonjour Luis.
ça faisait longtemps, nous deux ......

si tu veux un truc sûr, il faut faire un DMax +1 sur le champ ordre de la
table contact, avec la clause where sur NCLIENT
Me.ORDRE = DMax("ORDRE", "Contacts", "NCLIENT = " & Me.NCLIENT) + 1

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Luis" a écrit dans le message de news:

| Bonjour,
| Dans un formulaire 'frm_Contacts' que l'on ouvre à partir d'un formulaire
| 'Client' qui reste ouvert on saisie les données des contacts pour la
société
| en question, voici le schéma de la table "Contacts".
|
| [NCONTACTS] NuméroAuto
| [NCLIENT] Numérique
| [NOMCONTACT] Texte
| [TELCONTACT] Texte
| [MAILCONTACT] Texte
| [ORDRE] Numérique
|
| Dans le formulaire 'frm_Contacts'
| [NCLIENT] Valeur par défaut=[Formulaires]![CLIENTS].[NClient]
|
| Dans [ORDRE] on doit saisir le numéro (1,2,3...) de l'ordre de parution
dans
| lequel on veut voir apparaître les contacts.
| J'aimerai savoir comment faire pour que le numéro [ORDRE] s'implémente de
1
| par rapport au dernier numéro déjà saisi pour ce client.
| Merci pour votre aide.
| Luis
|





Avatar
Luis
Re bonjour Raymond,
C'est parfait ça marche, j'ai du rajouter une condition, car si non lorsque
l'on fait modifier valider, il s'implémentait sur lui-même:
Sur clic de "OK"
If IsNull(Me.ORDRE) Or Me.ORDRE = 0 Then
Me.ORDRE = DMax("ORDRE", "Contacts", "NCLIENT = " & Me.NCLIENT) + 1
Else: Exit Sub
End If
Je te remercie vraiment.
Luis



Bonjour Raymond,
Ca me fait plaisir de te lire.
Je vais tout de suite essayer.
A tout à l'heure.
Luis


Bonjour Luis.
ça faisait longtemps, nous deux ......

si tu veux un truc sûr, il faut faire un DMax +1 sur le champ ordre de la
table contact, avec la clause where sur NCLIENT
Me.ORDRE = DMax("ORDRE", "Contacts", "NCLIENT = " & Me.NCLIENT) + 1

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"Luis" a écrit dans le message de news:

| Bonjour,
| Dans un formulaire 'frm_Contacts' que l'on ouvre à partir d'un formulaire
| 'Client' qui reste ouvert on saisie les données des contacts pour la
société
| en question, voici le schéma de la table "Contacts".
|
| [NCONTACTS] NuméroAuto
| [NCLIENT] Numérique
| [NOMCONTACT] Texte
| [TELCONTACT] Texte
| [MAILCONTACT] Texte
| [ORDRE] Numérique
|
| Dans le formulaire 'frm_Contacts'
| [NCLIENT] Valeur par défaut=[Formulaires]![CLIENTS].[NClient]
|
| Dans [ORDRE] on doit saisir le numéro (1,2,3...) de l'ordre de parution
dans
| lequel on veut voir apparaître les contacts.
| J'aimerai savoir comment faire pour que le numéro [ORDRE] s'implémente de
1
| par rapport au dernier numéro déjà saisi pour ce client.
| Merci pour votre aide.
| Luis
|