MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar consulta com formato .accdb

    Compartilhe
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    [Resolvido]Exportar consulta com formato .accdb

    Mensagem  gabrielpn06 em 4/8/2017, 14:03

    Bom dia amigos, montei um pequeno sistema e gostaria de saber se tem algum código VBA que me permita exportar uma consulta com o formato de saída .accdb

    Tenho o seguinte código, mas esse só exporta em formato Excel.
    Código:
     Dim strNmArquivo As String
      strNmArquivo = CurrentProject.Path & "\nomearquivo" & ".xlsx"
      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "nomearquivo", strNmArquivo, True

    Podem me ajudar? Desde já agradeço!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Exportar consulta com formato .accdb

    Mensagem  JPaulo em 4/8/2017, 17:52

    Teste por favor;

    Código:
    Public Function CriarNovaBD()
    'By JPaulo @ maximoaccess
       Dim ws As Workspace
       Dim db As Database
       Dim strCaminhoBD As String
       Set ws = DBEngine.Workspaces(0)

       'caminho e nome para o novo banco
       strCaminhoBD = "c:\NovaBD.accdb"

       'se o banco existir, deleta-o
       If Dir(strCaminhoBD) <> "" Then Kill strCaminhoBD

       'cria um novo
       Set db = ws.CreateDatabase(strCaminhoBD, dbLangGeneral)

       'exporta a sua consulta
       DoCmd.TransferDatabase acExport, "Microsoft Access", strCaminhoBD, acQuery, "SuaConsulta", "SuaConsulta", False

       db.Close
       Set db = Nothing
    End Function


    Última edição por JPaulo em 4/8/2017, 19:09, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    Re: [Resolvido]Exportar consulta com formato .accdb

    Mensagem  gabrielpn06 em 4/8/2017, 18:41

    Boa tarde meste, agradeço pela ajuda.

    O código me gerou o seguinte erro: Erro em tempo de execução inválido '3001': Argumento Inválido.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Exportar consulta com formato .accdb

    Mensagem  JPaulo em 4/8/2017, 19:09

    Corrigido acima, teste de novo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    Re: [Resolvido]Exportar consulta com formato .accdb

    Mensagem  gabrielpn06 em 4/8/2017, 20:14

    Muito obrigado pela a ajuda mestre!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10232
    Registrado : 04/11/2009

    Re: [Resolvido]Exportar consulta com formato .accdb

    Mensagem  JPaulo em 5/8/2017, 09:40

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 17/11/2018, 03:05