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

[VBA_dev_Anne_Marie]

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 !

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]

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

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]

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

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 !