Discussion :

[Anne1969]

Hello

j'ai un souçi que j'essaie de régler par des moyens tordus mais je suis à peu prés convaincue que c'est l'enfance de l'art.

J'ai une table Commandes avec les champs :
Ref_Commande
Quantité
Somme_Versée

J'ai aussi une table Type Commande avec les champs
Ref_Commande
Somme_due

J'ai un formulaire pour saisir les commandes et je voudrais pouvoir sélectionner un Ref_commande dans une liste déroulante à partir d'une requête faite sur la table Type Commande...pas de problème !!

Mon problème est que dans ce formulaire, je voudrais aussi un champ indépendant indiquant, pour information, Somme_due à partir de la valeur sélectionnée dans la liste Ref_Commande!!!

Comment faire ???

J'y arrive laborieusemenet en utilisant un sous-formulaire MAIS dans ce cas je ne peux pas afficher mon formulaire principale en mode continu...

Comment donc régler ce truc sans utiliser un sous-form ???

Merci beaucoup

Anne

[argyronet]

Bonjour,

Il est possiible d'affecter à un champ indépendant le résultat d'une requête...
Par exemple, si tu créées une requête du type:

Code :

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

1
2
3
4
SELECT DISTINCTROW [tblDetailCommandes].[NoCde], Sum([PUHT]*[Qte]*(1-[Remise] /100)* 100 AS SousTotal
FROM [tblDetailCommandes]
GROUP BY [tblDetailCommandes].[NoCde]
HAVING ((([tblDetailCommandes].[NoCde])=100021));

Cela te donnes un montant que tu peux affecter à ta zone de texte.
Il te faut alors remplacer le 100021 par la valeur renvoyée par ta liste de commandes.
Pour ce faire, il faut utiliser l'événement AfterUpdate()...
Par exemple:

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
Private Sub cboCommandes_AfterUpdate()
Dim strSQL As String
Dim oRS As dao.Recordset
  If IsNull(Me!cboCommandes) Then Exit Sub
  strSQL = "SELECT DISTINCTROW [tblDetailCommandes].[NoCde], Sum([PUHT]*[Qte]*(1-[Remise] /100)* 100 AS SousTotal"
  strSQL = strSQL & vbCrLf & "FROM [tblDetailCommandes]"
  strSQL = strSQL & vbCrLf & "GROUP BY [tblDetailCommandes].[NoCde]"
  strSQL = strSQL & vbCrLf & "HAVING ((([tblDetailCommandes].[NoCde])=" & Me!cboCommandes & "));"
  Set oRS = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
  With oRS
    Me!Somme_due = .Fields("SousTotal")
    .Close
  End With
  Set oRS = Nothing
End Sub

Voilà...

Argy

[Anne1969]

Merci pour ta téponse mais en fait je n'ai pas de souçi de somme au sens mathématique...

Je pense que mon pb est tellement simple qu'il en est désarmant...

Je viens de regarder la base exemple Bibliothèque : en fait mon souçi revient à l'équivalent de ce qui se passe dans l'onglet Client:
Sélectionner un code postal dans une liste déroulante : faire afficher la ville dans un champ indépendant

Suis-je oblgée de passer par de VBA?
Merci

ANne

[Anne1969]

Ayè, j'ai trouvé (grâce à la base exemple Bibliothèque !) :

Dans mon champ SourceContrôle de mon contrôle texte indépendant, j'ai mis :

Code :

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

=[Ref_Commande].column(1)

[argyronet]

Oui, effectivement, le fait d'incorporer le n° de commande et son montant dans la même liste permet de ressortir la valeur du montant qui est en colonne 2 (enfin 1 en VBA puisque l'index commence 0).
Je ne pensais pas, du fait que tu n'aies pas été assez précise, que ta requête qui constituait le RowSource de ta combo contenait aussi le montant, sinon, je t'aurais de suite suggéreé ce que tu as trouvé.

Mais c'est bien que tu aies trouvée seule, bravo.

Argy