Add Quotes to Code

[joeserrone]

Hello everyone I have the following code listed below. I need to be able to have a " and the beginning and ending of every item is selected in a muti-select listbox. so for example if a user selects Balance and Capture in the list box. This code right now populates a text box I am using for a query criteria with: Balance or Capture
How can I get it to produce "Balance" or "Capture"


Dim lngLoop As Long
Dim strIDs As String

If ListCategoryEdit.ItemsSelected.Count > 0 Then
strIDs = ""
For lngLoop = 0 To ListCategoryEdit.ItemsSelected.Count - 1
strIDs = strIDs & "" & ListCategoryEdit.ItemData(ListCategoryEdit.ItemsSelected(lngLoop)) & " OR "

Next lngLoop
strIDs = Left(strIDs, Len(strIDs) - 4)
txtQueryCriteria = strIDs
DoCmd.OpenQuery "EditQuery"
Else
txtQueryCriteria = ""
MsgBox "No names are selected!", vbExclamation
End If

 

[MSAccessRookie]

Hello everyone I have the following code listed below. I need to be able to have a " and the beginning and ending of every item is selected in a muti-select listbox. so for example if a user selects Balance and Capture in the list box. This code right now populates a text box I am using for a query criteria with: Balance or Capture
How can I get it to produce "Balance" or "Capture"


Dim lngLoop As Long
Dim strIDs As String

If ListCategoryEdit.ItemsSelected.Count > 0 Then
strIDs = ""
For lngLoop = 0 To ListCategoryEdit.ItemsSelected.Count - 1
strIDs = strIDs & "" & ListCategoryEdit.ItemData(ListCategoryEdit.ItemsSelected(lngLoop)) & " OR "

Next lngLoop
strIDs = Left(strIDs, Len(strIDs) - 4)
txtQueryCriteria = strIDs
DoCmd.OpenQuery "EditQuery"
Else
txtQueryCriteria = ""
MsgBox "No names are selected!", vbExclamation
End If

When using VB, the character " can be expressed as chr(34). Check out the chr() function. You may find other uses for it as well.

 

[dkinley]

In addition to Rookie's comments - which I have used that method alot, the following link might provide some more insight.

http://msdn.microsoft.com/en-us/library/aa212167(office.11).aspx

-dk

 

[joeserrone]

I appreciate all your help on this, I understand it much better now. I added
strQuote = Chr$(34)
strIDs = strIDs & strQuote & ListCategoryEdit.ItemData(ListCategoryEdit.ItemsSelected(lngLoop)) & strQuote & " OR "

and worked exactly like I needed to!

Thanks again