syncronising combo boxes

  • Thread starter Thread starter Ticotion
  • Start date Start date
T

Ticotion

Hi

I'm trying to syncronising two combo boxes. I'm using the following code:

Private Sub Tekst44_AfterUpdate()

' Update the row source of the combo box 64
' when the user makes a selection in the tekst44
' combo box.

Me.combobox64.RowSource = "SELECT tbSIM.code FROM" & _
" tbSIMl WHERE tbSIMl.exp= " & Me.Tekst44 & _
" ORDER BY tbSIMl.code"

Me.combobox64 = Me.combobox64.ItemData(0)
End Sub

In Tekst44 there the user can choose different types of respondsabilities
(eg. Production, Technical etc.). And in combobox64 I want the code connected
to this respndsability to be written. My problem is that there should be " "
around Tekst44 other wise I get prompted by the responsability the user has
chosen in Tekst44. How do you do that in the above?

regards

Ticotion
 
Try using either a single quote;
"tbSIMl WHERE tbSIMl.exp= '" & Me.Tekst44 & "' ORDER BY tbSIMl.code"

or two double quotes;
"tbSIMl WHERE tbSIMl.exp= "" & Me.Tekst44 & "" ORDER BY tbSIMl.code"

or the chr$ function;
"tbSIMl WHERE tbSIMl.exp= " & Chr$(34) & Me.Tekst44 & Chr$(34) & " ORDER BY
tbSIMl.code"

My personal preference is normally to use a single quote.

Hope this helps.
 
Two double quotes should be three;
"tbSIMl WHERE tbSIMl.exp= """ & Me.Tekst44 & """ ORDER BY tbSIMl.code"
 
Back
Top