Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Problem with the find and replace dialog box !
- Thread starter twetty1
- Start date
twetty1,
You will have to make your own using the InStr and Replace
(or Mid) functions (depending on your version of Access).
Something like this:
ptr = InStr(1, Me.SomeMemo, Me.FindThis)
While (ptr > 0)
Me.SomeMemo = Mid(Me.SomeMemo, 1, ptr - 1) & _
Me.ReplacementText & _
Mid(Me.SomeMemo, ptr + Len(Me.FindThis))
ptr = InStr(1, Me.SomeMemo, Me.FindThis)
Wend
Wayne
You will have to make your own using the InStr and Replace
(or Mid) functions (depending on your version of Access).
Something like this:
ptr = InStr(1, Me.SomeMemo, Me.FindThis)
While (ptr > 0)
Me.SomeMemo = Mid(Me.SomeMemo, 1, ptr - 1) & _
Me.ReplacementText & _
Mid(Me.SomeMemo, ptr + Len(Me.FindThis))
ptr = InStr(1, Me.SomeMemo, Me.FindThis)
Wend
Wayne
- Status
Similar threads
- Locked
- Question
- Locked
- Question