Hvordan foretage man en kørsel, som ændre indholdet i en tabel??

Følgende funktion finder en angivet streng i et modul og erstatter den linje, der indeholder denne streng, med en ny angivet linje.

Function SøgOgErstat(strModuleName As String, strSearchText As String, _
    strNewText As String) As Boolean
    Dim mdl As Module
    Dim lngSLine As Long, lngSCol As Long
    Dim lngELine As Long, lngECol As Long
    Dim strLine As String, strNewLine As String
    Dim intChr As Integer, intBefore As Integer, intAfter As Integer
    Dim strLeft As String, strRight As String

    \' Åben modulet.
    DoCmd.OpenModule strModuleName
    \' Returner referencen til modulobjektet.
    Set mdl = Modules(strModuleName)

\' Søg efter strengen.
    If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then
        \' Gem den tekstlinje, der indeholder strengen.
        strLine = mdl.Lines(lngSLine, Abs(lngELine - lngSLine) + 1)
        \' Bestem linjelængden.
        intChr = Len(strLine)
        \' Bestem det antal tegn, der skal skrives forud for søgeteksten.
        intBefore = lngSCol - 1
        \' Bestem det antal tegn, der skal skrives efter søgeteksten.
        intAfter = intChr - CInt(lngECol) - 1

\' Gem tegnene til venstre for søgeteksten.

        strLeft = Left$(strLine, intBefore)
        \' Gem tegnene til højre for søgeteksten.
        strRight = Right$(strLine, intAfter)
        \' Konstruer en streng med en erstatningstekst.
        strNewLine = strLeft & strNewText & strRight
        \' Erstat den oprindelige linje.
        mdl.ReplaceLine lngSLine, strNewLine
        SøgOgErstat = True
    Else
        MsgBox \"Teksten blev ikke fundet.\"
        SøgOgErstat = False
    End If


Exit_SøgOgErstat:
    Exit Function

Error_SøgOgErstat:

MsgBox Err & \": \" & Err.Description
    SøgOgErstat = False
    Resume Exit_SøgOgErstat
End Function

Der er kommentare (:

havd med en SQL sætning:

update post set felt=3 where felt=2

ved at lave en forespørgsel som ser således ud :

UPDATE TABELNAVN SET TABELNAVN.FELTNAVN= 3
WHERE ((((TABELNAVN.FELTNAVN=2));

mvh martens

stigc´s idé virker IKKE i Access

martens svar er korrekt og bygger på at lave en opdateringsforespørgsel, men du kan undgå at lave en forespørgsel ved i VBA at benytte flg. kommando
If FELTNAVN = 3 Then
DoCmd.RunSQL \"UPDATE TABELNAVN SET TABELNAVN.FELTNAVN = 2;\"
Else:
Exit Sub
End If

Den løsning virker mest enkel og virker desuden i praksis..... Tak for hjælpen

tja...

Engang imellem er det uhyggeligt nemt, men  jeg kan skam også skyde gråspurve med kanoner....