Dlookup på tekst med apostrof i

Glemte at skrive at jeg benytter Access 97 - og at jeg kun er på Eksperten i dagtimerne ;-)

Not sure if you can use replace in Access 97 but if you can try

... Replace(me.Firma, "'", "''") ....

Hej terry

Det kan jeg desværre ikke - den findes ikke i Access97.

well here's an alternative
http://accessvbafaq.mvps.org/item.asp?pagina=6

maybe this is easier to understand :o)
http://support.microsoft.com/kb/109330

Hej terry

Åhh, så først dit nye svar efter at jeg havde løst det ;-)  Du gav mig alligevel ideen til løsningen - så du får point.

Jeg løste det således:

    intPos = InStr(1, Me.Firma, "'", 1)
    If IsNull(intPos) Then
    strFirma = Me.Firma
    Else
        strFirma = Left(Me.Firma, 6) & "'" & Right(Me.Firma, Len(Me.Firma) - intPos)
    End If
   
        Me.ID = DLookup("[ID]", "tblPersoner", "[Firma] = '" & strFirma & "' and [Navn] = '" & Me.Navn & "'")
    End If

thanks
Doesnt your code only replace the first ' ?

Jo, det har du da ret i ;-)