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
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