在 Access 中可以通过 VBA 代码自动对数据库进行压缩和修复来解决数据库过大的问题。

以下是一段简单的 VBA 代码示例：

Public Function CompactAndRepairDB()
    ' 获取当前数据库的文件名
    Dim currentDbPath As String
    currentDbPath = CurrentDb().Name
    
    ' 复制数据库文件到一个临时文件中进行压缩和修复
    Dim tempDbPath As String
    tempDbPath = Left(currentDbPath, InStrRev(currentDbPath, "\")) & "temp.accdb"
    FileCopy currentDbPath, tempDbPath
    
    ' 关闭并删除原数据库文件
    Application.Quit
    Kill currentDbPath
    
    ' 重命名临时文件为原数据库文件名
    Name tempDbPath As currentDbPath
    
    ' 打开数据库并执行压缩和修复操作
    Shell "msaccess.exe /compact " & currentDbPath, vbNormalFocus
    
    ' 重新打开数据库
    Application.FollowHyperlink currentDbPath
End Function

将以上代码复制到 Access 的 VBA 编辑器中，并在需要压缩和修复数据库时执行 CompactAndRepairDB 函数即可。需要注意的是，该代码中通过关闭和删除原数据库文件的操作来确保压缩和修复后的文件大小与原文件大小相同。如有需要，请在代码中进行修改。