MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Guardar (criar) em formato Accde

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Guardar (criar) em formato Accde Empty [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Assis 8/11/2021, 12:17

    Boa 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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Alvaro Teixeira 8/11/2021, 12:48

    Boa tarde Assis,

    O seu tópico foi dividido (pois estava no tópico do 12 Aniversário  Very Happy ).
    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Assis 10/11/2021, 12:01

    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


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4939
    Registrado : 20/04/2011

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Silvio 10/11/2021, 12:50

    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Assis 10/11/2021, 13:25

    BoasSilvio

    No click de um botão de comando.

    Dá este erro

    [Resolvido]Guardar (criar) em formato Accde Sem_t235


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4939
    Registrado : 20/04/2011

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Silvio 10/11/2021, 13:32

    app.AutomationSecurity =1

    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
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Assis 10/11/2021, 14:29

    Silvio

    Vou pedir desculpa desde já ao Administrador, pois vou furar quebrar as regras Embarassed

                  SUCESSO

    Obrigado

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4939
    Registrado : 20/04/2011

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Silvio 10/11/2021, 17:20

    Boas...
    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
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Guardar (criar) em formato Accde Empty Re: [Resolvido]Guardar (criar) em formato Accde

    Mensagem  Alvaro Teixeira 11/11/2021, 23:09

    cheers

      Data/hora atual: 1/10/2022, 16:47