InStrRev equivalent for Access97

[William Ortenberg]

I have a client who can't get off of Access97. I want to use the
InStrRev function, but it's not available in 97. Is the function's code
available? Is there any equivalent functions for 97?

Thanks in advance.

[Allen Browne]

You have to code your own, looping backwards through the characters of the
string to find the substring you want. Mid() and Len() will be useful.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html

"William Ortenberg" <bi*****@pacbell.net> wrote in message
news:xa****************@newssvr29.news.prodigy.com ...

I have a client who can't get off of Access97. I want to use the
InStrRev function, but it's not available in 97. Is the function's code
available? Is there any equivalent functions for 97?

Thanks in advance.

[Douglas J. Steele]

"Chuck Grimsby" <c.*******@worldnet.att.net.invalid> wrote in message
news:2q********************************@4ax.com...

You may want to grab the "modVB6Functions" code from Knowledgebase
article Q188007 ("HOWTO: Simulate Visual Basic 6.0 String Functions in
VB5"). The modVB6Functions module includes the InStrRev function.

Although written for VB5, the code can be pasted into a Access 97
module to provide the functions in Access 97 that are present in
Access 2K and XP.

Note: Some changes have to be made due to differences in VBA and VB,
but nothing that isn't just a simple code change like changing:

Optional bCompare As VbCompareMethod = _
vbBinaryCompare

To

Optional bCompare As Long = 2)

Actually, you can use

Optional bCompare As Long = _
vbBinaryCompare

The constant still exists in Access: you just can't refer to the Enum.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele