Combo Box Text [resolved]

[demotivater]

I'm adding a record to a db and setting a combo boxs text to the newly added record. I haven't run into this problem before, but each time I exit the sub, the combo box text dissappears.

Private Sub cmbPrimaryAffiliation_Click()
    Dim currentSecondary As String
    
    currentSecondary = cmbSecondary.text
    
    If cmbPrimaryAffiliation.text <> "" Then
        If cmbPrimaryAffiliation.text = "Add A Company" Then
            leadsAdding = True
            frmAddCompany.Show vbModal
            If rs.State = adStateOpen Then rs.Close
            rs.Open "SELECT * FROM tblcompany ORDER BY company", cn, adOpenKeyset, adLockReadOnly, adCmdText
            cmbPrimaryAffiliation.Clear
            cmbSecondary.Clear
            Do Until rs.EOF = True
                cmbPrimaryAffiliation.AddItem rs!company
                cmbSecondary.AddItem rs!company
                rs.MoveNext
            Loop
            cmbPrimaryAffiliation.AddItem "Add A Company"
            cmbSecondary.AddItem "Add A Company"
            cmbPrimaryAffiliation.text = frmAddCompany.compName
            cmbSecondary.text = currentSecondary
            leadsAdding = False
        End If
    End If
End Sub

The text is visible after the .Text line, but when I get to End Sub - it dissappears. Any ideas?

Thanks

[apps_tech]

Move this line:
currentSecondary = cmbSecondary.text

just before EndSub in ur code. I think that should work.

[demotivater]

Actually, that's kind of unrelated. It's the cmbPrimaryAffiliation I'm trying to set the text for. It sets fine, but when the sub ends, it's gone. I don't have any other subs for got focus, lost focus or anything like that. Just this one click sub that allows the user to add a new company. I'm then trying to set the combo box to the company the user added. ie: cmbPrimaryAffiliation.text = frmAddCompany.compName, which works fine and adds the text. As soon as I hit end sub it's gone.

[demotivater]

I still have no idea why the text was disappearing, but anyway...
I'm going this route instead in case someone needs this in the future.

'API to search company combo boxes after adding new company
Private Declare Function SendMessage _
                Lib "user32" _
                Alias "SendMessageA" _
                (ByVal hWnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Integer, _
                 lParam As Any) As Long
 
Private Const CB_FINDSTRING = &H14C
 
 
Private Sub cmbPrimaryAffiliation_Click()
    Dim currentSecondary As String
    Dim newName As String
    Dim intIndex As Integer
    
    currentSecondary = cmbSecondary.text
    
    If cmbPrimaryAffiliation.text <> "" Then
        If cmbPrimaryAffiliation.text = "Add A Company" Then
            leadsAdding = True
            frmAddCompany.Show vbModal
            newName = frmAddCompany.compName
            If rs.State = adStateOpen Then rs.Close
            rs.Open "SELECT * FROM tblcompany ORDER BY company", cn, adOpenKeyset, adLockReadOnly, adCmdText
            cmbPrimaryAffiliation.Clear
            cmbSecondary.Clear
            Do Until rs.EOF = True
                cmbPrimaryAffiliation.AddItem rs!company
                cmbSecondary.AddItem rs!company
                rs.MoveNext
            Loop
            If rs.State = adStateOpen Then rs.Close
            cmbPrimaryAffiliation.AddItem "Add A Company"
            cmbSecondary.AddItem "Add A Company"
            'find the newname in the combo box
            intIndex = SendMessage(cmbPrimaryAffiliation.hWnd, CB_FINDSTRING, -1, ByVal newName)
            cmbPrimaryAffiliation.ListIndex = intIndex
            'cmbPrimaryAffiliation.text = newName <--- this won't work for some reason 
            cmbSecondary.text = currentSecondary
            leadsAdding = False
        End If
    End If
End Sub