extend the size of combo box
hi is there any chance I can extend the size of my combo box to hold
the relevant data
Code:
'populate combo box with available lists
Public Function GetRiskDetails(cboRiskName As ComboBox)
On Error GoTo Err_GetRiskDetails
Dim rsSet As ADODB.Recordset
Dim objCmd As Command
Dim strRiskName As String
Set rsSet = New ADODB.Recordset
With rsSet
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenDynamic
End With
Set objCmd = New Command
With objCmd
.ActiveConnection = gBass
.CommandType = adCmdStoredProc
.CommandText = "up_Sel_RisksDetails1"
End With
Set rsSet = objCmd.Execute
cboRiskName.ColumnCount = 1
cboRiskName.ColumnWidths = "3 cm"
cboRiskName = ""
'create drop down lists
Do While Not rsSet.EOF()
strRiskName = strRiskName & """" & rsSet!Name & """" & ";"
rsSet.MoveNext
Loop
cboRiskName.RowSource = strRiskName
'finished with object so de-allocate
rsSet.Close
Set objCmd = Nothing
Exit_GetRiskDetails:
Exit Function
Err_GetRiskDetails:
msgbox Err.Description
Resume Exit_GetRiskDetails
Resume
End Function
the above is used to populate a combo box with a lists of items but I get
and error 'the setting for the property is too long blah blah!!'
anyhelp ???