Discussion :

[alex77140]

j ai un formulaire contenant une liste déroulante.
on realise un choix dans cette liste et on appuis sur "ok"
a ce moment la un nouveau formulaire s'ouvre et un champs vient ce remplir automatiquement avec le chiffre qui eait contenu dans la liste déroulante.

jusque la tout va bien j ai réussi.

le problème se pose juste apres:

il faudrait lors de l'ouverture par exemple (ou sur sortie d'un champs) de ce 2eme formulaire que:
1) l'ordinateur relève ce chiffre pour pouvoir le réutiliser
2) qui regarde dans une table (table1) tous les enregistrements ayant ce chiffre dans un champ (champ 1)
3) qu il prenne le dernier de ces enregistrement
4) sur ce dernier enregistrement il regarde la valeur ( c'est aussi un chiffre) d'un 2eme champ (champ 2)
5) qu il rajoute 1 a ce chiffre
6) que cette valeur soit recopier dans un champs de mon 2eme formulaire

j'espere avoir été le plus clair possible en esperant que vous pouver m'aider

merci pour tout le temps que vous consacrer a repondre aux questions.

deoler pour les faute d'orthographe je n'est jamais été très fort....

[alex77140]

j ai chercher un moyen et j ai trouver ceci:

Code :

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

MsgBox DLookup("[dev_numero]", "tbl_devis", "[dev_id] = " & DMax("[dev_id]", "tbl_devis", "[dev_lien_ind]=" & CLng(Me.OpenArgs))) + 1

mais il y a un problème
j ai inséré le msgbox plutot que le nom de champ pour pouvoir voir ou est l'erreur.
en faite j ai deux message d'affiler qui s'affiche,le premier me donne la bonne valeur le second me donne rien du tout meme pas 0 ou un autre nombre...

comment faire pour ne garder que le 1er ou n'avoir que le premier qui s'affiche?
pouvez vous m'aider svp

[helas]

Peut-être l'emplacement de la derniere parenthèse

Code :

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

1
2
MsgBox DLookup("[dev_numero]", "tbl_devis", "[dev_id] = " & DMax("[dev_id]", "tbl_devis", "[dev_lien_ind]=" & CLng(Me.OpenArgs)) + 1 )

[alex77140]

non sa ne marche pas mais j ai trouver la solution:
j ai simplement deplacer le DMax dans une variable et sa marche... pas tout compris pourquoi mais bon le principale c'est que sa marche. il me semble que c'est sa que j ai fait. (j ai plus la base sous les yeux)

Code :

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

1
2
3
4
 
dim temp as string
temp = DMax("[dev_id]", "tbl_devis", "[dev_lien_ind]=" & CLng(Me.OpenArgs))
DLookup("[dev_numero]", "tbl_devis", "[dev_id] = " & temp) + 1