Rette \".\" til \",\"

Fixed=Replace(\"00000001590.05\",\".\",\",\")

Jeg har lavet følgende:

Public Function Retkomma()
Dim Belob As String

Fixed = Replace(Belob, \".\", \",\")

End Function

og kører en foresp.:

UPDATE Tabel1 SET Tabel1.Beløb = Retkomma([Tabel1]![Beløb]);

men det virker ikke rigtigt.

Public Function Retkomma()
Dim Belob As String

Retkomma = Replace(Belob, \".\", \",\")

End Function

Øhhhh, undskyld jeg blander mig.... men MIN Access97, kender ikke nogen Replace funktion... er det noget nyt i Access2000 ????

Jeg bruger selv følgende hjemmestrikkede funktion når jeg vil erstatte et eller flere tegn med noget andet.


Public Function ErstatTegn(Tekst As String, GammeltTegn As String, NytTegn As String, Optional AntalTegn As Integer = 1)

\'Tekst = Den tekst du vil erstatte noget i (altså din string, indeholdende dit tal)

\'GammeltTegn = Det tegn du vil have erstattet, altså \".\"

\'NytTegn = Det tegn der skal indsættes i stedet, altså \",\"

\'AntalTegn = Valgfri - kan bruges hvis man vil erstatte f.eks. et helt ord - du undlader bare noget hér, da du jo kun skal erstatte et enkelt tegn.

Dim tal As Integer

tal = InStr(1, Tekst, GammeltTegn)

Do Until tal = 0
       
    Mid(Tekst, tal, AntalTegn) = NytTegn
   
    tal = InStr(1, Tekst, GammeltTegn)

Loop

ErstatTegn = Tekst

End Function


Du laver altså bare en linie kode hvor du skriver noget lignenede:

TalMedKomma = ErstatTegn(\"DitTal\", \".\", \",\", Optional AntalTegn As Integer = 1)

Held og lykke...

Horus

Bare lige for en ordensskyld :

Du kan bruge importfunktionen i Access og få den til at importere disse tal til ... tal - selvom de bruger \".\" som decimaltegn.
Har du først talene inde i en tabel, som tal, så er det lige meget, om du bagefter viser dem med \",\" eller \".\"

>moses

Det er rigtigt, men det jeg skal importerer er 3 forskellige rekordtyper, (1:fakturahoved, 2:fakturalinie, 3:fakturatotal).
Datatypen er forskellig, afhængig af om feltet hører til den ene eller anden recordtype.

Derfor kan jeg ikke bruge alm. import.


Eks:

\"*1\",\" 3578877\",\"D\",\"00015935\",\"00\",\"AAM\",\"GUNNAR\"
\"*2\",\" 3578877\",\"D\",\"192711110\",\"          \",\"INDMURINGSBSN.240/110MM \"
\"*2\",\" 3578877\",\"D\",\"192614001\",\"          \",\"PVC-OVERGANG      110 MM \"
\"*9\",\" 3578877\",\"D\",\"0000000000.00\",\"0000000000.00\",\"0000000000.00\"

No futher question your honor !