Fonction replace en VBA access [Résolu]

Question

Posez votre question Signaler

Fonction replace en VBA access [Résolu]

WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

- 17 juin 2009 à 15:46 - Dernière réponse : WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

- 18 juin 2009 à 10:05

Visual Basic 6 Posez votre question Signaler

Voila : j'ai un petit souci ! En effet, j'ai réalisé une requête d'insertion pour un formulaire de saisie de résultats de tests sportifs ! Le problème c'est que je voudrais remplacer la "," par un "." avec la fonction replace ! Après maintes tentatives je n'y arrive toujours pas ! Si quelqu'un pouvais me mettre un exemple de cette fonction cela m'arrangerais !

le champ qui doit etre modifié avec cette fonction replace est : txt_taille.value

A vous de jouer ! merci d'avance pour toutes éventuelles réponses !!

Afficher la suite

A voir également:

Fonction replace vba
Vba fonction replace - Meilleures réponses
Replace vba access - Meilleures réponses
Comment remplacer un caractere par un autre dans une chaine de caractere ? - Forum - Visual Basic
Problème fonction replace(,,,) en VBA - Forum - Visual Basic
Visual Basic / VB.NET : Fonction replace non reconnue dans vba : une fonction de remplacement (!) - - Guide
Fonction set vba - Forum - Visual Basic
Fonction val vba - Forum - Visual Basic

2 réponses

Signaler Commenter la réponse de WrestlingMan

WrestlingMan

Messages postés: 78
Date d'inscription: mardi 16 juin 2009
Statut: Membre
Dernière intervention: 17 février 2011

1 18 juin 2009 à 10:05

3

Merci

J'ai réussi à utiliser correctement la fonction replace dans une requête sur access finalement ! Merci de m'avoir donner un exemple sur excel sa pourra servir ! Voici mon résultat pour ceux à qui cela pourrait interesser :

sql5 = "insert into T_Test values(" & rs.Fields("CodeSportif").Value & ", " & rs2.Fields("CodeTest").Value & ", " & ld_année.Value & ", " & rs3.Fields("CodeMois").Value & ", " & Replace(txt_poids.Value, ",", ".") & ", " & Replace(txt_taille.Value, ",", ".") & ", " & Replace(txt_MG.Value, ",", ".") & ", '" & txt_resultat.Value & "', " & Replace(txt_puissanceaerobie.Value, ",", ".") & ", " & Replace(txt_hr240w.Value, ",", ".") & ", " & Replace(txt_vo2_Lseuil.Value, ",", ".") & ", " & Replace(txt_seuilhr.Value, ",", ".") & ", " & Replace(txt_vo2max.Value, ",", ".") & ", " & Replace(txt_v_emax.Value, ",", ".") & ", '" & ld_categorie.Value & "', " & rs4.Fields("CodeClub").Value & ", '" & ld_Velo.Value & "') ;"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Répondre Posez votre question

lepetitcodeur · Accepted Answer · 2009-06-17T16:17:49+0200

Meilleure réponse

Signaler Commenter la réponse de lepetitcodeur

lepetitcodeur

Messages postés: 8
Date d'inscription: mercredi 17 juin 2009
Statut: Membre
Dernière intervention: 23 juillet 2009

17 juin 2009 à 16:17

3

Merci

Salut,
Alors je te donne un petit exemple fait sur Excel, donc quelques modifs à faire, ce que j'ai fait c'est remplacer dans une colonne, les arguments sont plutot parlants tu vas voir :

Columns("A:A").Select
    Range("A1").Activate
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

C'est pas tout à fait pareil en ce sens où j'ai fait ça sur une colonne, mais la fonction est a priori très similaire.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Fonction replace en VBA access [Résolu]

Votre réponse