✔ Programação GLOBAL®: VBA Access - Erro 3052

VBA Access - Erro 3052 - How to Fix Error 3052

O número de bloqueios de compartilhamento de arquivos foi excedido.

Hello folks!

Vez por outra somos surpreendido por alguns erros nas nossas aplicações MS Access, os quais não fazemos ideia do que sejam (vá se acostumando).

Um dos erros que nos surpreendem, pegando-nos desprevenidos, é o erro 3052 ele aparece quando o número de bloqueios de compartilhamento de arquivos foi excedido, o valor padrão é 9.500. Sem nos apercebermos disso, excedemos o número máximo de bloqueios permitidos em um recordset, este limite é especificado pela definição MaxLocksPerFile no Registro do sistema.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet
4.0\MaxLocksPerFile

Como eliminá-lo? Aumente a entrada de registro MaxLocksPerFile, o valor padrão pode ser alterado por meio da edição do Registro com Regedit.exe ou com o método SetOption.

Application.DBEngine.SetOption dbMaxLocksPerFile, <NumLocks>

Altere o <NumLocks> para 1000000 ou algo maior do que 10000 (um milhão poupará você de aplicar esse truque mais vezes) e o erro irá embora. Certifique-se de colocar a linha acima na sua subroutina, e evoque-a a partir do seu FORM principal.

  15.01.2025

Aqui está um exemplo de código para lidar com o Erro 3052 no VBA, com melhorias e comentários explicativos. O erro 3052 no Access geralmente ocorre quando o número máximo de objetos no banco de dados é excedido, ou seja, quando se atinge o limite de objetos no banco de dados (como tabelas, consultas, formulários, etc.).

Option Explicit

' Função para corrigir o Erro 3052 - Limite de objetos do banco de dados excedido
Sub FixError3052()
On Error GoTo Err_Handler

' Tentativa de acessar ou criar um novo objeto (por exemplo, uma tabela ou consulta)
Dim db As DAO.Database
Dim obj As DAO.TableDef
Set db = CurrentDb()

' Exemplo de tentativa de criação de uma nova tabela (alterar conforme necessidade)
Set obj = db.CreateTableDef("NewTable")

' Código para realizar operações com o objeto (como adicionar campos, etc.)
' Exemplo:
' obj.Fields.Append obj.CreateField("FieldName", dbText)

' Caso a criação da tabela seja bem-sucedida, a execução segue normalmente
db.TableDefs.Append obj

' Limpeza e liberação de recursos
Set obj = Nothing
Set db = Nothing

' Mensagem informando que a operação foi bem-sucedida
MsgBox "Novo objeto criado com sucesso!", vbInformation

Exit Sub

Err_Handler:
' Se o erro 3052 ocorrer, exibe uma mensagem personalizada explicando o erro
If Err.Number = 3052 Then
MsgBox "Erro 3052: O limite de objetos no banco de dados foi atingido." & vbCrLf & _
"Por favor, remova objetos desnecessários ou compacte o banco de dados para liberar espaço.", _
vbCritical, "Erro de Limite de Objetos"
Else
' Exibe uma mensagem para outros erros
MsgBox "Erro não esperado: " & Err.Description, vbCritical, "Erro"
End If

' Limpeza e liberação de recursos em caso de erro
Set obj = Nothing
Set db = Nothing
End Sub