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]Tratamento de erro: "3048" - Não é possível abrir mais bancos de dados.

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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.
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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: Ter 22 Ago 2017, 23:28