MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Compartilhe

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  kleyton_ribeiro em Sab 16 Ago 2014, 01:57

    CÓDIGO:
    Private Sub Matrícula_Click()
       Dim rst As DAO.Recordset
       Dim strCriteria As String
       
       strCriteria = Forms!Antiguidade!ANTIGUIDADE_L!Matrícula
       
       Set rst = Me.RecordsetClone
       rst.FindFirst strCriteria

       Me.Bookmark = rst.Bookmark
       
    End Sub


    A parte em negrito é onde ocorre o erro "3001 - Argumento inválido". Esse código era pra fazer isso:

    Ao clicar na [Matrícula] da pessoa que está em um subformulário contínuo carrega o registro da pessoa no formulário principal.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  Fernando Bueno em Sab 16 Ago 2014, 04:14

    Teste dessa forma para abrir outro form no registro especifico.

    Código:
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "FormPrincipal"
    stLinkCriteria = "[CampoId]=" & "'" & Me![CampoId] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, ("FormPesquisa"), acSavePrompt


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  kleyton_ribeiro em Sab 16 Ago 2014, 17:00

    Caro Fernando, o seu código acho que é pra abrir outro formulário, correto? todavia não é o meu objetivo

    observe na imagem que existem três campos [Matrícula], [Nome] e [Antiguidade] e um Fomulário Contínuo como [Subformulário]

    o subformulário é origem de uma consulta e os três campos mencionados são parte de uma tabela com muito mais informações.

    não preciso que abra outro formulário, preciso que quando clicar na matrícula do subformulário, que é um formulário contínuo carregue no formulário Principal o registro dessa matrícula, pois este formulário será apenas para para alterar/atualizar o campo [Antiguidade].

    Veja a imagem e você vai entender.

    o código que eu fiz não consegue achar o registro com a matrícula clicada (FindFirst) na fonte de origem do formulário principal.

    Bom, eu uso essa estrutura de código pra fazer a busca em outro fomulário e roda direitinho, só que lá não tem subformulário, estou começando agora com VBA, mas eu acredito que precisa que o RecordSet seja carregado com o [Formulário Principal], para a busca (FindFirst) localizar o registro com a matrícula correspondente, e eu NÃO SEI fazer isso.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  Fernando Bueno em Sab 16 Ago 2014, 17:25

    Ok, veja se esse topico ajuda.

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  Fernando Bueno em Sab 16 Ago 2014, 17:37

    Qualquer coisa anexe as partes envolvidas do bd para vermos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  kleyton_ribeiro em Sab 16 Ago 2014, 20:21

    Fernando,

    Pesquisando mais no fórum mediante suas dicas achei uma solução para a minha necessidade, bem simples, usei filtro, na verdade é bem semelhante a sua primeira dica, minhas desculpas por não entende-la, veja:

    CÓDIGO QUE FUNCIONA: escreveu:DoCmd.OpenForm "ANTIGUIDADE", acViewNormal, , "Matrícula = " & Me!Matrícula

    Todavia,
    quando uso o mesmo código (em outro campo, em outro formulário similar) para abrir [SubformuláriodeNavegação] dá erro dizendo que falta um objeto, eis o código

    CÓDIGO QUE DÁ ERRO: escreveu:DoCmd.OpenForm FICHA.SubformuláriodeNavegação.Carreira, acViewNormal, , "Matrícula = " & Me!Matrícula

    Preciso que esse [DoCmd.OpenForm] abra um Subformulário. Me ajuda nessa?

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  kleyton_ribeiro em Sab 16 Ago 2014, 23:04

    Fernando, resolvi o problema. muito agradecido pela ajuda!

    Até a próxima.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  Fernando Bueno em Dom 17 Ago 2014, 04:10

    Legal Kleyton, precisando estamos ai. Compartilhe como resolveu seu problema para que

    sirva de exemplo a possíveis duvidas futuras.



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    kleyton_ribeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/05/2014

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  kleyton_ribeiro em Dom 17 Ago 2014, 04:21

    Eu resolvi o último código mudando a sistemática do BD, nas mudanças não era necessário abrir o subformulário.

    De qualquer forma, o objetivo do tópico foi alcançado, graças a sua ajuda.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

    Mensagem  Fernando Bueno em Dom 17 Ago 2014, 04:31

    Que bom  Very Happy 

    Agradeço o retorno em nome do forum!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 12:12