[Resolvido]Caixa de Combinação - pesquisa no formulário

Caros amigos,

Venho solicitar a vossa ajuda para o seguinte problema.

Pretendo criar uma Caixa de Combinação no topo do meu formulário para que o utilizador, através de um campo possa aceder aos restantes campos do formulário.

Eu criei a Caixa de Combinação escolhendo o campo que pretendo que funcione como pesquisa

Depois criei o seguinte evento:

Private Sub CaixaCombinação61_AfterUpdate()
DoCmd.ApplyFilter , "ID = " & Me!CaixaCombinação61.Column(0)
Me.Aluno.SetFocus
Me.CaixaCombinação61 = Null
End Sub

Só que quando escolho um valor na caixa de combinação, dá sempre o mesmo erro:

Valor do Parâmetro - ID

Será que me podem ajudar a solucionar este problema.

Uso o Access 2010

Muito obrigado,
Saudações

Verifique se está usando o nome correto do campo e se ele está na coluna correta do combo.

Olá Criquio,

Obrigado pela sua ajuda.

Eu criei a caixa de combinação com recurso ao "wizard" do Access. Da tabela onde está a fazer a pesquisa selecionei apenas um campo, que no caso é o campo designado por "Aluno" e ordenei de forma ascendente.

Na folha de propriedade estão indicadas duas colunas (ID que é a PK da tabela e "Aluno" que é a única coluna visivel, ou seja, com largura superior a 0 cm).

Porém, quando escolho um dos registo é devolvido o erro que indiquei.

Se me puder ajudar, agradeço.

Se a combo tem duas colunas e você quer a segunda coluna, então é .Column(1) e não .Column(0). Veja se é isso.

Olá,

Também me tinha lembrado que fosse isso, mas quando o faço, dá o seguinte erro:

Run-time error '3705'
Erro de sintaxe (operador em falta) na expressão de consulta 'ID = [valor que escolhi no campo Aluno]'.

End || Debug || Help

Muito obrigado pela sua ajuda.

Se o campo for tipo texto, precisa usar aspas simples junto com as duplas:

DoCmd.ApplyFilter , "ID = '" & Me!CaixaCombinação61.Column(1) & "'"

Obrigado pela sua ajuda.

Já testei e continua a dar o mesmo erro.

O campo "Aluno" é texto e o ID que é PK é numeração automática.

O que realmente você precisa? Selecionar um registro e carregar o formulário com os dados desse registro filtrado pela ID ou quer carregar um formulário contínuo filtrado pela segunda coluna? De qualquer forma, tente, no evento "Ao atualizar" da combo:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE ID=" & Me.NomeDaCombo.Column(0) & ""

ou

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Aluno='" & Me.NomeDaCombo.Column(1) & "'"

criquio, não sei como lhe agradecer!

Fantástico e muito obrigado pela sua ajuda, tenho que apresentar o projeto amanhã e já estava a ver a minha vida andar para trás!

O que pretendia era que o utilizador escolhesse o nome de um aluno e todo o formulário fosse populado com os dados associados a esse aluno.

Utilizei: Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE ID=" & Me.NomeDaCombo.Column(0) & ""

Na origem da linha escolhi o ID e ALUNO e depois escolhi no item "número de colunas" um total de duas (2) e na largura das colunas escolhi zero (0) para o ID e cinco (5) para o campo ALUNO e assim a combox já está a funcionar.

Mais uma vez, muito mas mesmo muito obrigado pela sua ajuda.

Grato pelo retorno. O fórum agradece.