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]codigo vba

    avatar
    joaquimboroma
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 98
    Registrado : 04/06/2014

    [Resolvido]codigo vba Empty [Resolvido]codigo vba

    Mensagem  joaquimboroma 17/11/2014, 08:23

    Pessoal
    Eu pretend importer dados duma tabela duma base de dados para outra.

    DoCmd.RunSQL "INSERT INTO Tlinhas SELECT * FROM Tlinhas IN '" & Me!Destino & "'"

    Quero buscar tudo que tenho na tabela TLINHAS da BD no caminho Me!destino para a tabela TLINHAS da BD actual.
    Nesta tabela tenho campos de TEXTO E ATTACHMENT (imagem)

    Quando executo a instrucao recebo o erro RUN-TIME 3828 cannot reference table with multivalue using IN clause.

    Peço ajuda


    Última edição por joaquimboroma em 24/2/2015, 13:25, editado 1 vez(es)
    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]codigo vba Empty Re: [Resolvido]codigo vba

    Mensagem  Avelino Sampaio 17/11/2014, 09:25

    Olá!

    Veja este meu artigo:

    http://www.usandoaccess.com.br/tutoriais/transferir-dados-entre-tabelas-campos-tipo-anexo-e-multiplos-valores.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    joaquimboroma
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 98
    Registrado : 04/06/2014

    [Resolvido]codigo vba Empty Re: [Resolvido]codigo vba

    Mensagem  joaquimboroma 17/11/2014, 13:59

    Ok, visitei o link
    Mas como o meu objective é receber dados de uma tabela Externa, fiz algumas alteracoes ao codigo.

    Veja


    Private Sub Comando0_Click()
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim rsfilho As DAO.Recordset2
    Dim rsfilho2 As DAO.Recordset2
    '---------------
    Dim db As DAO.Database
    Dim wk As DAO.Workspace
    '---------------
    On Error Resume Next
    'CurrentDb.Execute "DELETE * FROM tblCampoAnexoArquivo;"

    '-------------

    Set db = OpenDatabase("c:\TransAnexo\TransAnexoBE.accdb") 'forms!frmTesteCopiaRegistro!ORIGEM")
    Set rs = db.OpenRecordset("tblCampoAnexo")
    '-------------
    'Set rs = CurrentDb.OpenRecordset("tblCampoAnexo")
    Set rs2 = CurrentDb.OpenRecordset("tblCampoAnexoArquivo")

    NAO RESULTOU, AJUDE
    avatar
    joaquimboroma
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 98
    Registrado : 04/06/2014

    [Resolvido]codigo vba Empty Re: [Resolvido]codigo vba

    Mensagem  joaquimboroma 18/11/2014, 07:19


    Oi

    Depois de rever o meu código vi que a path estava errada, depois funcionou.
    Agora, se a minha tabela tem 2 campos de anexo(imagens), em que linha altero?

    Fiz tetativas e nao tive saida disso.

    Thanks
    avatar
    joaquimboroma
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 98
    Registrado : 04/06/2014

    [Resolvido]codigo vba Empty importar tabela com 2 anexos

    Mensagem  joaquimboroma 7/12/2014, 06:28

    Oi

    Eu ainda estou tentando fazer alteracoes na instrucao para que seja possivel importar dados da tabela que tem mais de 1 campo de tipo attachment

    Conteúdo patrocinado


    [Resolvido]codigo vba Empty Re: [Resolvido]codigo vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:47