MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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.

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  biligo em Seg 28 Set 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  biligo em Seg 28 Set 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: Sab 03 Dez 2016, 02:24