VBA Access

Question

Bonjour

D&#233;butant VBA sous Access (j'ai des notions sous Excel), je souhaite effectuer une macro toute simple pour mettre &#224; jour le format de plusieurs champs d'une table Access.

Cette derni&#232;re est 1 table import&#233;e avec du num&#233;rique convertit en texte &#224; causse du format anglo saxon (#,###.00).
Je souhaiterai faire une macro VBA dans un module Access qui me permettrait de supprimer les "," dans tous ces champs "num&#233;rques" c'est &#224; dire automatiser le remplacement de "," par ""

Merci pour toute info.

visualresine · Answer

voici une fonction qui peut t'aider, a utiliser ensuite dans une requete


Function splitPos(str As String) As String

Dim varv As Variant

varv = Split(str, ",")

splitPos = varv(0) & varv(1)

End Function


Attention si il n'y a pas de "," ca plante ...donc il faut regarder la  taille de vavr avec Ubound(varv)

rictus31 · Answer

merci pour ta réponse. Comment insérer cela dans une macro qui va s'exécuter dans une table "test ragit".

Sub Macro1()


Dim BD As Database
Dim TDF As TableDef
Dim RS As Recordset
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer


Set BD = CurrentDb()
Set TDF = BD.TableDefs("Test Ragit")
'comment ouvrir TDF ?
call splitPos
' on appelle la fonction?


End Sub

Merci pour la réponse

rictus31 · Answer

nobody ? plz help ! tks for advance :)

VBA Access

3 réponses

Votre réponse

Discussions similaires