MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    avatar
    fcawarf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Empty [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    Mensagem  fcawarf 5/11/2017, 20:36


    Olá pessoal, usava esse código do prof. Gilberlânio no Access 2007, mas agora tentei usar o código no Access 2016 e simplesmente
    não funciona. Não adiciona novo registro e nem habilita os campos.
    Alguém sabe se tem como corrigir isso?

    Abraço a todos.

    Private Sub btnNovo_click()
    On Error GoTo BtnNovo_Click_err
    Me.txtcertificadoqualidade.Enabled = True
    Me.txtCodOrdemProducao.Enabled = True
    Me.txtconferente.Enabled = True
    Me.txtcorte.Enabled = True
    Me.txtdataordemproducao.Enabled = True
    Me.txtdesenhonumero.Enabled = True
    Me.txtdobra.Enabled = True
    Me.txtestampo.Enabled = True
    Me.txtinstrucaoproducao.Enabled = True
    Me.txtmaquina.Enabled = True
    Me.txtNomeCliente.Enabled = True
    Me.txtpedidonumero.Enabled = True
    Me.txtprevisaotermino.Enabled = True
    Me.txtsolda.Enabled = True
    Me.Btnalterar.Enabled = False
    Me.Btnanterior.Enabled = False
    Me.Btnexcluir.Enabled = False
    Me.BtnPrimeiro.Enabled = False
    Me.Btnproximo.Enabled = False
    Me.Btnultimo.Enabled = False
    Me.Btnnovo.Enabled = False
    Me.Btnsalvar.Enabled = True

    Me.txtNomeCliente.SetFocus

    DoCmd.GoToRecord acDataForm, "FormOrdProd", acNewRec

    btnNovo_click_exit:
    Exit Sub

    BtnNovo_Click_err:
    MsgBox Error$
    Resume btnNovo_click_exit
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Empty Re: [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    Mensagem  JPaulo 6/11/2017, 11:32

    Ola;

    É tudo uma questão de você desabilitar a segurança de macro;

    Cole no seu navegador internet:
    support.office.com/pt-br/article/Habilitar-ou-desabilitar-alertas-de-seguran%C3%A7a-na-Barra-de-Mensagem-adbf15d9-9195-4498-bdc3-5cb0dfe93852



    .................................................................................
    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

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new Instruções SQL como utilizar...
    avatar
    fcawarf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Empty DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    Mensagem  fcawarf 6/11/2017, 21:06

    Obrigado, JPaulo, sempre nos tirando do apuro.
    Achei que seria questão de digitar outro código, mas você resolveu fácil, agradeço mesmo.
    Grande abraço!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Empty Re: [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    Mensagem  JPaulo 6/11/2017, 21:33

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    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

    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016 Empty Re: [Resolvido]DoCmd.GoToRecord acDataForm, , acNewRec não funciona no Access 2016

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 04:23