formatere data i felt

Er det bare en engangs fornøjelse????

Brug funktionen Mid. I eksemplet indeholder felt1: 98-98-98-98:

Dim a As String, b, c, d
a = Left(felt1, 2)
b = Mid(felt1, 4, 2)
c = Mid(felt1, 7, 2)
d = Mid(felt1, 10, 2)
Me.felt1 = a & b & c & d

Først tildeles variablen a de 2 første tegn i felt1. Variablen b tildeles fra det 4. tegn og 2 tregn frem, og så fremdeles. Tilsidst tildeles felt1 vørdien af de 4 variabler.
Kan sende min testdb, blot læg din e-mail

Jeg antager at det er "98-98-98-98" der er gemt i tabellen i eksempelvis felt1.

I så fald kunne du lave en forespørgsel med et felt defineret således

Felt1Formateret: ReplaceInString("felt1";"-";"")

Sørg så for at der i databasen er et modul med koden

Public Function ReplaceInString(strString As String, strReplaceWhat As String, strReplaceWith As String) As String
Dim intCharPos As Integer
Dim strReturn As String
   
    strReturn = strString
    intCharPos = InStr(1, strReturn, strReplaceWhat, vbTextCompare)
    Do While intCharPos > 0
        strReturn = Left(strReturn, intCharPos - 1) & strReplaceWith & Mid(strReturn, intCharPos + Len(strReplaceWhat))
        intCharPos = InStr(1, strReturn, strReplaceWhat)
    Loop
    ReplaceInString = strReturn
End Function

Hvis det er 98989898 der er gemt i tabellen med vist forkert, skal du fjerne det der angivet undet Format på feltet. Dette gøres i designvisning på tabellen

Hvis de er tastetet ind med bindestreg, kan du bruge søg og erstat.

elles er det formatet på feltet i tabellen der er lavet sådan.

kabbak -> Enig, men hvis der nu er 1000 poster bliver det jo lidt bøvlet :o)

du kan jo bare maker kolonnen til søg og erstet, så tager den alle i kolonnen.

MyString =  ToStr(""98-98-98-98")



Public Function ToStr(sIn As String) As String
Dim var As Variant
Dim i As Integer

    var = Split(sIn, "-")
    For i = 0 To UBound(var)
        ToStr = ToStr & var(i)
   
    Next i
   
End Function

Your Obviously going to need an update query

UPDATE YourTable SET YourField = ToStr(YourField);

Hello Folks:
Mugs du må gerne sende din test dbase
Hilsen
Mandersen

Ups glemte mailadr.
ma@ugenstilbud.dk

Mugs du var først, så du får point

Tak for point. Testdb er sendt.