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

    err.Number = 2501

    Compartilhe

    barroso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: err.Number = 2501

    Mensagem  barroso em Dom 27 Ago 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 : 6505
    Registrado : 05/11/2009

    Re: err.Number = 2501

    Mensagem  Alexandre Neves em Seg 28 Ago 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

    barroso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: err.Number = 2501

    Mensagem  barroso em Ter 29 Ago 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!

    barroso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: err.Number = 2501

    Mensagem  barroso em Qua 30 Ago 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 : 6505
    Registrado : 05/11/2009

    Re: err.Number = 2501

    Mensagem  Alexandre Neves em Qua 30 Ago 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

    barroso
    Novato
    Novato

    Respeito às Regras 100%

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

    err.Number = 2501

    Mensagem  barroso em Qua 30 Ago 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 : 6505
    Registrado : 05/11/2009

    Re: err.Number = 2501

    Mensagem  Alexandre Neves em Qua 30 Ago 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

    barroso
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: err.Number = 2501

    Mensagem  barroso em Qua 30 Ago 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 : 6505
    Registrado : 05/11/2009

    Re: err.Number = 2501

    Mensagem  Alexandre Neves em Qui 31 Ago 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

      Data/hora atual: Ter 21 Nov 2017, 10:14