Converting a text string 1

[infomania]

I would like have a function to convert a user entered, comma separated, text string to a proper text string to be used in a WHERE clause.

Example:

Dim strInput, strConvInput, strSQL As String

strInput = Me.BoLInput ' user entered string

' user string looks like: 123a, 134D, 115,123
' user could enter spaces after comma

' use function to convert strInput 'to '123a','134D','115','123'

strConvInput = ConvFunct(strBoLInput)

strSQL = "UPDATE tblInbound SET XferCustID = " & Me.XferCustID
strSQL = strSQL + " WHERE BoL_IN IN (" & strConvInput & ")"
DoCmd.RunSQL strSQL

Any ideas?

 

[RoyVidar]

If the users entered space after comma

[tt]dim strString as string
strString = "23a, 134D, 115, 123"
strString = "'" & join(split(strstring,", "),"', '") & "'"[/tt]

I'd never allow user input like that, and think it would be much better to use a multiselect listbox, and an approach something like this thread702-787778?

Roy-Vidar

 

[infomania]

Roy

Thank you... I think I will use the multiselect listbox approach. These users make lots of typos. The info in the referenced thread is just what I need.

Infomania