Heenan, Lambert
Lambert.Heenan at AIG.com
Wed Jan 5 10:43:16 CST 2005
If you just want to tell the user that the file name they typed has invalid
characters then try this...
Public Function HasInvalidChar(InvalidCh As String, CheckStr As String) As
Boolean
' Checks to see if a string has any invalid characters in it.
' Parameters: InvalidCh - a string of characters defined as being invalid
' CheckStr - the string to check for invalid characters
Dim I As Integer
For I = 1 To Len(InvalidCh)
If InStr(CheckStr, Mid$(InvalidCh, I, 1)) > 0 Then
HasInvalidChar = True
Exit Function
End If
Next I
HasInvalidChar = False
End Function
Public Function isValidFileName(strFileName As String) As Boolean
Const BADFILECHARS = "\/:*?<>|" & """" ' these are the characters that are
not allowed in a file name
isValidFileName = Not HasInvalidChar(BADFILECHARS, strFileName)
End Function
Lambert
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [SMTP:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
> Sent: Wednesday, January 05, 2005 11:18 AM
> To: 'Access Developers discussion and problem solving'
> Subject: RE: [AccessD] tabs in memo fields
>
> Anybody know of a similar function that could be used to validate file
> names? I let users add short descriptions to file names before they are
> saved and I badly need a function to validate their input.
> Jim Hale
>
> -----Original Message-----
> From: John W. Colby [mailto:jwcolby at colbyconsulting.com]
> Sent: Wednesday, January 05, 2005 9:50 AM
> To: 'Access Developers discussion and problem solving'
> Subject: RE: [AccessD] tabs in memo fields
>
>
> That is a NICE function!
>
> John W. Colby
> www.ColbyConsulting.com
>
> Contribute your unused CPU cycles to a good cause:
> http://folding.stanford.edu/
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
> Sent: Wednesday, January 05, 2005 9:40 AM
> To: 'Access Developers discussion and problem solving'; 'Jim Lawrence'
> Subject: RE: [AccessD] tabs in memo fields
>
>
> I use this function to get rid of Tabs and other pesky characters in memo
> fields. I usually run it in the LostFocus event of the textboxes where
> memos
> are edited, but it should work just fine in a query too.
>
> Function ConvertToPlainAscii(sString As String) As String
> ' Converts TAB characters to spaces and curly quote characters to standard
> quote characters. ' some users may paste such data into memo fields and
> this
> causes problems with reports Const TABCHAR = 9 Const LEFTSINGLEQUOTE = 145
> Const RIGHTSINGLEQUOTE = 146 Const LEFTDOUBLEQUOTE = 147 Const
> RIGHTDOUBLEQUOTE = 148
> Const TABSPACES = " "
> If Nz(sString) > "" Then
> While InStr(sString, Chr(TABCHAR)) > 0
> sString = ReplaceString(sString, Chr(TABCHAR), TABSPACES)
> Wend
> While InStr(sString, Chr(LEFTSINGLEQUOTE)) > 0
> sString = ReplaceString(sString, Chr(LEFTSINGLEQUOTE), "'")
> Wend
> While InStr(sString, Chr(RIGHTSINGLEQUOTE)) > 0
> sString = ReplaceString(sString, Chr(RIGHTSINGLEQUOTE), "'")
> Wend
> While InStr(sString, Chr(LEFTDOUBLEQUOTE)) > 0
> sString = ReplaceString(sString, Chr(LEFTDOUBLEQUOTE), """")
> Wend
> While InStr(sString, Chr(RIGHTDOUBLEQUOTE)) > 0
> sString = ReplaceString(sString, Chr(RIGHTDOUBLEQUOTE), """")
> Wend
> End If
> ConvertToPlainAscii = Nz(sString, "")
> End Function
>
> and this is the ReplaceString function it uses..
>
> Function ReplaceString(strData As String, strFind As String, strReplace As
> String) As String
> '============================================================
> ' Purpose: Replaces the first occurrence of strFind in strData with
> strReplace
> '============================================================
> Dim strTemp1 As String, strTemp2 As String
>
> On Error GoTo strReplace_Err
> If InStr(strData, strFind) > 0 Then
> strTemp1 = Left(strData, InStr(strData, strFind) - 1)
> strTemp2 = Mid(strData, InStr(strData, strFind) + Len(strFind))
> strData = strTemp1 & strReplace & strTemp2
> End If
> strReplace_Exit:
> ReplaceString = strData
> Exit Function
>
> strReplace_Err:
> Select Case Err
> Case Else
> ' replace with a call to your favorite error reporting
> routine
> ReportError Err.Number, Err.Description, "ReplaceString",
> "Module : String handling Tools"
> Resume strReplace_Exit
> End Select
> End Function
>
> HTH
>
> Lambert
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [SMTP:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
> > Sent: Wednesday, January 05, 2005 9:20 AM
> > To: 'Access Developers discussion and problem solving'
> > Subject: RE: [AccessD] tabs in memo fields
> >
> > Hi Roz:
> >
> > Thanks for your help. I have been playing with tracking the tabs
> > (chr(9)) with 'instr' but have been having some issues handling the
> > fields through a function as the memo content is so large.
> >
> > Thanks again for your help.
> > Jim
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Roz Clarke
> > Sent: Wednesday, January 05, 2005 1:23 AM
> > To: 'Access Developers discussion and problem solving'
> > Subject: RE: [AccessD] tabs in memo fields
> >
> > Hi Jim
> >
> > I hope some bright spark who actually slept last night will come up
> > with an elegant solution because the only thing I can come up with at
> > the moment is
> > rather clunky.
> >
> > Do an INSTR to find the first tab character (CHR(9) iirc). Keep doing
> > this on the same memo until you don't find a tab, then move on to the
> > mext memo. You could use a flag to indicate whether a tab was found on
> > the last pass or
> > not, so that your code knows whether to look at the same memo again or
> > move
> > on to the next one.
> >
> > Untested, ungraceful... if there's a neat way of doing it I'd like to
> > know too
> >
> > Roz
> >
> > -----Original Message-----
> > From: Jim Lawrence [mailto:accessd at shaw.ca]
> > Sent: 05 January 2005 07:52
> > To: 'Access Developers discussion and problem solving'
> > Subject: [AccessD] tabs in memo fields
> >
> >
> > Hi All:
> >
> > It seems simple but, is there a way to replace tab characters within a
> > memo field using a query or function? Note, memo field can be many
> > hundreds of characters.
> >
> > TIA
> > Jim
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ***********************************************************************
> The information transmitted is intended solely for the individual or
> entity to which it is addressed and may contain confidential and/or
> privileged material. Any review, retransmission, dissemination or
> other use of or taking action in reliance upon this information by
> persons or entities other than the intended recipient is prohibited.
> If you have received this email in error please contact the sender and
> delete the material from any computer. As a recipient of this email,
> you are responsible for screening its contents and the contents of any
> attachments for the presence of viruses. No liability is accepted for
> any damages caused by any virus transmitted by this email. << File:
> ATT1199675.txt >>