MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Abrir formulário para editar registro especificado

    AceCrz
    AceCrz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/04/2017

    [Resolvido]Abrir formulário para editar registro especificado Empty [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  AceCrz em 2/4/2019, 15:33

    A situação é o seguinte:

    Tenho um subformulário onde mostra meus registros usei o comando para retornar o campo cod(numeração automática) usei o seguinte código para retornar o valor selecionado

    Dim stLinkCriteria As String
    stLinkCriteria = "" & Me!principal_sub![cod]

    Até ai ok, ele retorna certinho, porém eu tento abrir um formulário que edite esse registro, para isso eu preciso que ele abra o registro do cod =  17 por exemplo, mas ele sempre abre o formulário para editar em um novo registro. Estou usando o seguinte código:

    DoCmd.OpenForm "frm_editar", , , cod = stLinkCriteria

    Agradeço desde já. bounce bounce
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4679
    Registrado : 20/04/2011

    [Resolvido]Abrir formulário para editar registro especificado Empty Re: [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  Silvio em 2/4/2019, 17:34

    ele sempre abre o formulário para editar em um novo registro.

    Provavelmente o formulário que se abre, tem em algum evento ( Ao Abrir, Ao Carregar ) o comando: DoCmd.GoToRecord , , acNewRec


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Abrir formulário para editar registro especificado Empty Re: [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  Celso Roberto em 2/4/2019, 18:45

    Olá..

    Tente assim:

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_editar"

    stLinkCriteria = "[cod]=" & Me!principal_sub!cod
    DoCmd.OpenForm stDocName, , , stLinkCriteria


    Aguardamos.

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    AceCrz
    AceCrz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/04/2017

    [Resolvido]Abrir formulário para editar registro especificado Empty Re: [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  AceCrz em 3/4/2019, 02:02

    Silvio, já tinha pensado no caso, porém tava tudo certinho com os eventos do formulário.

    Eu consegui resolver na macro, colocando o seguinte expressão na condição WHERE ao abrir o formulário:

    ="[cod]=" & [Formulários]![Frm_pesquisa]![principal_sub]![cod]

    Celso, eu testei e deu certo também, valeu.

    Agradeço a vocês pela disposição em ajudar. Smile
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4679
    Registrado : 20/04/2011

    [Resolvido]Abrir formulário para editar registro especificado Empty Re: [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  Silvio em 3/4/2019, 12:07

    Se resolveu, muito que bem...


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Abrir formulário para editar registro especificado Empty Re: [Resolvido]Abrir formulário para editar registro especificado

    Mensagem  Celso Roberto em 3/4/2019, 23:19

    Olá..

    Obrigado pelo retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 17/1/2021, 20:02