[Resolvido]combo box em ordem alfabética

Amigos do MaximoAccess.

Eu tenho um formulário com trÊs combos que filtram entre si. eu estou tentando colocá-los em ordem alfabética.
na primeira combo eu coloquei na origem da linha:
SELECT TblAnalista.CodAnalista, [NomeDoAnalista] AS Analista FROM TblAnalista ORDER BY TblAnalista.NomeDoAnalista;

Funciona perfeitamente.

na segunda combo eu coloquei na origem da linha:
SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista ORDER BY TblEmpresa.NomeDaEmpresa;
mas não funcionou.

eu tentei mudar no evento após atualizar da primeira combo:
Me.combEmpresa.RowSource = "SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista= " & Forms!ffiltros!combAnalista & ";"

fiz algumas combinações com ORDER BY TblEmpresa.NomeDaEmpresa; mas também não funcionou.

a terceira combo é filtrada através de um frame, eu tentei alterar na origem da linha, não funcionou.

If Me.Frame10 = 1 Then

Me.combProduto.RowSource = "SELECT CodProduto, NomeDoProduto FROM TblProduto WHERE CodEmpresa=" & [Forms]![ffiltros]![combEmpresa] & ";"

End If
If Me.Frame10 = 2 Then

Me.combProduto.RowSource = "SELECT CodProduto, NomeDoProduto FROM TblProduto WHERE CodEmpresa=" & [Forms]![ffiltros]![combEmpresa] & "And Ativado = -1 ;"


End If
If Me.Frame10 = 3 Then

Me.combProduto.RowSource = "SELECT CodProduto, NomeDoProduto FROM TblProduto WHERE CodEmpresa=" & [Forms]![ffiltros]![combEmpresa] & "And Ativado <> -1 ;"

Eu acho eu preciso apenas adicionar ORDER BY em todas as intruções SQL, Apenas não sei como colocar exatamente.

Obrigado.

na segunda combo eu coloquei na origem da linha:
SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista ORDER BY TblEmpresa.NomeDaEmpresa;
mas não funcionou.

Não estaria faltando colocar o parâmetro na cláusula WHERE? CodAnalista seria igual a quê?

criquio, obrigado por responder.
Eu coloquei desta forma:

SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista=32 ORDER BY TblEmpresa.NomeDaEmpresa;

mas não funciona.

Você tentou usar o evento "Após atualizar" da combo anterior para reordenar as outras? Por exemplo, a combo2 depende da 1 e a 3 depende da 2. Então, no evento "Após atualizar" da combo1, você atualiza a combo2 com a linha abaixo:

Me.NomeDaCombo2.Requery

Faz o mesmo na combo2 para atualizar a combo3.

criquio, eu já tinha esta linha de código anteriormente:

Private Sub combAnalista_AfterUpdate()' primeira combo

If IsNull(Me.combAnalista) Or Me.combAnalista = "" Then Exit Sub

'capture analista
analista = combAnalista.Text
'Me.Comando119.Visible = True

Me.ComandoCadastroBásico2.Visible = False
Me.combEmpresa = ""
Me.combProduto = ""
Me.combProduto.RowSource = ""
Me.Section(0).Visible = False
Me.combEmpresa.Visible = True
Me.combProduto.Visible = False
Me.Frame10.Visible = False
Me.combEmpresa.SetFocus
'Me.combEmpresa.RowSource = "SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista= " & Forms!ffiltros!combAnalista & ";" AND ORDER BY TblEmpresa.NomeDaEmpresa
'Me.combEmpresa.RowSource = "SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista= ORDER BY TblEmpresa.NomeDaEmpresa" & Forms!ffiltros!combAnalista & ";"
Me.combEmpresa.RowSource = "SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista= " & Forms!ffiltros!combAnalista & ";"
Me.combEmpresa.Requery
Me.combEmpresa.Dropdown
End Sub

E?!

Criquio, muito obrigado pela sua ajuda. consegui resolver, apenas não estava colocando ORDER BY corretamente.

Dim strSQL As String

strSQL = "SELECT CodEmpresa, NomeDaEmpresa FROM TblEmpresa WHERE CodAnalista= " _
& Forms!ffiltros!combAnalista & " ORDER BY TblEmpresa.NomeDaEmpresa;"

Me.combEmpresa.RowSource = strSQL

Obrigado.

Ótimo. Grato pelo retorno.