'Num modulo
'tamanho do banco
Public Function DBSize() As Long
Dim FFile As Integer
FFile = FreeFile
Open (CurrentDb.Name) For Input As #FFile
DBSize = LOF(FFile)
Close #FFile
End Function
'No formulario principal, insira uma caixa de texto e dê o nome de Me.txtSize
'No evento ao abrir;
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
'destiva o compactar ao abrir
Application.SetOption "Auto compact", False
'insere na texbox o tamanho do banco
Me.txtSize = DBSize() / 1024
'cheka se o banco está maior ou igual a 100 Megas definidos
If Me.txtSize.Value >= 100000 Then
'se estiver nos 100 megas, coloca o compactar ao fechar automaticamente e encerra o
banco
MsgBox "O Banco atingiu os 100 Megas, " & vbNewLine & "vai Compactar
Automaticamente" & vbNewLine & "Aguarde...", vbCritical
Application.SetOption "Auto compact", True
'por segurança salva tudo
Application.Quit acQuitSaveAll
Else
Exit Sub
End If
End Sub
Compactar Banco só se atingir os 100 Megas
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
- Mensagem nº1
Compactar Banco só se atingir os 100 Megas
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
» [Resolvido]Como Converte MDE uma BD grande 42 Megas
» [Resolvido]Mensagem ao atingir o valor estabelecido em um parâmetro
» [Resolvido.]Numeração de página a partir de um número informado
» [Resolvido]Mudar o foco do campo após atingir limite de caracteres
» [Resolvido]Mudar o codigo principal apos atingir o limite de itens
» [Resolvido]Mensagem ao atingir o valor estabelecido em um parâmetro
» [Resolvido.]Numeração de página a partir de um número informado
» [Resolvido]Mudar o foco do campo após atingir limite de caracteres
» [Resolvido]Mudar o codigo principal apos atingir o limite de itens
|
|