Fjern mellemrum i telefonnr

brug søg og erstat i tabbellen

søg på mellemrum og skriv intet i erstat

det kan også være feltet i tabellen, som har formatet sat til mellemrum, så skal du ændre i designvisning.

Det kan ikke lade sig gøre!
Felt typen er tekst og det er ikke en formatering der er sat

Jeg har en masse telefon numre der ser sådan her ud 12 12 12 12 de skulle gerne se sådan ud 12121212

Opret et modul, der fjerner mellemrum:

Function FjernBlanke(str As String) As String
    ReplaceQ = Replace(str, " ", "")
End Function

I databasen kører du en forespørgsel på tabellen:
  SELECT ReplaceQ([tlf]," ","") AS Exp1 FROM tabelNavn;

-Kim

SORRY - det er sent. Her er en rettelse:

Function FjernBlanke(str As String) As String
    FjernBlanke= Replace(str, " ", "")
End Function

I databasen kører du en forespørgsel på tabellen:
  SELECT FjernBlanke([tlf]," ","") AS Exp1 FROM tabelNavn;

-Kim

Øh bøh... det er tid at gå i seng...her er del 2 for tredje gang:

  SELECT FjernBlanke([tlf]) AS Exp1 FROM tabelNavn;
-Kim

Hvis det kun skal gøres een gang, vil jeg godt forsvare denne som er afprøvet og fungerer:

Private Sub Kommandoknap3_Click()
Set rs = CurrentDb.OpenRecordset("TABELNAVN")
Do Until Me.NewRecord = True
FELTNAVN = Replace(FELTNAVN, " ", "")
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNext, 1
Loop
rs.Close
Set rs = Nothing
End Sub

Idet du ændrer TABELNAVN til navnet åp din aktuelle tabel. FELTNAVN er navnet på det felt der indeholder dine telefonnumrer og FORMULARNAVN er navnet på din formular.

Make an UPDATE query

UPDATE YourTable SET TheTelephoneField = Replace([TheTelephoneField ]," ","");

YourTable = the name of your table and TheTelephoneField = the name of the field containing the telephone number

> Terry: Replace funktionen kan ikke bruges i Access sql.
-Kim

Kim > Jo, terry's svar fungerer perfekt.

OK, min udgave af Access kendte den ikke...

:o)

what version of Access are you using? I think replace first cane in Access VBA from 2000.
Anyway, you can make a functionin a module

Function RemoveSpaces(Str As String) As String
Dim i As Integer
Dim wStr As String

   
    For i = 1 To Len(Str)
        If Mid(Str, i, 1) <> " " Then wStr = wStr & Mid(Str, i, 1)
    Next i
    RemoveSpaces = wStr

End Function


Then alter the query

to

UPDATE YourTable SET TheTelephoneField = RemoveSpaces([TheTelephoneField ]);

> terry: I use Access 2000 - replace works in VBA but not if I use it directly in a query.

It does for me in XP and I would think that if it is OK in VBA 2000 then it is also OK in a query.
What is the problem in a query ?

I get an error: 'der er en ikke-defineret funktion "Replace" i udtrykket'

Yes it seems that its available directly in VBA but not as a function in queries. Silly!
So your function should do the trick. Although you better place an answer if you have any chance at all in getting any points :o)

Function FjernBlanke(str As String) As String
    FjernBlanke= Replace(str, " ", "")
End Function

this works OK I think

First thing, place this line at the top of each module (form etc.) It makes usre your variables are declared so that you dont get unexpected errors.

Option Explicit


Private Sub cmdOK_Click()
Dim ObjW As Object

    On Error Resume Next
    SetFocus
    Set ObjW = GetObject(, "Word.Application")
    If Err = 429 Then 'Not running
        Set ObjW = CreateObject("Word.Application")
    End If
    With ObjW

        Select Case True
            Case Option1.Value
                '.Visible = True
                .Documents.Add ("D:\flc_Menu\flc-standard.dot"), False
                'Unload HovedMenu
                '.Activate
            Case Option2.Value
                .Visible = True
                .Documents.Add ("D:\flc_Menu\FLC-Faxskrivelse.dot"), False
                Unload HovedMenu
                .Activate
            Case Option3.Value
                .Visible = True
                .Documents.Add ("D:\flc_Menu\FLC-Flgskrivelse.dot"), False
                Unload HovedMenu
                .Activate
            Case Option4.Value
                .Visible = True
                .Documents.Add ("D:\flc_Menu\FLC-Nord BrugerData.dot"), False
                Unload HovedMenu
                .Activate
        End Select
        .Activate
        .Visible = True
        .UserControl = True

    End With
End Sub

Sorry! This is from another question :o)

maxmull, hows it going here?

hello!

have you gone on your summer holidays already? :o)

Jeg er ked af at det har taget mig så lang tid at melde tilbage på de gode svar og komentare til dette spørgsmål. Af en eller anden grund har jeg ikke fået en mail når noget har lavet et indlæg.

Jeg beklager!!

Jeg har bruget terry's svar med at lavet en UPDATE query det virkede perfekt i min Access XP

thanks maxmull