Strip Characters

[Drum2001]

Hello,

I have a textbox "Fname" where users input what they would like a
filename to be. I would like to strip out all invalid characters with
an "After Update" Event.

I have searched other strings and attempted to use other suggested
code, but I was unsucessful.

Does anyone have suggestions or more specific instructions on how to
use the following code.

Thank you in advance!

' --------------------------------------------------
' Function StripString()
'
' Returns a string minus a set of specified chars.
' --------------------------------------------------
Function StripString(MyStr As Variant) As Variant
On Error GoTo StripStringError

Dim strChar As String, strHoldString As String
Dim i As Integer

' Exit if the passed value is null.
If IsNull(MyStr) Then Exit Function

' Exit if the passed value is not a string.
If VarType(MyStr) <8 Then Exit Function

' Check each value for invalid characters.
For i = 1 To Len(MyStr)
strChar = Mid$(MyStr, i, 1)
Select Case strChar
Case ".", "#", ",", "-"
' Do nothing
Case Else
strHoldString = strHoldString & strChar
End Select
Next i

' Pass back corrected string.
StripString = strHoldString

StripStringEnd:
Exit Function

StripStringError:
MsgBox Error$
Resume StripStringEnd
End Function

[paii, Ron]

I only glanced at your function. Have you tried using it in the "Before
Update" event?

"Drum2001" <dr******@gmail.comwrote in message
news:11**********************@k78g2000cwa.googlegr oups.com...

Hello,

I have a textbox "Fname" where users input what they would like a
filename to be. I would like to strip out all invalid characters with
an "After Update" Event.

I have searched other strings and attempted to use other suggested
code, but I was unsucessful.

Does anyone have suggestions or more specific instructions on how to
use the following code.

Thank you in advance!

' --------------------------------------------------
' Function StripString()
'
' Returns a string minus a set of specified chars.
' --------------------------------------------------
Function StripString(MyStr As Variant) As Variant
On Error GoTo StripStringError

Dim strChar As String, strHoldString As String
Dim i As Integer

' Exit if the passed value is null.
If IsNull(MyStr) Then Exit Function

' Exit if the passed value is not a string.
If VarType(MyStr) <8 Then Exit Function

' Check each value for invalid characters.
For i = 1 To Len(MyStr)
strChar = Mid$(MyStr, i, 1)
Select Case strChar
Case ".", "#", ",", "-"
' Do nothing
Case Else
strHoldString = strHoldString & strChar
End Select
Next i

' Pass back corrected string.
StripString = strHoldString

StripStringEnd:
Exit Function

StripStringError:
MsgBox Error$
Resume StripStringEnd
End Function

[Drum2001]

I didnt try, however, I get an error. Basically it cant find the
object...

On Jan 29, 12:15 pm, "paii, Ron" <[e-mail]:

I only glanced at your function. Have you tried using it in the "Before
Update" event?

"Drum2001" <[e-mail] in messagenews:11**********************@k78g2000cwa.g ooglegroups.com...

Hello,

I have a textbox "Fname" where users input what they would like a
filename to be. I would like to strip out all invalid characters with
an "After Update" Event.

I have searched other strings and attempted to use other suggested
code, but I was unsucessful.

Does anyone have suggestions or more specific instructions on how to
use the following code.

Thank you in advance!

' --------------------------------------------------
' Function StripString()
'
' Returns a string minus a set of specified chars.
' --------------------------------------------------
Function StripString(MyStr As Variant) As Variant
On Error GoTo StripStringError

Dim strChar As String, strHoldString As String
Dim i As Integer

' Exit if the passed value is null.
If IsNull(MyStr) Then Exit Function

' Exit if the passed value is not a string.
If VarType(MyStr) <8 Then Exit Function

' Check each value for invalid characters.
For i = 1 To Len(MyStr)
strChar = Mid$(MyStr, i, 1)
Select Case strChar
Case ".", "#", ",", "-"
' Do nothing
Case Else
strHoldString = strHoldString & strChar
End Select
Next i

' Pass back corrected string.
StripString = strHoldString

StripStringEnd:
Exit Function

StripStringError:
MsgBox Error$
Resume StripStringEnd
End Function- Hide quoted text -- Show quoted text -

[paii, Ron]

What Object?

Are you calling it with something like the following?

me![ControlName] = StripString(me![ControlName])

It that don't work test the function in the debug window.

?StripString("Test#String")

Should return "TestString"

"Drum2001" <dr******@gmail.comwrote in message
news:11**********************@h3g2000cwc.googlegro ups.com...

I didnt try, however, I get an error. Basically it cant find the
object...

On Jan 29, 12:15 pm, "paii, Ron" <[e-mail]:

I only glanced at your function. Have you tried using it in the "Before
Update" event?

"Drum2001" <[e-mail] in

messagenews:11**********************@k78g2000cwa.g ooglegroups.com...

Hello,

I have a textbox "Fname" where users input what they would like a
filename to be. I would like to strip out all invalid characters with
an "After Update" Event.

I have searched other strings and attempted to use other suggested
code, but I was unsucessful.

Does anyone have suggestions or more specific instructions on how to
use the following code.

Thank you in advance!

' --------------------------------------------------
' Function StripString()
'
' Returns a string minus a set of specified chars.
' --------------------------------------------------
Function StripString(MyStr As Variant) As Variant
On Error GoTo StripStringError

Dim strChar As String, strHoldString As String
Dim i As Integer

' Exit if the passed value is null.
If IsNull(MyStr) Then Exit Function

' Exit if the passed value is not a string.
If VarType(MyStr) <8 Then Exit Function

' Check each value for invalid characters.
For i = 1 To Len(MyStr)
strChar = Mid$(MyStr, i, 1)
Select Case strChar
Case ".", "#", ",", "-"
' Do nothing
Case Else
strHoldString = strHoldString & strChar
End Select
Next i

' Pass back corrected string.
StripString = strHoldString

StripStringEnd:
Exit Function

StripStringError:
MsgBox Error$
Resume StripStringEnd
End Function- Hide quoted text -- Show quoted text -