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

    Exportar para CSV

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 05/03/2017

    Exportar para CSV Empty Exportar para CSV

    Mensagem  fazerbem 22/4/2022, 12:31

    Olá, desculpe se não consegui achar um tópico referente.

    Tenho uma tabela X que contas 
    Código 
    Produto 
    valor 

    Gostaria de criar um botão que ao ser acionado em um determinado Formulário , ele salvasse os dados da tabela X num arquivo Excel.CSV. como o nome Produtos.CSV na área de trabalho.

    Poderiam me passar um comando VBA para isso ?

    Obrigado
    avatar
    Gabriel_rs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/01/2018

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  Gabriel_rs 22/4/2022, 17:46

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 05/03/2017

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  fazerbem 22/4/2022, 19:16

    Eu ja havia visto este ai, perceba que nao é possivel baixar o exemplo, disponibilizado, por isso pedi aqui a ajuda.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  ahteixeira 22/4/2022, 19:49

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 05/03/2017

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  fazerbem 22/4/2022, 20:01

    Eu entendi sim o que o amigo quis dizer acima, apenas disse tb que os links aos quais se relaciona nao estao mais disponiveis.dai tentei assim abaixo e da erro'

    Private Sub Comando199_Click()
    DoCmd.TransferText transfertype:=acExportDelim, _
    specificationname:="Tbl_CSV Export Specification", _
    TableName:="Tbl_CSV", _
    fileName:="C:\Documents and Settings\Tabela_CSV.csv", _
    hasfieldnames:=True
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  ahteixeira 22/4/2022, 20:15

    Olá Andre Luiz,

    "..dá erro" é muito vago, mas aposto no caminho, mas também pode ser nas especificacoes.
    Veja os exemplos que indiquei, pode resolver na mesma, como diz o nosso grande JPaulo, "existe muitas formas de fazer Nestum"

    Abraço
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 05/03/2017

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  fazerbem 22/4/2022, 20:22

    Parece que este aqui deu certo vou adaptar ao meu sistema e volto aqui assim que possivel dar o pk

    Obrigado amigao
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 05/03/2017

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  fazerbem 22/4/2022, 22:27

    Deu certo sim, grato

    Porem aproveitando este topico, como eu faria para pegar determinados campos de uma tabela A e copiar para uma Tabela B sendo o inicio da tabela B a linha 2 em diante, pois a linha 1 tera sempre seus campos ja preenchidos , exemplo:

    Tabela A
    1 Ana 35.00 30.00 Cama Cobertor
    2 Carlos 25.00 22.00 Sofa Amarelo

    Os campos que serao lancados na Tabela B serao apenas : os 4 primeiros de cada linha

    Tabela B
    Identificador Nome Valor Oferta
    1 Ana 35.00 30.00
    2 Carlos 25.00 22.00
    avatar
    Gabriel_rs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/01/2018

    Exportar para CSV Empty Re: Exportar para CSV

    Mensagem  Gabriel_rs 27/4/2022, 21:21

    Olá caro amigo.

    Alguns tópicos aborda exatamente sua dúvida.

    https://www.maximoaccess.com/t6799-resolvidoinsert-entre-duas-tabelas

    Para simplificar pode usar:

    CurrentDb.Execute "INSERT INTO Tabela_B (Identificador, Nome, Valor, Oferta)" _
    & " SELECT Identificador, Nome, Valor, Oferta" _
    & " From Tabela_A"

    ** Estou considerando que os nomes das tabelas são iguais.

      Data/hora atual: 18/5/2022, 19:23