Bonjour,
2 requetes alimentent deux list box d'un formulaire, dans lesquelles apparaissent donc deux prix.
J'aimerais mettre dans un text box le quotien des deux prix:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim SQL3 As String SQL3 = "SELECT Sum([total_associe]) FROM [commande_materiel] WHERE nom_mag=" & num_magasin & ";" Me.lst_total_actuel.RowSource = SQL3 Dim SQL4 As String SQL4 = "SELECT budget_previsionnel FROM magasin WHERE nom_magasin ='" & identite_mag & "';" Me.lst_total_previsionnel.RowSource = SQL4
Quelqu'un peux m'aider??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim numerateur As Variant Dim denominateur As Variant Dim Quotient As Variant Dim numerateur As Variant Dim denominateur As Variant Dim Quotient As Variant numerateur = Me.lst_total_previsionnel denominateur = Me.lst_total_actuel Quotient = numerateur / denominateur Me.txt_ratio = Quotient
Merci![]()
Partager