Erişim vba: listbox additem multicolumn virgül üzerinde truncating

Question

İki colunms içeren bir combobox'ım var, ancak birincisi aynı şekilde bir liste kutusuna değerler ekleyen gizli. Liste kutusunun ikinci sütundaki dizeyi kırptığını fark ediyorum.

Bu benim kodum şu ana kadar cmbPart'ın combobox ve lstPart'ın liste kutusu olduğu yer.

Me.lstPart.AddItem (CStr(Me.cmbPart.Value) & " ;" & CStr(Me.cmbPart.Column(1, Me.cmbPart.ListIndex))) 

Size öyle Me.cmbPart.Column(1, Me.cmbPart.ListIndex) gerisini gösteren durdurur dizesinde bir virgül (,) varken dikkat edin.

Davranışı nasıl durdurabilirim?

Answer 1

Birden çok listeden oluşan bir liste kutusuna eklenecek virgüllerle birlikte açık dizeler tek tırnak içine alınabilir.

Me.lstPart.AddItem (CStr(Me.cmbPart.Value) & " ;" & CStr("'" & Me.cmbPart.Column(1, Me.cmbPart.ListIndex)) & "'")