Discussion :

[Palmero]

Bonjour,

Je cherche désespérément à pouvoir stocker le dernier enregistrement d'un champ dans un formulaire afin de pouvoir lui rajouter 10 à la ligne suivante.
En fait c'est pour la création d'un devis et je veux que chaque ligne aient un n° de poste qui se numérote de 10 en 10.
J'ai tenté sans succès avec Dlast dans mon vba mais rien ne fonctionne.
Je vous remercie de votre aide.

[marot_r]

Bonjour.

Utilise DMax(), quelque chose comme : Nz(DMax("TonChampNumero", "TaTable", "[NumDevis]=" & me.NumDevis), 0) + 10.

Ceci dit c'est probablement une mauvaise idée de le faire dans la table. Il serait plus prudent de faire cela uniquement au moment de l'affichage ou de l'impression.

A+

[Palmero]

Merci Marot pour ta réponse,
Je suis vraiment trop novice en VBA, je ne parviens pas à le mettre en place :
Voilà ce que j'ai mis sur mon événement après mise à jours de ma [description], le champ [Poste] doit pouvoir se numéroter
Mais mon champ [Poste] reste désespérément à 10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Designation_AfterUpdate()
 
    Dim ND As String
 
    Me.NumeroTableDevisGC.Value = Me.NumeroDevisGC.Value
 
    ND = Nz(DMax([NumeroDevisGC], "T-DetailDevisGC", "[Poste]=" & Me.Poste), 0) + 10
 
    Me.Poste.Value = ND
 
    Refresh

[hyperion13]

Salut
Ôtez-moi d'un doute.
Ne cherchez-vous pas à numéroter les lignes d'un sous-formulaire ?
Une capture d'écran serait la bienvenue.

[Palmero]

Exactement

[hyperion13]

ok
Copier ce code dans l'évènement Avant MAJ de votre sous-formulaire
N'oubliez pas de créer Lignedevis de type entier long dans votre table.

Code :

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

1
2
3
4
5
Private Sub Form_BeforeUpdate(Cancel As Integer)
Lignedevis = Nz(DMax("Lignedevis", "T-DetailDevisGC", "NumeroDevisGC = '" &Me.NumeroDevisGC & "'")) + 10 'si NumeroDevisGC est string
ou
Lignedevis = Nz(DMax("Lignedevis", "T-DetailDevisGC", "NumeroDevisGC = " & Me.NumeroDevisGC & "")) + 10 'si NumeroDevisGC est numérique
End Sub

[Palmero]

Et bien je galère encore pour ma petite numérotation car quand je fais un autre devis entre temps il reprend le dernier enregistrement de ma table et pas de mon devis sur lequel je travaille !!

[hyperion13]

Drole de construction votre devis.

[Palmero]

Je ne sais pas si c'est une drôle de configuration.
J'ai des "dossiers" de gestion commerciale dans laquelle je peux avoir une infinité de devis numéroté par "DevisJPPI" et chaque devis peut avoir une infinité de ligne (T-DetailDevisGC)
Dites moi ce que vous en pensez c'est plutôt bien d'échanger.
Merci

[hyperion13]

Comme sur la capture d'écran de mon post#8 une facture peut avoir tuples lignes.
Vous n'avez pas ajouté le champ LigneDevis (Type Entier long) dans la tbl T-DetailDevisGC !

Code :

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

1
2
3
4
5
Private Sub Form_BeforeUpdate(Cancel As Integer)
Lignedevis = Nz(DMax("Lignedevis", "T-DetailDevisGC", "NumeroTableDevisGC = '" &Me.NumeroTableDevisGC & "'")) + 10 'si NumeroTableDevisGC est string
ou
Lignedevis = Nz(DMax("Lignedevis", "T-DetailDevisGC", "NumeroTableDevisGC = " & Me.NumeroTableDevisGC & "")) + 10 'si NumeroTableDevisGC est numérique
End Sub

[Palmero]

Merci mille fois Ça Marche !!!!!
enfin une bonne note en fin de semaine c'est rafraîchissant