Bonsoir,
Suite à une fausse manœuvre, je dois recréer cette discussion. Merci Pierre-Yves, effectivement je tente d’ afficher un résultat de requête dans une colonne. Afin de procéder à un test, j’ai crée une nouvelle base avec des champs formatés mais le résultat est toujours le même.
Sub Calcul()
Dim Cnx As Object, Stmt As Object, Frml As Object, FrmlActif As Object
Dim SousFrmlActif As Object, CtrlDte As Object, CtrlTst As Object
Dim RsltAch As Object, CtrlAch As Object
Dim Dte As String, RqtAch As String
Dim CfTst As Integer, VlrAch As Integer
Dim MntOpr As Double
'--- Connection base ----
Cnx = ThisDatabasedocument.CurrentController.ActiveConnection
Stmt = Cnx.createStatement()
Frml = ThisComponent.DrawPage.Forms
FrmlActif = Frml.getByName("FTest")
SousFrmlActif = FrmlActif.getByName("FTest_Grid")
'--- Récupération de la date d' un mouvement au format SQL ---
CtrlDte = SousfrmlActif.getByName("Date")
Dte = Format(CDateFromUnoDate(CtrlDte.Date), "YYYY-MM-DD")
'--- Récupération de la clé du mouvement ---
CtrlTst = SousFrmlActif.getByName("Cf_Test")
CfTst = CtrlTst.CurrentValue
'--- Totalisation de l' opération ---
RqtAch = "SELECT Quts*Tarif FROM T_Test WHERE Cf_Test = '"& CfTst &"'"
RsltAch = Stmt.ExecuteQuery(RqtAch)
RsltAch.Next
MntOpr = RsltAch.getDouble(1)
'--- Affichage des données dans le formulaire ---
CtrlAch = SousFrmlActif.getByName("Achat")
VlrAch = CtrlAch.CurrentValue
If VlrAch = 1 then
With SousFrmlActif.getByName("MntAchat")
.TextColor = RGB(255,0,0)
.Value = MntOpr
.Commit
End With
With SousFrmlActif.getByName("MntVente")
.TextColor = RGB(0,128,64)
.Value = 0
.Commit
End With
Else
With SousFrmlActif.getByName("MntAchat")
.TextColor = RGB(255,0,0)
.Value = 0
.Commit
End With
With SousFrmlActif.getByName("MntVente")
.TextColor = RGB(0,128,64)
.Value = MntOpr
.Commit
End With
End If
End Sub
Par contre, je ne sais pas joindre un fichier.
Cordialement