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

    Copiar registo e gravar numa outra tabela

    Compartilhe

    ACoelho
    Novato
    Novato

    Respeito às Regras 100%

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

    Copiar registo e gravar numa outra tabela

    Mensagem  ACoelho em Qui 03 Mar 2016, 21:30

    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
    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Copiar registo e gravar numa outra tabela

    Mensagem  LiveBrain em Dom 06 Mar 2016, 09:43

    Opa, vamos ver se eu entendi...
    Quando voce diz "dividir a aplicação" é que criou dois Arquivos Access, um somente com as Tabelas que fica na rede, e outro com o os formulário, consultas, relatórios e macros... esse segundo, fica na máquina dos usuários...

    é isso mesmo?



    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    ACoelho
    Novato
    Novato

    Respeito às Regras 100%

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

    Copiar registo e gravar numa outra tabela

    Mensagem  ACoelho em Dom 06 Mar 2016, 18:34

    É isso mesmo, uma Base de dados Accdb e as tabelas be
    Obrigado

      Data/hora atual: Qui 24 Ago 2017, 11:34