[Resolvido]Acrescentar dados

Tenho duas Bases dados para controlar inquéritos.

Uma fica na Sede e a outra nas Sucursais.
Na sede distribuímos inquéritos pelas sucursais e passado um tempo eles enviam os registos atualizados.
Eu pretendo arranjar uma maneira de que quando as sucursais enviarem o ficheiro para atualizar, eu consiga atualizar os registos que já tenho.

Grato.

Ficheiro
https://cpxthb.s.cld.pt

Ola;

Pergunta:
Que tipo de ficheiro é que as sucursais enviam ?

Antonio

Entendi que envia e depois recebe os dados das sucursais, portanto,
são mais de uma.

Precisará enviar os dados para cada sucursal.
As sucursais enviarão para a sede.

Estou achando muito trabalhoso.

Já pensou em colocar a base de dados num servidor online?

[ ]'s

JPaulo,
Eu primeiro faço na bd da sede e depois exporto para o ficheiro das sucursais.
As sucursais têm um bd igual à da sede e eu pretendo que eles depois de fazerem as alterações/actualizações, enviem esse ficheiro (Sucursal) novamente e eu era só atualizar para a minha.

Noobezinho
Acredita se eu tivesse essa possibilidade, não tinha esta dor de cabeça.

Estamos a falar apenas da tabela "T_Inq" das sucursais e da tabela "T_Inquéritos" da Sede ?

Que nome terá os BD`s das Sucusais que lhe enviam ?

Posso arranjar algo aqui para otimizar o seu trabalho.

Olá JPaulo
Estamos a falar só destas duas tabelas.
Elas são iguais. Eu alterei o nome porque andava a experimentar umas consultas que não deram resultado.

O nome pode ser registos.

Cumps

OK
Amanhã é feriado aqui em Portugal, na Quarta-feira posto aqui um código que apenas você terá de pressionar um botao e fará todo o trabalho sozinho.

Ola;

Para poder trabalhar em cima do seu banco, tenho algumas duvidas;

Necessito dos nomes corretos e dados;

Perguntas;

1 - Os bancos que vêm das Sucursais têm o nome de Pedidos ?
2 - O banco da Sede tem o nome de Registo Sede?
3 - Sendo as tabelas iguais, a tabela da Sede estará vazia quando receber o banco da Sucursal ?
4 - Envia o banco para as Sucursais, com dados na tabela ?
5 - Quando recebe o banco da Sucursal os dados são para incrementar ou atualizar os da Sede ?

Aguardo...

Olá JPaulo,
obrigado pelo feedback,

Quanto ao que perguntaste

1 - Registos Sucursal
2 - Pode ser só Registo
3 - Não, terá já dados dessa sucursal e de outras. Por isso é que criei um campo com o nome "NU" que é para diferenciar cada sucursal.
4 - Não.
5 - Numa primeira fase é para incrementar, são os dados iniciais dos inquéritos. Esse inquérito fica pendente. Posteriormente a sucursal vai enviar a atualização a registos que já enviou.

Cumps.

Ola;

No banco da Sede com o nome de "Registo", você vai encontrar um form de nome "frmImportaSucursal"

Note, que o banco da Sucursal, tem de ficar junto do Banco da Sede.

Todo o código está comentado para você entender.


Qualquer coisa dê um grito.

Olá JPaulo

Onde está o ficheiro?

Ups, foi mau...
Estou em casa, mas amanhã logo de manhã coloco aqui o link.

Ok.
Obrigado

O dito cujo aqui;

http://dl.dropboxusercontent.com/u/771097/Sede_Sucursal.zip

Não esquecer;

No banco da Sede com o nome de "Registo", você vai encontrar um form de nome "frmImportaSucursal"

Note, que o banco da Sucursal, tem de ficar junto do Banco da Sede.

Todo o código está comentado para você entender.

Olá JPaulo.

Ficou uma maravilha. Muito obrigado.
Se não for abusar muito, o campo que tenho a dizer quantos dias faltam, há maneira de ele actualizar automaticamente e quando colocar uma data em " Concluido em" parar.

Cumps

Ola;

Fico feliz.

Sim tem, diga-me o nome correto do campo dias que faltam e qual o campo de data em que se baseia.

Olá JPaulo


Tenho um modulo:
Public Function Calcularprazo(Prazo As Date) As Integer
If IsDate(Prazo) And Not IsNull(Prazo) Then
Calcularprazo = Int([Prazo] - Date)
Else
Calcularprazo = 0
End If
End Function

No campo "Prazo" escrevi:

Private Sub prazo_AfterUpdate()
If Not IsNull(Me.Prazo) Then
Me.dias.Value = Calcularprazo(Me.Prazo)
Else
Me.dias = 0
End If
End Sub

Vai dar-me a diferença da data para o dia que coloquei no campo "Prazo" no campo "dias".
Mas este campo com o passar dos dias não actualiza.
O que eu pretendo é que o campo "dias" actualize automaticamente e quando preenchermos o campo "Data_conclusão" a macro para.

Cumps

Ola;

A instrução é simples;

Código:

CurrentDb.Execute "update T_Inquéritos set Dias=Calcularprazo(Prazo) where Data_Conclusão IS NULL"

http://dl.dropboxusercontent.com/u/771097/Registo_II.zip

Neste Natal ajude...

E ae ?

Funfou ?

Olá JPaulo.

Peço desculpa pela demora do retorno.
O mês de dezembro é complicado e ainda por cima fim de semana.
Está a funcionar.

Muito obrigado pelo feedback. Foi uma grande ajuda.
Se não aparecer mais questões, umas boas festas.

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...

Olá JPaulo.

O código que desenvolveu dá para passar a ser executado no ficheiro "Registo Sucursal" em vez do ficheiro "Registo"?

Cumps.

Ola;

Penso que sim, é só tentar adaptar.

Olá.

Agradecia, pois andei a tentar inventar e não saiu nada de jeito. Aliás, não saiu nada.

Cumps.

Qual é o código que está a falar ?

O da mensagem Nº 18 ?

Não. É o da mensagem 14.

Será isto ?

http://dl.dropboxusercontent.com/u/771097/RegistosSucursal_OLD.zip

Olá.
O que eu pretendo é estar-mos no ficheiro "Registos Sucursal" e exportar-mos para "Registos".

Cumps

Obrigado pela ajuda.
Resolvido