MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Compartilhe

    ACoelho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 16/02/2016

    [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ACoelho em Dom 03 Abr 2016, 17:40

    Question Boa noite, pessoal,
    sou novo neste fórum e desde já agradeço a vossa ajuda para o seguinte:
    pretendo copiar um registo completo de um form ativo de uma tabela e gravar numa outra tabela cujos campos são iguais.
    Com o seguinte código funciona na perfeição mas quando divida a aplicação para rodar em rede dá o seguinte erro
    Run time error "3219"
    "Operação inválida"
    Instrução
    Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
    If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "Gestão de Serviço") = vbYes Then
    Set db1 = CurrentDb
    Set rs1 = db1.OpenRecordset("tblObrasprogramacao", dbOpenTable)

    With rs1

    .AddNew
    ![REGIAO_NOB1] = Me.REGIAO_NOB
    ![OBRA_NOB1] = Me.OBRA_NOB
    ![ENCOM_NOB1] = Me.ENCOM_NOB
    ![MORADA1] = Me.MORADA
    ![DATAB_NOB1] = Me.DATAB_NOB
    ![DATAFE_NOB1] = Me.DATAFE_NOB
    ![DESIG_NOB1] = Me.DESIG_NOB
    ![SECHO_NOB1] = Me.SECHO_NOB
    ![ORCAM_NOB1] = Me.ORCAM_NOB
    ![TIPO_OBRA1] = Me.TIPO_OBRA
    ![TEMPO_ESTIM1] = Me.TEMPO_ESTIM

    .Update

    End With

    Obrigado pela vossa ajuda
    ACoelho

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ahteixeira em Ter 05 Abr 2016, 12:26

    Olá António, tente substituir usando apenas uma instrução sql

    Exemplo apenas para um campo:
    DoCmd.RunSQL "INSERT INTO tblObrasprogramacao ( REGIAO_NOB1 ) SELECT '" & REGIAO_NOB & "';"

    Terá que ajustar restantes Campos (isto de responde codigo por telemóvel não é fácil)
    Abraço

    ACoelho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 11
    Registrado : 16/02/2016

    Re: [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ACoelho em Sex 08 Abr 2016, 20:43

    Laughing Funciona direitinho! obrigado
    apenas um senão, a mensagem do MSAccess "optou por acrescentar...." como posso impedir esta mensagem sem ser através da desativação de mensagens de consultas de acção?

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ahteixeira em Sex 08 Abr 2016, 23:36

    Olá, troque:
    DoCmd.RunSql
    Por:
    CurrentDb.Execute

    Abraço

      Data/hora atual: Dom 04 Dez 2016, 12:14