Microsoft 365 VBA: Modifier le signe selon une condition dans adodb

VBA_dev_Anne_Marie · 2 Septembre 2021

Bonjour,

Dans ma requête VBA je récupère le mt_rac_brut. Si cette donnée est négative je voudrais l'afficher sans signe "-": if mt_rac_brut >0 then mt_rac_brut=mt_rac_brut; if mt_rac_brut<0 then mt_rac_brut=-mt_rac_brut.

Je voudrais savoir comment on peut ajouter cette condition dans le code.

Merci beaucoup pour votre aide !

VB:

Public Sub GET_RACHAT_BRUT(NO_POLICE As String)

    Dim RECSET As New ADODB.Recordset
    RECSET.Open "select contrat.mt_rac_brut as rachat_brut from srvea.db_sea_contrat contrat" & _
                " where contrat.no_police = .....

fanch55 · 2 Septembre 2021

Bonjour,
Essayez ( mais vous ne saurez plus si c'est positif ou négatif ....) :

VB:

RECSET.Open "select abs(contrat.mt_rac_brut) as rachat_brut from srvea.db_sea_contrat contrat" & _
                " where contrat.no_police = '" & NO_POLICE & "'", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

VBA_dev_Anne_Marie · 2 Septembre 2021

fanch55 à dit:
Bonjour,
Essayez ( mais vous ne saurez plus si c'est positif ou négatif ....) :

VB:

RECSET.Open "select abs(contrat.mt_rac_brut) as rachat_brut from srvea.db_sea_contrat contrat" & _ " where contrat.no_police = '" & NO_POLICE & "'", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

Merci beaucoup !

Microsoft 365 VBA: Modifier le signe selon une condition dans adodb

VBA_dev_Anne_Marie

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires