[Resolvido] Abrir form com registros filtrados por funcionário

Estou fazendo um sistema no access 2007 e tenho um navigation form principal aonde acesso o form dos Funcionários (Employees - Brazil).
Neste form dos Funcionários tenho um botão que acessa outro form que filtra os conhecimentos que cada funcionário tem.
Os conhecimentos mostrados neste form são filtrados pra cada funcionário, então quando eu escolho o funcionário "joãozinho" e clico no botão Conhecimentos aparece no form de Conhecimentos (Employee By Subject) só os conhecimentos do "joãozinho".
O botão funciona perfeitamente quando abro o form dos Funcionários isolado, ou seja, não acesso ele pelo navigation form, mas quando acesso o form Funcionário pelo navigation form, e clico no botão conhecimentos para abrir o form dos Conhecimentos contendo os conhecimentos filtrados de cada funcionário, não funciona e pede pra eu entrar com o valor do parâmetro.
Eu utilizei o seguinte código no botão:

Private Sub Command139_Click()
Dim strNomeDoDoc As String
Dim strFiltro As String
strNomeDoDoc = "Employee By Subject"
strFiltro = "[Name] = [Forms]![Employees - Brazil]![Name]"
DoCmd.OpenForm strNomeDoDoc, , , strFiltro
End Sub

O que eu faço para que botão que filtra os conhecimentos também funcione quando eu acesso o form dos funcionários pelo navigation form?

Boas Camila...Seja bem vinda ao Fórum!!!

Tente assim:

strFiltro = "[Name] = '" & [Forms]![Employees - Brazil]![Name] & "'"


Cumprimentos

Olá,
Muito obrigada pela ajuda!

Fiz da maneira que você sugeriu mas ainda assim não deu certo.

Apareceu este erro:
Run-Time error '2450'
Microsoft access cannot find the referenced form 'Employees - Brazil'

Pode postar parte do banco para que vejamos isto?


Cumprimentos.

Asim:

Private Sub Command139_Click()
Dim strNomeDoDoc As String
strNomeDoDoc = "Employee By Subject"
DoCmd.OpenForm strNomeDoDoc, , , "Name = " & [Forms]![Employees - Brazil]![Name]
End Sub


Agora se a caixa texto estiver no mesmo form:

Private Sub Command139_Click()
Dim strNomeDoDoc As String
strNomeDoDoc = "Employee By Subject"
DoCmd.OpenForm strNomeDoDoc, , , "Name = " & Me.Name
End Sub


Cumprimentos

Oi!

Obrigada pela ajuda novamente, mas ainda não funcionou.
Eu não posso compartilhar o DB aqui porque é um projeto interno que estou desenvolvendo para a empresa em que trabalho.
Não é uma caixa de texto, é um Form que está dentro de um Navigation Form.
Neste Form (chamado Employees - Brazil) tem um botão com o nome Subject que deveria abrir outro Form (chamado Employee By Subject), filtrando os dados (conhecimentos) do funcionário específico que apareceu no Form Employees - Brazil.
Porém, o botão Subject não está funcionando quando acesso o Form Employees - Brazil pelo Navigation Form chamado Welcome. O botão Subject só está abrindo o Form Employee by Subject com os dados filtrados de cada employee quando acesso ele isoladamente.

Boas Camila.. nao precisa ser exatamente o BD...

Exclua dele o desnecessário a duvida...
Apague dados da tabela...
Deixe a tabela apenas com dois campos... e os dois forms sem demais campos.. apenas com o botao..

Para que possamos perceber o que deseja, pois o codigo que postei esta correto.

Abraços.

Ha sim... se é um form dentro de outro, então é um Sub-Form...

Para isto:

DoCmd.OpenForm strNomeDoDoc, , , "Name = " & [Forms]![Navigation Form].[Employees - Brazil].Form!Nome

Olá,

Como faço para mandar o DB em anexo.
Ele não aceita o formato .accdb

Compacte-o com o winzip. e o post no formmato .zip



Cumprimentos.

Em anexo o BD

Converta-o em 2003 ou 2007 querida.

Cumprimentos.

Olá,

O DB já está no formato para Access 2007, quando tento converter para o formato 2003 (.mdb) aparece uma mensagem dizendo que o programa apresenta características que não são suportadas pelo Access 2003.

Vou baixar novamente... pensei que estivesse em 2010

Cumprimentos.

O BD em anexo

Ha algo errado com teu BD ou está em 2010 ou está corrompido, pois dá formato não reconhecido..

Veja e poste o mesmo novamente.


Cumprimentos.

Olá,

Tentei converter o BD para uma versão anterior a 2010, porém não é possível, uma vez que o meu BD apresenta características e novas funcionalidades que não são suportadas por versões anteriores.

Tente simplificá-lo ao máximo... e crie um BD em 2007 depois importe o mesmo para ele....

Pedirei a alguem que tenha o 2010 que tente converter.

Abraços.

Eu simplifiquei o BD ao máximo, porém o Navigation Form não é suportado por versões anteriores, mas eu não posso remover ele porque é justamente ele que esta dando problemas.

E o que faz esse "Navigation Form" de especial que não o pode substituir por outro?


Cumprimentos.

Eu posso substituí-lo por um Tab Control

Olá,

Pode ser um problema relacionado com o nome do campo, Name, que é palavra reservada do Access e não deve ser utilizado como nome de campo. Assim como Data, Valor, Marca, etc.

Se não tiver maior impacto sobre o sistema, tente alterar esse nome de campo e fazer novos testes, por exemplo:

DoCmd.OpenForm strNomeDoDoc, , , NomeFuncionario = '" & Forms![Employees - Brazil]!NomeFuncionario & "'"

Boa noite camila, teste a dica do colega Claudio, em não dando certo poste novamente o BD, que ja avisei um colega e ele fará a conversão.

Cumprimentos.

Olá pessoal,

Obrigada pela ajuda.
Segue o DB.

Testou a dica do Claudio?


Cumprimentos.

Testei sim, abriu o form do Employee by Subject, porém não filtrou nada, o form ficou vazio.

Me fale assim:

O botão fica em qual form?
A caixa texto NomeFuncionario fica em qual form?
O form que vai abrir, qual é o nome?


De todos os detalhes

A correção:

strFiltro = "[Name] = [Forms]!Welcome!NavigationSubform.form![Name]"

Desculpe, não era um problema com o nome de campo, apesar da recomendação ser válida (não usar palavras reservadas do Access como nome de campo).

Bem... como eu havia sugerido a caixa texto está em um subform, eu apenas não havia aplicado os nomes corretamente pois não havia aberto o exemplo:

Sugestão no post anterior

DoCmd.OpenForm strNomeDoDoc, , , "Name = " & [Forms]![Navigation Form].[Employees - Brazil].Form!Nome

Cumprimentos.

Eu tenho um botão chamado Subject no Form Employees - Brazil, que é usado pra filtrar outro Form, chamado Employee by Subject.
O botão Subject funciona perfeitamente no Form Employees - Brazil sozinho, mas quando o Form Employees - Brazil é aberto dentro do Navigator Form (Nome: Welcome) não funciona.
O campo NomeFuncionario está no Form Employees Brazil.

Veja a dica do claudio acima...

Cumprimentos.

Entao... deves referenciar o NavigationFOrm: Welcome na instrução...


Assim como o claudio sugeriu...


Cumprimentos.

Teste no botão "Subjects" do formulario "Employees - Brazil".

Private Sub Command139_Click()
    Dim strNomeDoDoc As String
    Dim strFiltro As String
    strNomeDoDoc = "Employee By Subject"
    strFiltro = "[Name] = [Forms]![Welcome]![Employees - Brazil]![Name]"
    DoCmd.OpenForm strNomeDoDoc, , , strFiltro
End Sub

Alterei os dados para teste;

Olá,

Testei o código no botão Subjects mas ainda assim não deu certo.
Apareceu o erro em anexo

Você testou no exemplo que lhe passei ?

Sim, no exemplo funcionou direitinho.
Mas tentei passar o código para o programa original e não funcionou, não entendi o porquê.

Então o problema está no seu original.

Veja com atenção os nomes dos formularios na instrução que lhe passei.

Consegui resolver o problema, usei o seguinte código:

Private Sub Command139_Click()
Dim strNomeDoDoc As String
Dim strFiltro As String
strNomeDoDoc = "Employee By Subject"
strFiltro = "[Name] = Forms![Welcome]![NavigationSubform].Form![Name]"
DoCmd.OpenForm strNomeDoDoc, , , strFiltro
End Sub

obrigada

So faltou o resolvido no tópico querida..


O Fórum agradece o retorno.

Prontinho, agora coloquei

O Fórum agrade o retorno.