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]Localizar e posicionar no registro

    Compartilhe

    aeps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 05/10/2016

    [Resolvido]Localizar e posicionar no registro

    Mensagem  aeps em 17/10/2018, 20:36

    Boa Tarde!

    Preciso de uma ajuda.

    Tenho um formulário (frmCadastro) onde tem cadastrados de pessoas, neste formulário tem um botão onde abre um formulário (localizar) que tem uma caixa de combinação com todas as pessoas cadastradas.
    Apos selecionar a pessoa, quero fechar este fomulário (localizar) e posicione o cadastro da pessoa selecionada da caixa de combinação, no fomulario (frmCadastro.).

    stDocName = "frmCadastro"
    stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Usei o método acima, mas ele filtra e não navega mais estre registros

    Tem alguma outra solução?
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 08/10/2012

    Re: [Resolvido]Localizar e posicionar no registro

    Mensagem  Sidney em 17/10/2018, 20:57

    Amigo, Boa Tarde!!
    mande um pequeno exemplo do seu projeto

    att;

    sidney

    aeps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 05/10/2016

    Re: [Resolvido]Localizar e posicionar no registro

    Mensagem  aeps em 18/10/2018, 12:37

    Sidney, conforme solicitado, segue abaixo o código:

    Formulário Localizar:

    Private Sub btOK_Click()
    On Error GoTo Err_btOK_Click
       
       Dim stDocName As String
       Dim stLinkCriteria As String

       If Not IsNull(cboPessoa) Then
           stDocName = "frmCadastro"
           stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
           DoCmd.OpenForm stDocName, , , stLinkCriteria
       End If
       
       DoCmd.Close acForm, "frmCadastro", acSaveYes
       
    Exit_btOK_Click:
       Exit Sub

    Err_btOK_Click:
       MsgBox Err.Description
       Resume Exit_btOK_Click
       
    End Sub

    Com este código o formulário frmCadastro abre no registro selecionado mas os botões de mudação de registro não funcionam.

    No formulário frmCadastro

    Private Sub botPriReg_Click()
    On Error GoTo Err_botPriReg_Click

    DoCmd.GoToRecord , , acFirst

    Exit_botPriReg_Click:
    Exit Sub

    Err_botPriReg_Click:
    MsgBox Err.Description
    Resume Exit_botPriReg_Click

    End Sub
    Private Sub botAntReg_Click()
    On Error GoTo Err_botAntReg_Click

    DoCmd.GoToRecord , , acPrevious

    Exit_botAntReg_Click:
    Exit Sub

    Err_botAntReg_Click:
    MsgBox Err.Description
    Resume Exit_botAntReg_Click

    End Sub
    Private Sub botProReg_Click()
    On Error GoTo Err_botProReg_Click

    DoCmd.GoToRecord , , acNext

    Exit_botProReg_Click:
    Exit Sub

    Err_botProReg_Click:
    MsgBox Err.Description
    Resume Exit_botProReg_Click

    End Sub

    Aguardo uma ajuda.

    Obrigado


    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10359
    Registrado : 04/11/2009

    Re: [Resolvido]Localizar e posicionar no registro

    Mensagem  JPaulo em 18/10/2018, 13:28

    Toninho, o que está a contecer é que você está a enviar um filtro especifico para o segundo form.

    Dessa forma o segundo form fica filtrado e jamais irá navegar.

    Tem de fazer assim;

    Código:
    stDocName = "frmCadastro"
    stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
    DoCmd.OpenForm stDocName
    Forms(stDocName).Recordset.FindFirst stLinkCriteria


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

    aeps
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 05/10/2016

    Re: [Resolvido]Localizar e posicionar no registro

    Mensagem  aeps em 18/10/2018, 13:45

    JPaulo, fechou! Funcionou perfeitamente!

    Muito Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10359
    Registrado : 04/11/2009

    Re: [Resolvido]Localizar e posicionar no registro

    Mensagem  JPaulo em 18/10/2018, 13:55

    Fico feliz pelo tempo investido e pelo seu retorno.

    Aproveite e veja este tópico
    http://www.maximoaccess.com/t5357-como-contribuir-com-o-forum-via-paypal


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 19/1/2019, 02:53