VBA - Ms Access - Compactando MDB.

[André Luiz Bernardes]

Código VBA:
Private Sub BtnCompact_Click()
' Author: Date: Contact:
' André Bernardes 19/08/2008 13:42 [e-mail]
' Cadastro dos Paths das interfaces.

Dim db As New DAO.DBEngine
Dim nSource As String
Dim nTarget As String
Dim ThisFormName As String

Call DefineNames ' Acerta os nomes dos arquivos.

Let ThisFormName = Me.Name
Let nSource = Me.cxPath0.Value & Me.cxPath1.Value
Let nTarget = Me.cxPath2.Value & Me.cxPath3.Value

Call AssenteAcesso("AC", ThisFormName, "Sys: " & Me.cxPath3.Value)

' Executa a compactação.
db.CompactDatabase nSource, nTarget
End Sub

ANDRÉ BERNARDES
Santos - SP - Brasil

MSN: [e-mail]
SKYPE: inanyplace
TWITTER: inanyplace

My Profile: http://al-bernardes.sites.uol.com.br/
In LinkedIn: http://www.linkedin.com/in/andrebernardes
In Plaxo: http://andrebernardes.myplaxo.com/
In Jobster: http://www.jobster.com/people/andrebernardes

My experiences:
http://andrelbernardes.sites.uol.com.br/MIS.html
http://andrelbernardes.sites.uol.com.br/XLS.html

Acesse meus Feeds:
http://www.google.com/reader/shared/17429357110218427555

Acesse o portfólio:
http://www.slideshare.net/bernardes/informaes-ao-invs-de-dados-pres...

[André Luiz Bernardes]

Todo o material que precisa para aprender está disponível na Internet.

Basta aprender a procurar e pedir dicas aqui e ali.

Sites de verdade:
-------------------------------------
http://forums.microsoft.com/msdn-br/showforum.aspx?forumid=653&...

http://allenbrowne.com/ser-23a.html


http://msdn.microsoft.com/pt-br/office/aa905401(en-us).aspx


ANDRÉ BERNARDES
Santos - SP - Brasil

MSN: [e-mail]
SKYPE: inanyplace
TWITTER: inanyplace

My Profile: http://al-bernardes.sites.uol.com.br/
In LinkedIn: http://www.linkedin.com/in/andrebernardes
In Plaxo: http://andrebernardes.myplaxo.com/
In Jobster: http://www.jobster.com/people/andrebernardes

My experiences:
http://andrelbernardes.sites.uol.com.br/MIS.html
http://andrelbernardes.sites.uol.com.br/XLS.html

Acesse meus Feeds:
http://www.google.com/reader/shared/17429357110218427555

Acesse o portfólio:
http://www.slideshare.net/bernardes/informaes-ao-invs-de-dados-pres...