Início![[Resolvido]Guardar (criar) em formato Accde Empty](https://2img.net/i/empty.gif)
Assis 8/11/2021, 12:17Boa tarde Amigos
Esta é a única maneira de o fazer ?
Não tem como o fazer via VBA ?
Obrigado
![[Resolvido]Guardar (criar) em formato Accde Sem_t233](https://i.servimg.com/u/f56/19/62/62/37/sem_t233.png)
Esta é a única maneira de o fazer ?
Não tem como o fazer via VBA ?
Obrigado
![[Resolvido]Guardar (criar) em formato Accde Sem_t233](https://servimg.com/r/5619626237/sem_t233.png)
3 participantes
[Resolvido]Guardar (criar) em formato Accde
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7919
Registrado : 15/03/2013
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
Bom dia Teixeira
Seria possível fazer as linhas que tem a sete + ou - como está na imagem.
Mas tenho dúvidas quanto a linha para dar ACCDE.
Obrigado
![[Resolvido]Guardar (criar) em formato Accde Sem_t234](https://i.servimg.com/u/f56/19/62/62/37/sem_t234.png)
Seria possível fazer as linhas que tem a sete + ou - como está na imagem.
Mas tenho dúvidas quanto a linha para dar ACCDE.
Obrigado
![[Resolvido]Guardar (criar) em formato Accde Sem_t234](https://servimg.com/r/5619626237/sem_t234.png)
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5077
Registrado : 20/04/2011
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
BoasSilvio
No click de um botão de comando.
Dá este erro
![[Resolvido]Guardar (criar) em formato Accde Sem_t235](https://i.servimg.com/u/f56/19/62/62/37/sem_t235.png)
No click de um botão de comando.
Dá este erro
![[Resolvido]Guardar (criar) em formato Accde Sem_t235](https://servimg.com/r/5619626237/sem_t235.png)
.................................................................................
*** Só sei que nada sei ***
Marlo Sandrei gosta desta mensagem
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5077
Registrado : 20/04/2011
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
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 : 5077
Registrado : 20/04/2011
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 : 7919
Registrado : 15/03/2013
Conteúdo patrocinado
|
|
|