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


2 participantes

    [Resolvido]err.Number = 2501

    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº1

    [Resolvido]err.Number = 2501 Empty [Resolvido]err.Number = 2501

    Mensagem  barroso 27/8/2017, 21:55

    Ola Alexandre Neves, tudo bem?

    Tenho uma dúvida, usei o codigo que voce indicou para esta mesma operacao mas na hora que o usuario clica em cancelar ele volta um erro.

    Me poderia ajudar a solucionar este problema?

    Obrigado.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº2

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves 28/8/2017, 15:45

    Boa tarde,
    Não sei como está a utilizar nem o erro que dá
    Se quiser ultrapassar o erro coloque no código On Error Resume Next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº3

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  barroso 29/8/2017, 01:17

    Ola Alexandre, obrigado por sua resposta.

    O código que estou usando é

    Código:
    Private Sub BT_exportar_excel_Click()

        UserLevel = (IsNull(DLookup("[gerente_usuario_BR]", "DB_usuario_BR", "[gerente_usuario_BR] =  0 " _
                    & " AND [usuario_BR] = '" & Form_F_menu_principal_BR.TXT_usuario_ativo_BR.Caption & "'")))
                   
                If UserLevel = -1 Then
                    DoCmd.OutputTo acOutputQuery, "C_pago_BR", acFormatXLSX, , True
                Else
                    MsgBox "Desculpe, você não tem autorização para isso.", vbCritical, "Acceso restrito"
                End If

    End Sub

    e o erro é o 2501, obrigado!
    • Ir para o topo
    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº4

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  barroso 30/8/2017, 01:18

    Boa noite Alexandre, obrigado pela resposta, o codigo ficaria assim?

    Código:
    Private Sub BT_exportar_excel_Click()

        UserLevel = (IsNull(DLookup("[gerente_usuario_BR]", "DB_usuario_BR", "[gerente_usuario_BR] =  0 " _
                    & " AND [usuario_BR] = '" & Form_F_menu_principal_BR.TXT_usuario_ativo_BR.Caption & "'")))
                    
                If UserLevel = -1 Then
                    DoCmd.OutputTo acOutputQuery, "C_pago_BR", acFormatXLSX, , True
                If err.Number = 2501 Then
                Resume Next
                Else
                    MsgBox "Desculpe, você não tem autorização para isso.", vbCritical, "Acceso restrito"
                End If
                End If

    End Sub

    Nao funcionou para mim...

    Espero sua ajuda, obrigado e desculpa a invasao do topico.
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº5

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves 30/8/2017, 09:06

    Bom dia, barroso

    Qual a sua dúvida?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº6

    [Resolvido]err.Number = 2501 Empty err.Number = 2501

    Mensagem  barroso 30/8/2017, 10:09

    Bom dia Alexandre, obrigado por sua resposta, minha duvida e se o codigo que postei acima esta correto, adicionei a condicao do erro que me voce me falou nao sei se a estrutura do botao ficou correta, mas quando o usuario aperta o botao e abre o assistente perguntando o local onde deseja exportar a consulta se o usuario clicar em cancelar ainda continua me dando o mesmo erro...
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº7

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves 30/8/2017, 11:21

    Separei as suas mensagens por não serem ligadas ao tema onde as escreveu
    Respeite as regras, de forma a mantermos o fórum organizado e de fácil procura e solução

    Sobre a sua dúvida, só dá erro quando escolhe Cancelar?
    Se sim, valide a execução do código antes, desligue os alertas ao executar e reponha os alertas após a execução
    Procure por setwarnigs


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº8

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  barroso 30/8/2017, 23:37

    Desculpa Alexandre mas nao entendi sua explicacao, sim, o erro so acontece quando o usuario clica em cancelar. Me ajudaria com esta duvida?
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009
    • Mensagem nº9

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves 31/8/2017, 09:08

    Bom dia,
    Pode colocar assim ou melhorar à sua medida
    Código:
    Private Sub BT_exportar_excel_Click()

        UserLevel = (IsNull(DLookup("[gerente_usuario_BR]", "DB_usuario_BR", "[gerente_usuario_BR] =  0 " _
                    & " AND [usuario_BR] = '" & Form_F_menu_principal_BR.TXT_usuario_ativo_BR.Caption & "'")))
                   
                If UserLevel = -1 Then
                    If MsgBox("Tem a certeza que quer exportar para Excel?", vbYesNo + vbDefaultButton2) = vbYes Then
                        DoCmd.SetWarnings False
                        DoCmd.OutputTo acOutputQuery, "C_pago_BR", acFormatXLSX, , True
                        DoCmd.SetWarnings True
                    End if
                If err.Number = 2501 Then
                Resume Next
                Else
                    MsgBox "Desculpe, você não tem autorização para isso.", vbCritical, "Acceso restrito"
                End If
                End If

    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    barroso
    barroso
    barroso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017
    • Mensagem nº10

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  barroso 10/2/2018, 21:52

    Resolvido obrigado alexandre.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº11

    [Resolvido]err.Number = 2501 Empty Re: [Resolvido]err.Number = 2501

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 23/11/2024, 12:26