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