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]err.Number = 2501

    Compartilhe
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    [Resolvido]err.Number = 2501

    Mensagem  barroso em 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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves em 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
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Re: [Resolvido]err.Number = 2501

    Mensagem  barroso em 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!
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Re: [Resolvido]err.Number = 2501

    Mensagem  barroso em 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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves em 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
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    err.Number = 2501

    Mensagem  barroso em 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...
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves em 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
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Re: [Resolvido]err.Number = 2501

    Mensagem  barroso em 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?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6980
    Registrado : 05/11/2009

    Re: [Resolvido]err.Number = 2501

    Mensagem  Alexandre Neves em 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
    avatar
    barroso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 17/08/2017

    Re: [Resolvido]err.Number = 2501

    Mensagem  barroso em 10/2/2018, 21:52

    Resolvido obrigado alexandre.

      Data/hora atual: 18/10/2018, 13:04