Discussion :

[kinguepat]

Bonsoir aux membres!

je dispose d'une table tblVentes avec les champs suivants:

-N°Facture
-DateFacture
-N°BC

une table tblDetailsVentes:
-N°detailFact
-N°Facture (de la tblVente)
-Client
-Comercial
-Quantité
-Prix

J'ai un formulaire F_Vente basé sur la tblVentes et un sous formulaire SF_Details_Ventes basé sur la tblDetailsVentes.
le champ N°BC du F_Vente est une zone de liste déroulante avec pour contenu, une requête req_BonCde_Vente (constituée des tables tblCdes et tblDetailsCdes)

Je souhaiterai que, lors de la sélection du N°BC du formulaire F_Vente, les champs Quantité et Prix du sous formulaire SF_Details_Ventes soient renseignés en fonction du N°BC sélectionné.

J'ai fais

Code :

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

1
2
3
4
5
Private Sub NumBCVte_AfterUpdate()
Me.txtIDClient = NumBCVte.Column(1)
Me.txtIDCCial = NumBCVte.Column(2)
Me![SF_Details_Ventes].txtSFQtes = NumBCVte.Column(3)
Me![SF_Details_Ventes].txtSFPrix=NumBCVte.column(4)

les champs txtIDClient et txtIDCCial qui sont sur le formulaire F_Vente se renseignent normalement contrairement aux autres champs (quantités et prix).

Au plaisir de vous lire

[kinguepat]

Suis toujours en attente de vos différentes participations et suggestions s'il vous plaît.
Merci d'avance

[kinguepat]

Bonjour à tous et joyeux noël!
Après quelques recherches, j'ai pu trouver la solution que je poste ici, ça pourrait aider quelqu'un

Code :

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

1
2
3
4
Private Sub NumBCVte_AfterUpdate()
Me![sFrm_DetailsVentes].[Form]![txtsFrmQtes] = Me![NumBCVte].Column(3)
Me![sFrm_DetailsVentes].[Form]![txtsFrmPrix] = Me![NumBCVte].Column(4)
Me!sFrm_DetailsVentes.Form!txtsFrmArticles = Me!NumBCVte.Column(5)

l'autre souci: j'ai un bouton qui me permet de valider l'enregistrement

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
Private Sub btnSaveVte_Click()
DoCmd.SetWarnings False
Me.AllowAdditions = True
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Voulez-vous confirmer la vente?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = False
    Me.AllowAdditions = False
    DoCmd.Close acForm, "F_Vente"
    Else
 If MsgBox("Passez au règlement de cette vente?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = False
    DoCmd.Close acForm, "F_Vente"
    Else
    Me.AllowAdditions = True
    DoCmd.Close acForm, "F_Vente"
    DoCmd.OpenForm "F_Reglements", acNormal
  End If
  End If
 
 
End Sub

j'ai constaté lors de la validation, sauf les données du Formulaire sont sauvegardé et pas ceux du sous formulaire.

quelqu'un aurait-il une idée de comment m'y prendre?

[kinguepat]

J'ai ajouter :

Code :

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

1
2
3
4
5
Private Sub btnSaveVte_Click()
Me.sFrm_DetailsVentes.Form.Recordset.AddNew
...
End sub

et ça marche.