Ir ao conteúdo
  • Cadastre-se

Denilson Roberto de Souza

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. Boa noite, Quando seleciono o registro, realizo as alterações e quando clco no botão alterar, ao invés de alterar os dados éle duplica o registro. Como proceder. Private Sub AlteraResponsavel_Click() Dim db As DAO.Database Set db = CurrentDb() If IsNull(Id_Responsavel) Or Id_Responsavel.Value = "" Then MsgBox "CAMPO NOME de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção" Id_Responsavel.SetFocus 'Id_Endereco.BackColor = 255 não Exit Sub End If 'Set DB = CurrentDb() 'DB.Execute "update responsavel set id_responsavel " '& " me.id_abrevResp & " '" 'DoCmd.RefreshRecord DoCmd.RunCommand acCmdRefresh 'DoCmd.RunCommand acCmdRecordsGoToNew MsgBox "Dados alterados com sucesso!" 'DoCmd.RunCommand acCmdRefresh 'Bloqueia_Responsavel End Sub teste.zip

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...