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 registo de uma tabela e acrescentar numa otra em banco de dados dividido

    avatar
    ACoelho
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ACoelho 3/4/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 5/4/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
    avatar
    ACoelho
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

    Mensagem  ACoelho 8/4/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?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 8/4/2016, 23:36

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

    Abraço

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 02:22