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

    [Resolvido]Ignorar erro sistema

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    [Resolvido]Ignorar erro sistema Empty [Resolvido]Ignorar erro sistema

    Mensagem  ictsp Qui 08 Abr 2021, 08:54

    Bom dia! Prezados colegas, executo o código abaixo através de um botão no meu form.

    Código:
    Private Sub Comando39_Click()
    If IsNull(Me.CONT) Then
    Me.CONT = "ATUALIZAR CONTATO"
    Else
    DoCmd.RunCommand acCmdSaveRecord
    CurrentDb.Execute "INSERT INTO cadcont (COD,empr,cont,depto,cargo,email,TEL1,TEL2,CEL1,CEL2) VALUES ('" & Me.cod & "','" & Me.EMPR & "','" & Me.CONT & "','" & Me.DEPTO & "','" & Me.CARGO & "','" & Me.EMAIL & "','" & Me.TEL1 & "','" & Me.TEL2 & "','" & Me.CEL1 & "','" & Me.CEL2 & "')"
      CurrentDb.Execute "INSERT INTO contatos1 ([Primeiro nome],[Empresa],[Departamento],[Cargo],[Rua do endereço comercial],[Cidade do endereço comercial],[Estado do endereço comercial],[cep do endereço comercial],[telefone],[telefone comercial2],[telefone celular],[número do pager],[fax comercial],[email eletrônico],[página da web],[Nome para exibição],[Arquivar como]) values ( '" & UCase(Me!CONT) & "','" & UCase(Me!EMPR) & "','" & StrConv(Me.DEPTO, vbProperCase, 3) & "','" & StrConv(Me.CARGO, vbProperCase, 3) & "','" & UCase(Me.END) & "','" & StrConv(Me.CID, vbProperCase, 3) & "','" & UCase(Me.UF) & "','" & Me.CEP & "','" & Me!TEL1 & "','" & Me!TEL2 & "','" & Me!CEL1 & "','" & Me!CEL2 & "','" & Me!FAX & "','" & LCase(Me.EMAIL) & "','" & LCase(Me.SITE) & "','" & UCase(Me.CONT) & "','" & UCase(Me.CONT) & "')"
      msgbox "Cadastro Empresa Realizado com Sucesso", vbInformation + vbOKOnly, "Hespérides"
    DoCmd.Close
    Forms!cadped.Visible = True
    End If
    End Sub

    Após esta linha " CurrentDb.Execute "INSERT INTO contatos1....", dá uma mensagem de erro. O registro fica salvo, tudo certo, mas não executa o restante do código.
    Algum dos colegas poderia me dar uma luz?
    Desde já, agradeço imensamente a atenção.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3324
    Registrado : 21/04/2011

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  Marcelo David Qui 08 Abr 2021, 09:13

    Bom dia.
    Sim, dá um erro. Mas que erro?
    Todo erro erro gerado tem um número e uma descrição.
    Qual o nome do formulário onde executa esse código?



    .................................................................................
    Marcelo David | [Resolvido]Ignorar erro sistema LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  ictsp Qui 08 Abr 2021, 10:05

    Marcelo, primeiramente obrigado pelo retorno.

    O nome do form é "cademprpedprod"

    Eu utilizo para salvar simultaneamente os dados no meu bd e no outlook.
    Ele dá o erro '3033', porém salva perfeitamente os dados em ambos.
    [Resolvido]Ignorar erro sistema Erro11

    Porém o código para, não exibe a msgbox nem fecha o form.

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3324
    Registrado : 21/04/2011

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  Marcelo David Qui 08 Abr 2021, 11:07

    Esse erro parece ser relacionado ao antigo MDW.
    Coisas do Access 2003, mas pela interface parece 2010...

    Enfim, tente saltar o erro adicionando essa linha em vermelha
    no local indicado:

    Private Sub Comando39_Click()
    On Error Resume Next
    If IsNull(Me.CONT) Then


    .................................................................................
    Marcelo David | [Resolvido]Ignorar erro sistema LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4453
    Registrado : 06/11/2009

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  Assis Qui 08 Abr 2021, 11:15

    Boa tarde

    Teste, não tenho certeza ...

    Está assim:

    DoCmd.Close
    Forms!cadped.Visible = True

    Altere para:

    Forms!cadped.Visible = True
    DoCmd.Close


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 02/09/2016

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  ictsp Qui 08 Abr 2021, 11:26

    Amigos, obrigado pela atenção e ajuda.

    O problema foi resolvido conforme sugestão do amigo Marcelo.

    Prezado Assis, no meu bd preciso obrigatóriamente fechar este form primeiro, pq o "cadped" está suspenso, e só retorna após o fechamento do form atual.

    Mais uma vez, obrigado a todos pela ajuda!

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3324
    Registrado : 21/04/2011

    [Resolvido]Ignorar erro sistema Empty Re: [Resolvido]Ignorar erro sistema

    Mensagem  Marcelo David Qui 08 Abr 2021, 12:05

    Grato pelo retorno. O Fórum agradece.


    .................................................................................
    Marcelo David | [Resolvido]Ignorar erro sistema LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: Qua 16 Jun 2021, 11:39