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


2 participantes

    [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA

    avatar
    IgorOV
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 05/05/2014

    [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA Empty [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA

    Mensagem  IgorOV 5/5/2014, 23:25

    Pessoal,

    Imaginem a seguinte situacao, tenho 2 tabelas e em cada uma delas tem 2 ou 3 campos
    quero copiar toda informacao de uma pra outra, até entao eu faço da seguinte forma

    Código:
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("Tabela1")
    Set rs2 = db.OpenRecordset("Tabela2")

    rs1.movefirst

    do until rs1.eof

    rs2.AddNew
    rs2!campo1 = rs1!campo1
    rs2!campo2 = rs2!campo2
    rs2!campo3 = rs2!campo3
    rs2.update

    rs1.movenext

    loop

    Agora o detalhe maior
    imaginem um quarto campo que é um anexo e tem 2 anexos dentro

    como eu faço para copiar esses 2 anexos
    rs2!campo4_anexo = rs1!campo4_anexo  nao funciona

    alguem poderia me dar uma luz?

    Muitissimo obrigado

    Igor
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA Empty Re: [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA

    Mensagem  Avelino Sampaio 6/5/2014, 07:36

    Seja benvindo!

    Veja neste meu artigo:

    Transferir dados entre tabelas com campos dos tipos Anexo e Múltiplos Valores

    Bom estudo!
    avatar
    IgorOV
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 05/05/2014

    [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA Empty Re: [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA

    Mensagem  IgorOV 6/5/2014, 14:25

    Ajudou bastante

    Ta quase tudo 100% aqui
    so preciso tirar mais uma duvida

    Eu trabalho com tabelas temporarias que ao fechar o formulario tudo transferido pro banco oficial e é zerado nas temporarias

    de qq forma percebi o seguinte

    quando eu crio o controle ANEXO no formulario e durante a execucao do sistema o anexo em si nao vai pra dentro da TABELA assim que é clicado no OK
    parece que falta algum evento do tipo "AO PERDER FOCO" alguma coisa assim pra finalizar a insercao do anexo na tabela

    voce sabe me dizer como faria isso ou entao ao inves de buscar nessa tabela temporaria.. que retirasse o arquivo do proprio controle no formulario

    Obrigado,

    Igor

    Conteúdo patrocinado


    [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA Empty Re: [Resolvido]Copiar campo "anexo" entre 2 tabelas usando VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:42