Discussion :

[yieiyiei]

Bonsoir,

j'essaye de copier la valeur d'un champ dans un autre. le premier étant un prix qui va être modifié dans le temps, le second champ étant le prix qu'on gardera dans l'historique.

Pour la moment ça fonctionne +-, mon soucis est qu'en ajoutant le premier article rien ne se passe, en ajoutant le deuxième, il importe la valeur du premier, puis le troisième la valeur du deuxième ...., j'ai déplacé ma ligne de code mais rien n'y fait et je suis un peu perdu.

voici ce que j'ai pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Liste_Article_DblClick(Cancel As Integer) 'AJOUTER ARTICLE A LA LISTE
 
If IsNull(Me.Test_N°Sortie.Value) Or Me.Test_N°Sortie.Value = "" Then
MsgBox "Veuillez créer une nouvelle vente", vbInformation, ""
 
Exit Sub
 
Else
 
Forms![Home].Form![Fille104]![Somme_Liste].ForeColor = 16777215 ' somme de liste en blanc
 
Forms("HOME").Form("Fille104").Form("SF_Détail_Vente").Form.AllowAdditions = True
 
Forms("HOME").Form("Fille104").Form("SF_Détail_Vente").Form.Recordset.AddNew
 
Forms![Home].Form![Fille104].Form![SF_Détail_Vente]![#Article].Value = Liste_Article.Column(0)
 
CurrentDb.Execute "UPDATE R_Détail_Vente SET R_Détail_Vente.[PVUS RR TVAC] = R_Détail_Vente.[PVU RR TVAC] WHERE R_Détail_Vente.[#Sortie] = " & (Me.Test_N°Sortie)
 
DoCmd.RunCommand acCmdSaveRecord 'enregistre le nouveau numéro de vente
 
Forms("HOME").Form("Fille104").Form("SF_Détail_Vente").Form.AllowAdditions = False
 
End If
 
End Sub

merci

[madefemere]

Bonjour,

Pourquoi tu changes de syntaxes pour faire référence à des éléments de ton sous-sous-sous-formulaire [SF_Détail_Vente] sur tes 3 lignes ?
Je pense qu'à la ligne 16, il manque un form, de la sorte :

Code :

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

Forms![Home].Form![Fille104].Form![SF_Détail_Vente].Form.[#Article].Value = Liste_Article.Column(0)

Cordialement,

[yieiyiei]

sans raison, j'ai copié mes blocs à gauche et à droite un peu vite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Forms![Home].Form![Fille104]![Somme_Liste].ForeColor = 16777215 ' somme de liste en blanc
 
Forms![Home].Form![Fille104].Form![SF_Détail_Vente].Form.AllowAdditions = True
 
Forms![Home].Form![Fille104].Form![SF_Détail_Vente].Form.Recordset.AddNew
 
Forms![Home].Form![Fille104].Form![SF_Détail_Vente]![#Article].Value = Liste_Article.Column(0)
 
CurrentDb.Execute "UPDATE R_Détail_Vente SET R_Détail_Vente.[PVUS RR TVAC] = R_Détail_Vente.[PVU RR TVAC] WHERE R_Détail_Vente.[#Sortie] = " & (Me.Test_N°Sortie)
 
DoCmd.RunCommand acCmdSaveRecord 'enregistre le nouveau numéro de vente
 
Forms("HOME").Form("Fille104").Form("SF_Détail_Vente").Form.AllowAdditions = False

mais en apportant ta modif ça ne va ni mieux, ni moins bien, j'ai toujours le problème qu'il effectue UPDATE sur la ligne précédente et non la nouvelle

[yieiyiei]

je viens de tout changer pour pouvoir passer à ça :

Code :

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

1
2
3
4
5
6
7
8
9
Forms![Home].Form![Fille104]![Somme_Liste].ForeColor = 16777215 ' somme de liste en blanc
 
Me.Refresh
 
CurrentDb.Execute "INSERT INTO R_Détail_Vente ([#Sortie],[#Article]) SELECT """ & Me.Test_N°Sortie & """ AS Expr1,""" & Me.Liste_Article.Column(0) & """ AS Expr2;"
 
Me.SF_Détail_Vente.Requery
 
CurrentDb.Execute "UPDATE R_Détail_Vente SET R_Détail_Vente.[PVUS RR TVAC] = R_Détail_Vente.[PVU RR TVAC] WHERE R_Détail_Vente.[#Sortie] = " & (Me.Test_N°Sortie)

c'est moins de ligne et mon problème est résolu. Par contre au niveau de la commance UPDATE, c'est appliqué sur tous mes champs ayant la même #Sortie, il y a t il moyen de n'applique que l'UPDATE sur la dernière ligne ajoutée dans mon sous formulaire ou il faut ruser en ajoutant une clé ?