[Resolvido]Ajuda com código

Alguem pode me dizer o que está de errado neste código?

Código:

Private Sub cboOrdenar_AfterUpdate()
If cboOrdenar = Código Then
         Me!SubProdutos.Form.OrderBy = [Código]
         Me!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar = Referência Then
         Me!SubProdutos.Form.OrderBy = [Referência]
         Me!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar = Descrição Then
         Me!SubProdutos.Form.OrderBy = [Descrição do Produto]
         Me!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar = Unidade Then
         Me!SubProdutos.Form.OrderBy = [Unidade]
         Me!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar = Marca Then
         Me!SubProdutos.Form.OrderBy = [Marca]
         Me!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar = Categoria Then
         Me!SubProdutos.Form.OrderBy = [Categoria]
         Me!SubProdutos.Form.OrderByOn = True
Else
Refresh
End If
End Sub

Olá RAprendiz,

Em se tratando de combobox, vc tem que referenciar corretamente o valor da combo desejada pela sua posição na coluna da tabela.

cboOrdenar.Column(0) em vez de cboOrdenar

Código:

If cboOrdenar.Column(0) = Me!Codigo  'Ou Forms!NomedoFormulário!Codigo

simplesmente




e por aí vai.

Olá good guy
Adaptei, fiz o teste e deu certo, mas infelizmente travou apenas no código. Não está organizando pelos outros itens.
O código ficou assim:

Código:

Private Sub cboOrdenar_AfterUpdate()
If cboOrdenar.Column(0) = Código Then
         Forms!SubProdutos.Form.OrderBy = [Código]
         Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) = Referência Then
         Forms!SubProdutos.Form.OrderBy = [Referência]
         Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) = Descrição Then
         Forms!SubProdutos.Form.OrderBy = [Descrição do Produto]
         Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) = Unidade Then
         Forms!SubProdutos.Form.OrderBy = [Unidade]
         Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) = Marca Then
         Forms!SubProdutos.Form.OrderBy = [Marca]
         Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) = Categoria Then
         Forms!SubProdutos.Form.OrderBy = [Categoria]
         Forms!SubProdutos.Form.OrderByOn = True
Else
Refresh
End If
End Sub

Olá RAprendiz,

Verifique novamente minha instrução.

Código:

Private Sub cboOrdenar_AfterUpdate()
If cboOrdenar.Column(0) = Forms!NomedoFormulário!Código Then
        Forms!SubProdutos.Form.OrderBy = Me!Código
        Forms!SubProdutos.Form.OrderByOn = True
ElseIf cboOrdenar.Column(0) =  Forms!NomedoFormulário!Referência Then
        Forms!SubProdutos.Form.OrderBy = Me.Referência
        Forms!SubProdutos.Form.OrderByOn = True
.............................................
End Sub

Se encontrar qualquer problema, posta o bd.

Entendi.
Mas o problema é que a caixa de combinação não está vinculada com nenhum formulário, eu que digitei os valores.
E seguindo o seu exemplo está retornando um erro:
"Método ou membro de dados não encontrado"

Não estou conseguindo enviar o BD pro problemas de velociade da internet

Olá RAprendiz,

Neste caso vc tem que criar variáveis de busca na tabela. Para posta o seu bd, coloque apenas as tabelas, consultas e formulários necessários, logo abaixo, Anexar arquivos, Procurar e Enviar Consulta:

Código:

Private Sub cboOrdenar_AfterUpdate()
Dim sCod As Integer
Dim strNome As String

strNome = Forms!NomedoSeuForm!Nome    'Exemplo de referência de campo
sCod = DLookup("Código","TabelaTal","Nome = '" & strNome & "'")

If cboOrdenar.Column(0) = sCod Then        
Forms!SubProdutos.Form.OrderBy = sCod
Forms!SubProdutos.Form.OrderByOn = True

.............................................
End Sub

