Makro til søg og erstat

You call the function with

MyFld= fldUpdate("g}r")
   

'NOTE: To get the Ascii value of the character which is to be replaced.
'In the debug window (Ctrl+G) enter ?asc("}") and replace } with the character you want the value of.
'Then replace XXX in the Case in the code and remove comments :o)

Function fldUpdate(sIn As String) As String
Dim sWork As String
Dim i As Integer

    sWork = sIn
   
    For i = 1 To Len(sWork)
   
        Select Case Asc(Mid(sWork, i, 1))
       
            'Case XXX
            '    Mid(sWork, i, 1) = "å"
            'Case XXX
            '    Mid(sWork, i, 1) = "Å"
            Case 125
                Mid(sWork, i, 1) = "æ"
            'Case XXX
            '    Mid(sWork, i, 1) = "Æ"
            'Case XXX
            '    Mid(sWork, i, 1) = "ø"
            'Case XXX
            '    Mid(sWork, i, 1) = "Ø"
            Case Else
        End Select
       
    Next i
   
    fldUpdate = sWork

End Function

In the example I have only converted } to æ, you have to find the ascii value of each character you want replacing and replace each XXX in the code.

You can also use this function form an update query by entering (for example)

fldUpdate([YourField])

in the Update to field. Where your replace YourField with the correct field name.

I don't really get it, since I'm not familiar with Visual Basic.

Do I have to make a module containing the above code and call this with a macro?

Need more help!

Yes, place this in a new module.

What do you want to convert, data in a table? if so then make a new update query using the function as mentioned in my comment 21:26. You can then call the query either from a macro or youcan add a button to a form using the form wizard. You can get thew izard to run your query !

Getting closer....

I've made the module now and an update query.

However..when I run the update query I get the following error:

Der opstod en kompileringsfejl. (A compilation error was found).

Projektet eller bibliotektet kan ikke findes. (The project or library could not be found).

! The code I sent MUST be in a module NOT in a form. When it is in a module all forms and queries have Access to it.
If you still getproblems then you can send it to dktebrsa@europe.lego.com and I will take a look!

OK. I've sent it to you now.

I have received it and will get back as soon as possible :o)

OK! Your problem is because you have a MISSING reference! In code view go to the Tools+References menu. You will see MISSING beside one of the references, remove the check in the check box. It shouls work now. But nothing is going to get converted! In the test data you sent there are NO characters which have to be converted.
Example:
} as in g}r whcih you wnat converting to æ

If you send me a list of the charcaters you want converting then I will correct the code. I need to know the characters to convert and to what they are to be converted to!

OK, I've removed the two checks in the check boxes.

What I want to convert is the following...

{ -> æ
| -> ø
} -> å
[ -> Æ
\ -> Ø
] -> Å

Function fldUpdate(sIn As String) As String
Dim sWork As String
Dim i As Integer

    sWork = sIn
   
    For i = 1 To Len(sWork)
   
        Select Case Asc(Mid(sWork, i, 1))
       
            Case 125
                Mid(sWork, i, 1) = "å"
            Case 93
                Mid(sWork, i, 1) = "Å"
            Case 123
                Mid(sWork, i, 1) = "æ"
            Case 91
                Mid(sWork, i, 1) = "Æ"
            Case 124
                Mid(sWork, i, 1) = "ø"
            Case 92
                Mid(sWork, i, 1) = "Ø"
            Case Else
        End Select
       
    Next i
   
    fldUpdate = sWork

End Function

Bingo! It works!

Thank you very much for helping me here!

no problem :o)