ACRESCENTAR NOME NO COMBOBOX COM DADOS DO BD

WEBIER 26/04/2011 18:02:26
#372520
tenho um combo carregado com dados do BD

assim:
Private Sub cboCONsetor_GotFocus()
If cboCONsetor.ListCount = 0 Then
    Call Abrir_BancodeDados
    SQL = [Ô]SELECT DISTINCT SETOR FROM SETOR ORDER BY SETOR[Ô]
    Set RS = BD.OpenRecordset(SQL)
        
    While Not RS.EOF
        cboCONsetor.AddItem RS([Ô]SETOR[Ô]) & [Ô][Ô]
        RS.MoveNext
    Wend
End If
    moCombo.AttachTo cboCONsetor
End Sub


como eu faria para colocar dentro do combobox a palavra TODOS, junto com os dados que ele trouxe do BD ?

TODOS
REGISTRO1
REGISTRO2
REGISTRO3
JONATHANSTECKER 26/04/2011 18:04:15
#372521 
Private Sub cboCONsetor_GotFocus()
cboCONsetor.AddItem [Ô]TODOS[Ô]
If cboCONsetor.ListCount = 0 Then
    Call Abrir_BancodeDados
    SQL = [Ô]SELECT DISTINCT SETOR FROM SETOR ORDER BY SETOR[Ô]
    Set RS = BD.OpenRecordset(SQL)
        
    While Not RS.EOF
        cboCONsetor.AddItem RS([Ô]SETOR[Ô]) & [Ô][Ô]
        RS.MoveNext
    Wend
End If
    moCombo.AttachTo cboCONsetor
End Sub
WEBIER 26/04/2011 20:39:58
#372531
Citação:

:

Private Sub cboCONsetor_GotFocus()
cboCONsetor.AddItem [Ô]TODOS[Ô]
If cboCONsetor.ListCount = 0 Then
    Call Abrir_BancodeDados
    SQL = [Ô]SELECT DISTINCT SETOR FROM SETOR ORDER BY SETOR[Ô]
    Set RS = BD.OpenRecordset(SQL)
        
    While Not RS.EOF
        cboCONsetor.AddItem RS([Ô]SETOR[Ô]) & [Ô][Ô]
        RS.MoveNext
    Wend
End If
    moCombo.AttachTo cboCONsetor
End Sub



só apareceu a palavra TODOS no combo!
MARCELO.TREZE 26/04/2011 21:22:34
#372534 Resposta escolhida
só muda a posição

Private Sub cboCONsetor_GotFocus()
If cboCONsetor.ListCount = 0 Then
    Call Abrir_BancodeDados
    SQL = [Ô]SELECT DISTINCT SETOR FROM SETOR ORDER BY SETOR[Ô]
    Set RS = BD.OpenRecordset(SQL)
    cboCONsetor.AddItem [Ô]TODOS[Ô]
    While Not RS.EOF
        cboCONsetor.AddItem RS([Ô]SETOR[Ô]) & [Ô][Ô]
        RS.MoveNext
    Wend
End If
    moCombo.AttachTo cboCONsetor
End Sub
WEBIER 26/04/2011 21:46:52
#372538
aproveitando a oportunidade

usando:
cboCONsetor.ListIndex = 0


eu seleciono o primeiro do combo

como eu falaria para selecionar o ultimo?
MARCELO.TREZE 26/04/2011 21:53:36
#372539 
cboCONsetor.ListIndex = cboCONsetor.Listcount - 1
WEBIER 26/04/2011 22:11:36
#372545
Obrigado, Marcelo!
Tópico encerrado , respostas não são mais permitidas
Voltar