I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Ellers prøv at indsætte denne funktion i et modul: Public Function MyReplace(Streng As String, Find As String, Erstat As String) As String On Error Resume Next Dim Pos As Integer, findpos As Integer Dim tmpStr As String Pos = 1 If Len(Streng) = 0 Then MyReplace = Streng Exit Function End If tmpStr = Streng Do findpos = InStr(Pos, tmpStr, Find) If findpos <> 0 Then tmpStr = Left(tmpStr, findpos - 1) & Erstat & Mid(tmpStr, findpos + Len(Find)) Pos = Pos Else Pos = Pos + 1 End If Loop Until Pos = Len(Streng) If Err Then MyReplace = Streng Else MyReplace = tmpStr End If End Function
Herefter skal din SQL bare se således ud: Update [DinTabel] Set [DitFelt] = MyReplace([DitFelt],chr(13) & chr(10),"")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.