Discussion :

[jeanpierre78]

Bonsoir,

Dans ma BD de gestion de l'association, j'ai un sous formulaire avec les champs suivants dans une même table : [idMembre], [Année], [Badge], ...

Lors de la saisie des inscriptions, comme le numéro de badge se répète souvent d'une année sur l'autre, j'aimerais ne pas le ressaisir pour éviter les erreurs sachant que la dernière année saisie peut ne pas être l'année précédente.

Je n'ai rien trouvé qui fonctionne.

Comment faire?

Merci d'avance.

Jean-Pierre

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait pouvoir fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

B = nz(DMax("Badge","NomTable","idMembre='" & me.idMembre &'),"")

Bonne continuation.

[jeanpierre78]

Bonjour,

Il s'agit de récupérer le numéro du badge pour dernière année de cotisation, c'est à dire la plus grande année dans la table cotisation, pour un membre donné.

Lorsque le place dans "Sur Activation" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Der_badge = Nz(DLookup("Badge", "Cotisations", "idMembre =" & Me.idMembre))

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Der_badge = Nz(DMax("Badge", "Cotisations", "idMembre =" & Me.idMembre))

je récupère la valeur la plus grande du numéro de badge (texte). Or cette valeur n'est pas toujours celle du badge de la dernière année de cotisation.

Si je place :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Der_badge = Nz(DMax("Badge", "Cotisations", "idMembre =" & Me.idMembre And "Année =" & me.Max_Année))

La valeur [Max_Année] est un champ texte calculé au bas du sous formulaire "Cotisations" inclus dans le formulaire "Membres" et lié par le champ [idMembre].

La valeur est alors vide.

Comment écrire la double condition sur [idMembre] et [Max_Année]?

Jean-Pierre

[hyperion13]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Der_badge = Nz(DMax("Badge", "Cotisations", "idMembre =" & Me.idMembre & " And Année =" & me.Max_Année & ""))

[jeanpierre78]

Bonsoir,

L'écriture proposée génère une erreur au chargement du formulaire.

Mon but est de placer la valeur dans le champ texte [Der_badge] pour l'utiliser ensuite comme valeur par défaut dans le champ [Badge] issu d'une table.

Jean-Pierre

[jeanpierre78]

Bonjour,

Pour contourner la difficulté :

• j'ai crée une requête "qry_Der_badge" qui me renvoie le numéro du dernier badge. Le résultat de cette requête est une seule ligne.

• dans "Sur activation" du sous-formulaire " Cotisations", j'ai placé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ' Dernier badge
    Me.Badge_memb.DefaultValue = Nz(DMax("Badge", "qry_Der_badge"))

Ainsi le numéro du dernier badge utilisé apparaît en valeur par défaut du champ [Badge]. Un seul défaut, il faut cliquer sur un champ pour que le numéro du badge apparaisse.

Que faut-il ajouter pour que la valeur par défaut s'affiche directement?

Jean-Pierre