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]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 : 4480
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    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 : 4480
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 957
    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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 02:41