Olá a todos, poderia me dizer como acrescentar no meu código para fechar no bd access 2003, que quando fechar ele compacte e repare toda a vez, automaticamente.
Uso esse código em um botão para fechar:
Private Sub Rótulo138_Click()
On Error GoTo Err_Comando15_Click
DoCmd.Quit
Exit_Comando15_Click:
Exit Sub
Err_Comando15_Click:
MsgBox Err.Description
Resume Exit_Comando15_Click
End Sub
Obrigada
Uso esse código em um botão para fechar:
Private Sub Rótulo138_Click()
On Error GoTo Err_Comando15_Click
DoCmd.Quit
Exit_Comando15_Click:
Exit Sub
Err_Comando15_Click:
MsgBox Err.Description
Resume Exit_Comando15_Click
End Sub
Obrigada