3 participantes
[Resolvido]Guardar (criar) em formato Accde
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº1
[Resolvido]Guardar (criar) em formato Accde
.................................................................................
*** Só sei que nada sei ***
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº2
Re: [Resolvido]Guardar (criar) em formato Accde
Boa tarde Assis,
O seu tópico foi dividido (pois estava no tópico do 12 Aniversário ).
Relativamente ao que solicita pode ser efetuado assim:
Para que quiser saber mais sobre funções nativas do MsAccess não documentados, pode ver aqui:
everythingaccess.com/tutorials.asp?ID=Undocumented-SysCmd-Functions
Abraço
O seu tópico foi dividido (pois estava no tópico do 12 Aniversário ).
Relativamente ao que solicita pode ser efetuado assim:
- Código:
Dim strDBFile As String
Dim strDEFile As String
Dim objACC As Access.Application
strDBFile = "C:\DBFile.accdb"
strDEFile = "C:\DBFile.accde"
Set objACC = New Access.Application
objACC.SysCmd 603, strDBFile , strDEFile
objACC.Quit acQuitSaveNone
Set objACC = Nothing
Para que quiser saber mais sobre funções nativas do MsAccess não documentados, pode ver aqui:
everythingaccess.com/tutorials.asp?ID=Undocumented-SysCmd-Functions
Abraço
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº3
Re: [Resolvido]Guardar (criar) em formato Accde
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº4
Re: [Resolvido]Guardar (criar) em formato Accde
boas....
- Código:
Option Compare Database
Option Explicit
Function Create_MDE()
Dim tmpDB_Full_Name As String
Dim tmpDB_Name As String
Dim tmpDB_Backup_Full_Name As String
Dim tmpCopy_File As Variant
Dim tmpDirectory As String
'tmpDB_Full_Name = CurrentProject.FullName
tmpDB_Full_Name = "C:\data\access\MyDb.accdb"
tmpDirectory = CurrentProject.Path
tmpDB_Name = CurrentProject.Name
tmpDB_Backup_Full_Name = tmpDirectory & "\" & left(tmpDB_Name, Len(tmpDB_Name) - 6) & "-Backup.accdb"
'this removes a file created on the same day
If Dir(tmpDB_Backup_Full_Name) <> "" Then
Kill tmpDB_Backup_Full_Name
End If
'this creates a backup into destination tmpDirectory
If Dir(tmpDB_Backup_Full_Name) = "" Then
Set tmpCopy_File = CreateObject("Scripting.FileSystemObject")
tmpCopy_File.CopyFile tmpDB_Full_Name, tmpDB_Backup_Full_Name, True
End If
Dim app As New Access.Application
app.AutomationSecurity = msoAutomationSecurityLow
app.SysCmd 603, tmpDB_Backup_Full_Name, tmpDirectory & "\" & left(tmpDB_Name, Len(tmpDB_Name) - 9) & ".accde"
MsgBox ("Compile Complete!")
End Function
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº5
Re: [Resolvido]Guardar (criar) em formato Accde
.................................................................................
*** Só sei que nada sei ***
Marlo Sandrei gosta desta mensagem
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº6
Re: [Resolvido]Guardar (criar) em formato Accde
app.AutomationSecurity =1
referencia de pesquisa....
stackoverflow.com/questions/34214262/access-2007-make-accde-from-vba-syscmd-603
referencia de pesquisa....
stackoverflow.com/questions/34214262/access-2007-make-accde-from-vba-syscmd-603
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº7
Re: [Resolvido]Guardar (criar) em formato Accde
Silvio
Vou pedir desculpa desde já ao Administrador, pois vou furar quebrar as regras
SUCESSO
Obrigado
Obrigado Teixeira
Vou pedir desculpa desde já ao Administrador, pois vou furar quebrar as regras
SUCESSO
Obrigado
Obrigado Teixeira
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
- Mensagem nº8
Re: [Resolvido]Guardar (criar) em formato Accde
Boas...
Valeu Assis.
Abraços.
Valeu Assis.
Abraços.
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
- Mensagem nº9