Erreur 2447 inexpliquée [Résolu]

[clickandgo]

Bonjour à tous,

Dans un formulaire qui marchait parfaitement et que je n'ai pas modifié dernièrement apparaît soudainement une erreur 2447, voici la ligne que l' éditeur signale :

Code :

1
2
3
4
5
6
7
If IsNull(Me.IdLigne) = True Then
 
DoCmd.SetWarnings False
 
DoCmd.RunSQL "INSERT INTO [Détails Devis et Factures] (NumDocument,IdClient,IdProduitPrestation,Quantité,Remise,[Prix HT],Détails,Description,Code,[Taux TVA],[Prise en compte attestation fiscale],Durée,TauxRemise,TotalRemise) VALUES ('" & Me.NumDocument & "','" & Me.IdClient & "','" & Me.IdProduitPrestation & "','" & Me.Quantité & "','" & Me.Remise & "','" & Me.PrixHT & "','" & Me.Détails & "','" & Me.Description & "','" & Me.Code.Column(1) & "','" & Me.TauxTVA & "','" & Me.AttestationFiscale & "','" & Me.Durée & "','" & Me.TauxRemise & "','" & Me.TotalRemise & "' )"
 
DoCmd.SetWarnings True

Personnellement je ne vois aucune erreur de frappe, ni point, ni virgule mal placés, d' où cela peut il venir tenant compte que l'erreur n'existait pas avant ?

merci

[pier.antoine]

Bonjour

Erreur 2447, ce n'est pas très parlant. Avez-vous le texte du message de cette erreur?

Pierre

[clickandgo]

Voici le message :

Erreur 2447
"Utilisation non valide du point (.), du point d'exclamation (!) ou de parenthèses."

Merci

[Manhexter]

Salutations,

Je vois des champs qui contiennent probablement des nombres décimaux (prix HT par exemple). Est-ce que ton me.PrixHT peut-être décimal ?
Si c'est le cas, il faut que tu remplace la "," des nombres décimaux par des "." car les virgules sont mal interprétées dans le string de construction de ta requête.

Au cas où tu ne l'ai pas, je te mes ci-dessous les 2 fonctions qui vont ensemble et qui te permettront de remettre tes décimaux au bon format :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function DotToPoint(valeur As Double) As String
 
   DotToPoint = "0"
   Dim Partie As Long, Reste As Double
   Partie = Tronquer(valeur, 0)
   If valeur - Partie <> 0 Then
      Reste = valeur - Partie
      DotToPoint = Partie & "." & Mid(Reste, 3, 2)
   Else
      DotToPoint = Partie
   End If
 
End Function
 
Function Tronquer(Nombre As Double, NbDecimal As Integer) As Double
Tronquer = Int((Nombre * 10 ^ NbDecimal)) / (10 ^ NbDecimal)
End Function

Pour l'utilisation un simple :

Code :

DotToPoint(me.PrixHT)

Cordialement,

[clickandgo]

Merci pour ta généreuse réponse mais malheureusement ça ne venait pas de là, la requête était correcte, c'est la référence à des champs invisibles du formulaire sous-jacent qui n' était plus correcte...

Tout est rentré dans l'ordre

Merci beaucoup