Lowercase and ignore

[rmd62163]

Would it be possible to have the text entered in a text box on after update event force lowercase like

 Me.History= StrConv(Me.History, 2) and some code to ignore the string between a set  of characters

. And then somehow ignore anything in like brackets or parenthesis or anything that would keep it uppercase? this was something my son came up with in C# that I tried to convert to VB with no success.

     Private Sub btnParse_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim parsedString As String
        Dim pFlag As Boolean
        Dim charIndex As char
        For Each charIndex In History.Value
            If (i = Microsoft.VisualBasic.ChrW(40)) Then
                pFlag = True
            End If
            If (i = Microsoft.VisualBasic.ChrW(41)) Then
                pFlag = False
            End If
            If Not pFlag Then
                parsedString = (parsedString + char.ToLower(i))
            Else
                parsedString = (parsedString + i)
            End If
        Next
        History.Value = parsedString




End Sub

I would appreciate any input into whether it would be possible or just not gonna happen?

[offie]

Would an input mask work for what you want? http://office.microsoft.com/en-us/ac...010096452.aspx

[rmd62163]

Would an input mask work for what you want? http://office.microsoft.com/en-us/ac...010096452.aspx

Thanks for the thought, but it would not do what I need. The input is to random. histories of different occurrences. No pattern. The upper case characters may occur any where in the string as abbreviations for medical terms.

[offie]

"< Converts all characters that follow into lowercase" then ?, sorry if that's not what you need

[ketbdnetbp]

rmd62163 -

If the input mask doesn't fit your situation, you could try something like...

dim mystring, st1, st3, st4 as String
st1 = Me![History]
dim x, y, mypos, mypos1 as Integer
x = Len(st1)
mypos = InStr(1, st1, "(")
mypos1 = InStr(1, st1, ")")

If mypos = 0 And mypos1 = 0 then
mystring = StrConv(st1, vbLowerCase)
Me![History] = mystring
else

For y = 1 to x
st3 = Mid(st1, y, 1)

If y < mypos then
st4 = StrConv(st3, vbLowerCase)
mystring = mystring + st4
End If

If y >= mypos And y <= mypos1 then
st4 = st3
mystring = mystring + st4
End If

If y > mypos1 then
st4 = StrConv(st3, vbLowerCase)
mystring = mystring + st4
end if

Next y

End If

Me![History] = mystring

I tested the above code very quickly using a button click event; you should be able to adapt it to an after update event.

Hope this helps,

Jim

[rmd62163]

Jim,
Thank you very much. It works perfectly. Now I will take the next few days to break that down to my level of competency. But I can honestly say I would of not solved it that quickly. Again thank you and Thank you Offie for your advice I have a better understanding of the input mask that I will put to use after reading the link to it. MUCH APPRECIATED MY FRIENDS!

[ketbdnetbp]

rmd62163 -

Your welcome. I didn't have time to add in any error handling, so you may want to do that.

Good luck with your project!

Jim

[rmd62163]

Jim,

Will do, Again thank you for the resolution.

Bob