MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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.]
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    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: Seg 26 Jun 2017, 21:48