Discussion :

[Blado_sap]

Bonjour à tous,

je vous expose mon problème
j'ai une table : T_bordereau avec plusieurs champs dedans
idbordereau numéroAuto clé primaire
numero_bordereau
avenant
date_bordereau
....

et j'ai deux formulaires
le premier permet de me lister tous les bordereaux (fonctionne très bien)
dans ce formulaire sur chaque ligne que la base me ramène pour mes bordereaux, j'ai trois boutons (un modifier, un supprimer et un ajouter)
ils fonctionnent bien également mais le problème se produit quand je clique sur ajouter
je voudrais que dans le nouveau formulaire qui s'ouvre, je récupère le numéro de bordereau
par contre c'est sur le champ avenant que ça ne fonctionne pas
je voudrais pouvoir récupérer le champ le plus grand des avenants pour ce bordereau et l'incrémenter de un

et la ça ne fonctionne pas je n'arrive pas à récupérer mon max du champ avenant

dans ma table je peux avoir:

T_bordereau
idbordereau numero_bordereau avenant
1 10 1
2 10 2
3 11 1
4 12 1

en gros si je clique sur ajouter pour le bordereau 10 que ça m'affiche l'avenant le plus grand donc 2 et que me l'inclémente de 1 donc qu'a la fin j'aies 3

mon bouton ajouter est de la forme:

Code :

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

1
2
3
4
5
6
 
 
private sub bouton_click()
docmd.openform "F_test1", , , , acformadd, acdialog
Me.recalc
End sub

j'ai meme essaye de créer une requête qui recherche le max de avenant (requête qui fonctionne seule) mais qui ne fonctionne pas si je l'appelle depuis mon champ avenant du formulaire f_test1

merci de votre aide
blado_sap

[User]

Bonjour,

C'est un problème qui revient en permanence sur le forum.

Pour mettre à jour le champ "Avenant", il faudrait utiliser ce type de formule:

Code :

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

Me.Avenant=DMax("Avenant","T_bordereau","numero_bordereau=" & Me.[numero_bordereau] ) + 1

Il faudrait mettre ce code au niveau de ton formulaire, par exemple sur l'événement "après maj" ("After Update") de ta zone de texte "numero_bordereau".

Cdlt,

[Blado_sap]

hello
ça ne fonctionne pas

j'ai mis ton code au niveau de l'alter maj de ma zone de texte "numéro_bordereau"
j'ai testé en mettant ce code aussi au niveau de la zone after ms du formulaire mais pas mieux

dans ma zone de texte "avenant" sur le champ "source contrôle" j'ai avenant
par contre je n'ai rien dans ma zone "valeur par défaut"

ou aies je fait une erreur?

D'avance merci
blado_sap

[User]

Bonjour,

Vous avez un message d'erreur ou autre chose ?

Peut-être essayer ceci :

Code :

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

Me.Avenant=nz(DMax("Avenant","T_bordereau","numero_bordereau=" & Me.[numero_bordereau] ),0) + 1

[Blado_sap]

Bonjour,

Non je n'ai pas de message d'erreur ni autre chose
Et ça ne fonctionne pas même avec votre seconde solution

Avez vous une autre idee?

D'avance merci
Blado_sap

[User]

A mon avis l'événement "After UpDate" de votre zone de texte "numero_bordereau" ne se déclenche pas...

Pour que cet événement se déclenche il faut mettre à jour votre zone de texte en y saisissant une valeur.

Une piqûre de rappel sur les événements...

[Blado_sap]

Bonjour
A l'ouverture de la page cette valeur est deja chargée et je ne veux pas la modifier car c'est cette valeur que je veux garder en plus cette zone est verrouillée

Est ce qu'il est possible du coup de faire que ma valeur avenant se mette a jour sur un autre événement?

Chargement de la page ou autre?

Merci
Blado_sap

[User]

Peut-être sur avant insertion (before insert) de ton formulaire, si tu y ajoutes des données.

a+

[Blado_sap]

Bonsoir,

J'ai un message d'erreur qui me dit

Erreur d'exécution '3464'
Type de données incompatible dans l'expression du critère

Une idee??

D'avance merci
Blado_sap

[User]

Bonjour,

Le champ "numero_bordereau" est de quel type ?

Peut-être essayer :

Code :

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

Me.Avenant=nz(DMax("Avenant","T_bordereau","numero_bordereau=" & nz(Me.[numero_bordereau] ,0)),0) + 1

S'il est numérique.

Et :

Code :

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

Me.Avenant=nz(DMax("Avenant","T_bordereau","numero_bordereau='" & nz(Me.[numero_bordereau] ,"") & "'"),0) + 1

Si c'est du texte.

Cdlt,

[Blado_sap]

Bonjour,

Super Ca fonctionne en mode texte en mettant l'instruction sur lé code évènement "sur chargement" du formulaire

Merci beaucoup
Blado_sap

[User]

De rien,

Ce fut long mais on y est arrivé