MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar consulta com formato .accdb

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty [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!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Instruções SQL como utilizar...
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty 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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Instruções SQL como utilizar...
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty Re: [Resolvido]Exportar consulta com formato .accdb

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

    Muito obrigado pela a ajuda mestre!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Exportar  consulta com formato .accdb Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar  consulta com formato .accdb Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 24/10/2020, 10:35