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


    [Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados.

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    [Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados. Empty [Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados.

    Mensagem  biligo 28/9/2015, 07:53

    Boas pessoal,
    Esse é um assunto que ainda me parece grego, vejo, leio mas não entendo.

    Estou com um erro: "3048" - Não é possível abrir mais bancos de dados.

    Ele é gerado pelo seguinte fato:

    Tenho um btnSeq, antes de encerrar eu o chamo novamente: Call btnSeq_Click.

    Mas após adicionar aproximadamente 250 linhas na tabela me é gerado o erro, utilizo o seguinte para adicionar informações nas tabelas:

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb '------------------------------------Linha do erro 76
    Set rst = dbs.OpenRecordset("tblAlpha")

    rst.AddNew
    .....

    Gostaria de tratar este erro da seguinte maneira,
    Não aparecer a mensagem e prosseguir até o evento do meu botão ser concluído.
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    [Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados. Empty Re: [Resolvido]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados.

    Mensagem  biligo 28/9/2015, 18:33

    Boas,
    Bom tive de alterar algumas coisas e adicionei o tratamento de erro do mestre J Paulo:

    Dim Msg As String
    On Error GoTo 1

    Codigo

    Exit_1:
       DoCmd.Hourglass False
       DoCmd.Echo True
       Exit Sub

    1 a:
       DoCmd.Hourglass False
       DoCmd.Echo True
       Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
           & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
           & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
       MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
       Resume Exit_1

    Também alterei a forma em que eu colocava os dados no formulário para:
    CurrentDb.Execute "INSERT INTO tblTodasCombinacoes(A, B, C, D) Values(" & A& "," & B& "," & C& "," & D& ")"

    Com cumprimentos para o amigo criquio.
    Bom por hora não me é mais gerado o erro mas ainda em progresso de conclusão.

    Grato a todos.

      Data/hora atual: 29/3/2024, 05:22