Boa Tarde,
O problema é que nem dessa maneira vai.
Minha internet é via wi-fi do celular e meus créditos ja estão no fim.

Olá good guy,
o problema foi sanado.
Obrigado pela atenção!

Olá RAprendiz,

Como ficou o código final? Posta aí para que os colegas possam aprender também.

Boa noite,
Infelizmente o código começou a gerar um novo erro.   
estava usando este código:

Código:

Private Sub cboOrdenar_AfterUpdate()
Dim filtro As String
filtro = "[Descrição do Produto] like '*" & Me!cboOrdenar = Descrição & "*'"
 Me!SubProdutos.Form.OrderBy = filtro
 Me!SubProdutos.Form.OrderByOn = True
End Sub

Ele funcionou a principio, mas depois de fechar o formulário e abrir novamente está retornando uma caixa de mensagem, onde tem:
Falso e depois uma caixa de texto para inserir um parâmetro

Olá RAprendiz,

Verifique o campo Descrição, esta caixa se abre quando não encontra uma referência correta ao campo, este no caso. Tente assim:

Código:

Private Sub cboOrdenar_AfterUpdate()
Dim filtro As String

filtro = "[Descrição do Produto] like '*" & Me!cboOrdenar = Me!Descrição & "*'"
 Me!SubProdutos

Ou outras formas utilizando variáveis:

Substitua por uma variável que contenha sua localização correta com a função DLookup.
Dim strCampoCerto As String
Dim nCod As Integer
nCod = Forms!NomedoFormulario!Código

strCampoCerto = DLookup("Descrição", "TabelaTal", "Código = nCod")


Seu código aqui ....

Olá good guy,
Ai é que se encontra o problema, não posso colocar "Me!cboOrdenar = Me!Descrição", pois a opção descrição da caixa não é um campo e sim um valor digitado por mim.
Outra coisa não estou conseguindo compreender como usar o código via DLookup. Poderia manda com duas opções configuradas? Descrição e Referência por exemplo?

Grato pela atenção e esforço.

Olá RAprendiz,

Nesse caso é preciso fazer alguns testes, tente colocando uma variável se esse valor for se alterar sempre ou se for fixo, coloque entre aspas se for um valor do tipo String e sem aspas se for do tipo Integer.
Se não der certo, posta o seu bd.

Olá good guy,
Finalmente consegui, com a ajuda do Noobezinho aqui do fórum!   
Obrigado pela ajuda e pelo esforço! O código final ficou assim:

Código:

Private Sub cboOrdenar_AfterUpdate()
Me.SubProdutos.Form.RecordSource = "SELECT CadastroProduto.Código, CadastroProduto.[Código de Barras]," & _
                                  " CadastroProduto.Unidade, CadastroProduto.Descrição, CadastroProduto.Referência," & _
                                  " CadastroProduto.[Localização Física], CadastroProduto.Marca, CadastroProduto.Categoria," & _
                                  " CadastroProduto.[Estoque Mínimo], CadastroProduto.[Estoque Atual], CadastroProduto.[Data de Atualização]," & _
                                  " CadastroProduto.[Valor Custo], CadastroProduto.[Margem Avista (%)], CadastroProduto.[Valor Avista]," & _
                                  " CadastroProduto.[Margem Prazo (%)], CadastroProduto.[Valor Prazo], CadastroProduto.[Margem Atacado (%)]," & _
                                  " CadastroProduto.[Valor Atacado], CadastroProduto.Observações" & _
                                  " FROM CadastroProduto" & _
                                  " ORDER BY CadastroProduto." & Me.cboOrdenar & ";"

Me.SubProdutos.Form.Requery

End Sub

Conseguiu é?   

Parabéns !

E falta outro tópico pra dar o retorno.
São 3 ao todo né?  Ou tem mais  

Olá RAprendiz, podes verificar as tuas mensagens privadas?
Não recebi retorno.
Obrigado.

Olá Ahteixeira,
Ja verifiquei e não há mensagens tuas.