[AccessD] Asterix

Hey Gustav
Part of the famous variable string quartet
Brimbo, Glimbo, Timbo and Zimbo. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Sunday, February 26, 2012 8:12 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Asterix

Hi Tony

Zimbo??

/gustav


>>> TSeptav at uniserve.com 26-02-12 16:35 >>>
Hey All
Some code that may help. Didn't want to try writing tons of code for all the
reserved words, so I use this code, nothing fancy by any means but it seems
to be working fine. Except for multiple asterixs. Search for everything
containing *** and it returns **a, ***b, ****d, *e*, ***f*** etc. Not a
biggy because I can see the asterixs. Also I am getting tired of fooling
around with this thing.
 
If Mysearch=1 ..........Starts With
If Len(Me!MyPhrase = 1 Then 
    Zimbo = "[" & Left(Me!MyPhrase, 1) & "]" & "*"
Else
    If Len(Me!MyPhrase) = 2 Then
        Zimbo = "[" & Left(Me!MyPhrase, 1) & "]" & "[" & right(Me!MyPhrase,
1) & "*"
    Else
        Zimbo =  "[" & Left(Me!MyPhrase, 1) & "]" & Mid(Me!MyPhrase, 2,
Len(Mid(Me!        MyPhrase,    2)) - 1) & "[" & Right(Me!MyPhrase, 1) & "]"
& "*"
else .........Contains
If Len(Me!MyPhrase = 1 Then 
    Zimbo ="* & "[" & Left(Me!MyPhrase, 1) & "]" & "*"
Else
    If Len(Me!MyPhrase) = 2 Then
        Zimbo ="*" & "[" & Left(Me!MyPhrase, 1) & "]" & "[" &
right(Me!MyPhrase, 1) & "*"
    Else
        Zimbo ="*" &  "[" & Left(Me!MyPhrase, 1) & "]" & Mid(Me!MyPhrase, 2,
Len(Mid(Me!MyPhrase,    2)) - 1) & "[" & Right(Me!MyPhrase, 1) & "]" & "*"

End If
MyWord = Zimbo


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.1913 / Virus Database: 2114/4832 - Release Date: 02/25/12