MaximoAccess

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

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 : 13
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4112
    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 : 13
    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4112
    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: Seg 26 Jun 2017, 13:00