Discussion :

[possible924]

Bonjour à tous,
Il ma semble avoir un problème de déclaration de variable.
J'ai une requête en VBA pour mettre à jour une table
ça marche très bien, mais mes décimales sont perdues
Voilà le code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Close()
Dim MySql As String
Dim Montant As Integer
    'Montant = Me.Aides_Montant_Total
    Montant = DSum("E_Aides_Montant", "T_Entretiens", "E_Clé_Dossier =" & CléNewUsager)
MySql = "UPDATE T_Dossiers SET T_Dossiers.Dt_Aides_Montant = " & Montant & " WHERE T_Dossiers.CléP_Dossier=" & CléNewUsager
    DoCmd.SetWarnings False
        DoCmd.RunSQL MySql
    DoCmd.SetWarnings True
End Sub

Je pense que le problème se situe au niveau de la variable, mais lorsque je met la variable en "decimal" VBA n'en veut pas
Que faire ,

Merci par avance pour votre aide
Pierre

[marot_r]

Bonjour.

Ça vient de là :

Code :

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

Dim Montant As Integer

Les entiers (Integer ou Long) n'ont pas de partie décimale.

il faut mettre :

Code :

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

Dim Montant As Double

ou

Code :

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

Dim Montant As Single

Decimal est un type réservé aux champs d'une table. Ce n'est pas un type de VBA.

Et personnellement je n'utilise plus (sauf rare exception) que Long pour les entiers et double pour les réels comme cela je n'ai plus à m'inquiété des valeurs minimales et maximales.

A+

[possible924]

Merci pour tout
Pierre