MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Alterar Mensagem Padrão no Access

    avatar
    Carlos Cruz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 26/02/2014

    [Resolvido]Alterar Mensagem Padrão no Access Empty [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Carlos Cruz em 14/6/2019, 14:02

    No meu Access 2013 este código não está funcionando ! Quero trocar a mensagem padrão do Access no erro 3022.
    Obrigado!

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conErro = 3022
    Dim strMensagem As String

    If DataErr = conErro Then
    Response = acDataErrContinue
    strMensagem = "Duplicação não autorizada..."
    MsgBox strMensagem, vbCritical
    End If
    End Sub
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Alterar Mensagem Padrão no Access Empty Re: [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Silvio em 14/6/2019, 14:05



    Algo parecido com isso...

    On error goto fim

    fim:

    If err.number = 3022 then
    msgbox"Duplicação não autorizada " & vbcrlf & _
    "Entre em contato com o administrador !!", vbcritical, "AVISO..."
    end if


    .................................................................................
    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."
    avatar
    Carlos Cruz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 26/02/2014

    [Resolvido]Alterar Mensagem Padrão no Access Empty Alterar Mensagem Padrão no Access

    Mensagem  Carlos Cruz em 14/6/2019, 14:59

    Olá Silvio.
    Ainda não funcionou, onde estou errando? Fiz assim:

    No modo design do formulário, Aba evento, linha Ao ocorrer erro, coloquei este código:

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conErro = 3022
    Dim strMensagem As Strin
    If err.number = 3022 then
    msgbox"Duplicação não autorizada " & vbcrlf & _
    "Entre em contato com o administrador !!", vbcritical, "AVISO..."
    end if
    End Sub

    Quando ocorre o erro 3022, abre uma janela assim:
    Erro em tempo de execução ‘3022’
    As alterações solicitadas para a tabela não foram .......................................
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Alterar Mensagem Padrão no Access Empty Re: [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Silvio em 14/6/2019, 17:40


    Coloque do modo que está no Evento Ao Abrir do formulário em questão.


    on error goto fim
    fim:
    If err.number = 3022 then
    msgbox"Duplicação não autorizada " & vbcrlf & _
    "Entre em contato com o administrador !!", vbcritical, "AVISO..."
    end if


    .................................................................................
    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."
    avatar
    Carlos Cruz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 26/02/2014

    [Resolvido]Alterar Mensagem Padrão no Access Empty Alterar Mensagem Padrão no Access

    Mensagem  Carlos Cruz em 14/6/2019, 18:38

    Infelizmente não funcionou. O erro 3022 é para um campo com número, que na tabela está Indexado Sim (Duplicação não autorizada)
    Quero mudar a mensagem padrão do Access. A mesagem padrão é esta:

    Erro em tempo de execução ‘3022’
    As alterações solicitadas para a tabela não foram .......................................
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Alterar Mensagem Padrão no Access Empty Re: [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Silvio em 14/6/2019, 19:06

    Poste as partes envolvidas aqui para uma melhor analise.


    .................................................................................
    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."
    avatar
    Carlos Cruz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 26/02/2014

    [Resolvido]Alterar Mensagem Padrão no Access Empty Alterar Mensagem Padrão no Access

    Mensagem  Carlos Cruz em 14/6/2019, 19:52

    Segue um pequeno banco de dados, apenas para o caso. Abrindo o formulário, escrevi novamente o que preciso.
    Obrigado Silvio
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Alterar Mensagem Padrão no Access Empty Re: [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Silvio em 14/6/2019, 20:40

    Carlos..boa tarde.

    veja o link de um colega nosso aqui do fórum....
    youtube.com/watch?v=Ucp1MgVwZp4 = copie e cole no navegador.


    .................................................................................
    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."
    avatar
    Carlos Cruz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 26/02/2014

    [Resolvido]Alterar Mensagem Padrão no Access Empty [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Carlos Cruz em 14/6/2019, 22:49

    Silvio, funcionou perfeitamente.
    Muito Obrigado!

    No link o código não está mais disponível para download, tive que copiar assistindo o vídeo, para quem quiser está aí:

    Private Sub VendaCli_NrOrc_BeforeUpdate(Cancel As Integer)

    Dim Busca As String
    Dim StLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.VendaCli_NrOrc.Value
    StLinkCriteria = "VendaCli_NrOrc" ' " & Busca & " ' "
    If DCount("VendaCli_NrOrc", "Tab_80VC", StLinkCriteria) > 0 Then
    Me.Undo
    MsgBox "Atenção, Orçamento " _
    & Busca & " JÁ EXISTE." _
    & vbCr & vbCr & "ESCOLHA OUTRO.", vbInformation_, "duplicado"

    'rsc.FindFirst StLinkCriteria
    End If
    'Set rsc - Nothing

    End Sub
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4591
    Registrado : 20/04/2011

    [Resolvido]Alterar Mensagem Padrão no Access Empty Re: [Resolvido]Alterar Mensagem Padrão no Access

    Mensagem  Silvio em 16/6/2019, 18:34

    Boa tarde...

    Show de bola...mais um aprendizado para você.

    Abraços.


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

      Data/hora atual: 11/8/2020, 01:11