[Resolvido]criar Caixa de combinação no access 2007

Olá... primeira vez que estou participando aqui...
estou com dificuldades ao criar uma caixa de combinação em um formulário...
quero localizar funcinário através de sua função...
na caixa de combinação, em propriedades no guia eventos, após atualizar, eu coloquei este código...

Private Sub funcaocons_AfterUpdate()
DoCmd.ApplyFilter , " Identificação = " & Me!funcaocons.Column(0)
Me!Nome.SetFocus
Me!funcaocons = Null
End Sub


esta dando erro na primeira linha... o que estou fazendo errado...
desde já grata!
Jéssica

Olá, seja bem vinda ao fórum!

Tente colocar um Me.FilterOn = True depois da linha do DoCmd.

vc diz dessa maneira:

Private Sub funcaocons_AfterUpdate()
DoCmd.ApplyFilter , " Identificação = " & Me!funcaocons.Column(0)
Me.FilterOn = True
Me!funcaocons = Null
End Sub

não deu certo!

desculpe a ignorância sou iniciante... nao entendo sobre codigos...

obrigada

Tente assim:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Identificação = " & Me!funcaocons.Column(0)

Se o dado do filtro for tipo texto, precisa de mais aspas simples e duplas:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Identificação = '" & Me!funcaocons.Column(0) & "'"

Boa noite... assim tambem

Private Sub funcaocons_AfterUpdate()
Me.Filter = "Identificação = " & Me!funcaocons.Column(0) & ""
Me.FilterOn = True
Me!funcaocons = Null
End Sub


Cumprimentos...

oi, obrigada pela tentativa de me ajudar..
mas ainda nao consegui, ja tentei todas essas maneiras
o que sera que to errando?

eu anexei o arquivo... se puderem analisar, ficarei grata...

valeuu...

Boas!

Oi Lupercio...

eu vi o código que vc inseriu... porém na hora que clico pra abrir o formulário e seleciono a função ele nao altera os dado abaixo... nao vi o resultado...

vc sabe pq?
obrigadaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

Aqui funcionou!

Olha estou até com vergonha, mas aqui não funcionou... meu access é 2007...
não sei o q pode estar ocorrendo... de qq maneira obrigada pela atenção... vou testar em outro computador

Jéssica, aqui funcionou inclusive vc pode trocar a função, que já aparece na caixa de pesquisa "Combo"!
Coloque este código!

Private Sub funccons_AfterUpdate()
Me.Filter = "Identificação = " & Me!funccons.Column(0) & ""
Me.FilterOn = True
Me!funccons = Null
End Sub

Luperciooo... agora deu certo... estava apareceu um aviso aqui, que certos itens estava desabilitados ... ai eu habiliteiii e apareceu suas mudanças...
SUPER OBRIGADA, ja estava quase desistindo...

receba os meus agradecimentos... ))

O forum agradece!

Não desista nunca dos teus objetivos, !

Fica com Deus!

obrigdaa...

Lupercio para repetir esse procedimentos em outros formulários... é só colar esse código q vai funcionar igual...???

vai cuidado com o nome dos controles, da combo por exemplo!

Qualquer coisa estamos aqui para ajudar se possível!

Lupercio... vou dar trabalho pra vc...
olha eu tentei... fucei... mas não estou conseguindo... fiz igualzinho vc falou, observei os nomes dos combo do formulário "consf11" mas não consigo ...

me fala onde eu estou errando se vc conseguir identificar...
mais uma vez mto obrigada.

rs

Repare que criei uma nova consulta - "con_Teste"
Criei um novo formulário - "FrmTeste" Para efetuar alguns testes, está funcionando normal!
O bd que vc postou estão com as tabelas vinculadas! Na tua consulta de origem não continha o campo identificação,
que é necessário para filtragem da combo!

nao consegui abrir o seu arquivo, diz: "formato nao reconhecido"

Lupercio pra começar a entender melhor essa linguagem VBA vc indica alguma apostila, curso ou sei la, tem alguma dica por onde eu possa partir... rs

obrigada mais uma vez pela atenção!
beijão!

Bom dia Jessica tenta baixar novamente! Por favor.

Desculpe nem coloquei como quero criar o meu sisteminha, as vezes o que quero nem é possível, mas seria assim:

Gostaria de criar um sistema de abertura de vagas, o que estou fazendo nesse arquivo do Access é o seguinte:

Colocar em uma única tabela todos os funcionários de todas filiais;

Depois, fazer consultas separando cada filial F02, F03, F04....,

E em cima dessas consultas criar cada formulário de cada filial separadamente... conforme pedi sua ajuda no formulario como que eu quero que fique...

Então a questão é... é possível fazer vários formulários a partir das consultas???? quero criar um formulário para cada loja.

Com certeza!
vc pode fazer quantos formulários quiser!

Vc conseguiu baixar o exemplo do bd que postei!

oi, sim agora eu consegui baixar o arquivo...

o ultimo bd que te encaminhei esta assim:
1ª situação:
Tabela: Tabela Geral
Formulário: Tabela Geral

nessa situação deu certo o combo consulta no formulário...

2ª situação:
Consulta: Cons F11
Formulário: Form F11


Aqui eu não estou conseguindo... a partir da consulta criar o formulario com o combo, com a caixa de combinação, vc mencionou de não ter a coluna "identificação" na consulta, mas tem sim...

Reparei que a sua tabela é igual sua consulta, e quando a consulta não esta igual a tabela de origem, não vai estar igual, pq é uma consulta...
Na 2ª situação, quero criar um formulário que filtra através da caixa de combinação a função dos funcionarios a partir da consulta que no caso é da Filial 11.

sera que nessa 2ª situação eu preciso de outro código(VBA)?

me ajude!

Topico colocado como Reaberto.

Cumprimentos.

Jessica poste novamente o teu banco para eu dar uma olhada, no que vc fez!

segue

Veja Jessica!

Jessica baixe este BD!
Na tua caixa de e-mail, postei uma apostila que fiz para você!

Colocar em uma única tabela todos os funcionários de todas filiais;

Depois, fazer consultas separando cada filial F02, F03, F04....,

E em cima dessas consultas criar cada formulário de cada filial separadamente... conforme pedi sua ajuda no formulario como que eu quero que fique

Um pitaco, pode fazer como fez... utilizar apena um form baseado nesta tabela... porem um form para abrir antes com uma caixa de combinacao com as filiais, e ao selecionar a filial abrir o form filtrado por esta.



Cumprimentos.

Lupercio também gostaria de ter a apostila que fez pra Jessica,pra entender melhor Vba.

Desculpa a intromissão. rachidsilva@yahoo.com.br

Obrigado.

Boas Irmão.. como anda este tópico?

Cumprimentos.

Piloto ela não respondeu mais nada!

Passaremos a resolvido então.

Obrigado.

Abraços.