MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Alterar Mensagem Padrão no Access

    avatar
    Carlos Cruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 : 4375
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 : 4375
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 : 4375
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 : 4375
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    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 : 4375
    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."

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/6/2019, 04:19