Discussion :

[spirit69]

Voila ce que je suis en train de faire :

Code :

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

1
2
3
4
5
 DoCmd.RunSQL 
("INSERT INTO 
MoyenneMilieu (Direction, DateVisite, MoyVoies) 
VALUES 
('DirecA'," & " '10/10/06'," & MoyVoiesP & ");")

Comme vous le voyez je cherche à réaliser un INSERT dans ma table MoyenneMilieu. Le probleme c'est que les données à insérer ne sont pas prédéfinies mais je les obtiens en lisant mes formulaires
(MoyVoiesP = Me.MoyV)
Ceci n'est qu'un bout de ma requete pour éviter de surcharger.

Je viens tout juste de découvrir que ceci était possible via la concaténation de texte et je bute sur un probleme.
En effet il s'agit de moyennes et il arrive donc (souvent) qu'elle ne soit pas entieres (d'ou le 2,3333).
Le probleme c'est que si MoyVoiesP = 2,3333 la "," a l'air de poser probleme car ACCESS croit que j'insere un champ suplémentaire.

Apres avoir testé avec : MoyVoiesP = 2.33333 ca fontionne.

Existe t'il un moyen de faire cette transformation ?

J'espere de tout coeur que oui

[Sonic]

Essayes ca :

Code :

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

DoCmd.RunSQL ("INSERT INTO MoyenneMilieu (Direction, DateVisite, MoyVoies) VALUES ('DirecA'," & " '10/10/06'," & Replace(CStr(MoyVoiesP), ",", ".") & ");")

[spirit69]

Merci.
Je viens de tester et il me dit qu'il y a une erreur de syntaxe mais tu es sur la bonne voie puisque je vien de réussir comme ca :

Code :

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

1
2
3
4
5
Dim a
a = Val(Replace(MoyVoiesP, ",", "."))
MoyVoiesP = Str$(a)
 
DoCmd.RunSQL ("INSERT INTO MoyenneMilieu (Direction, DateVisite, MoyVoies) VALUES ('DirecA'," & " '10/10/06'," & MoyVoiesP & ");")

Et la ca passe comme dans du beurre.
Merci en tous cas. Il me reste plus qu'a faire de meme pour toutes mes variables
Chui chaud niveau timing la

[spirit69]

Code :

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

1
2
3
4
5
Dim a
a = Val(Replace(MoyVoiesP, ",", "."))
MoyVoiesP = Str$(a)
 
DoCmd.RunSQL ("INSERT INTO MoyenneMilieu (Direction, DateVisite, MoyVoies) VALUES ('DirecA'," & " '10/10/06'," & MoyVoiesP & ");")

oui 100% gratis

Au passage j'en profite pour dire que je suis un ane puisque ceci suffisait :

Code :

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

1
2
3
4
("INSERT INTO 
MoyenneMilieu (Direction, DateVisite, MoyVoies) 
VALUES 
('DirecA'," & " '10/10/06','" & MoyVoiesP & " ' );")

de simples

Code :

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

'