Ler registro de uma tabela e gravar em outra

Bom dia,
Descobri este site e espero receber ajuda e também ajudar dentro das minhas humildes condições.

Tenho uma tabela de funcionários e outra de movimento mensal
Na tabela funcionário é guardado todos os dados padrões e na tabela movimento os dados referente vencimentos e descontos dos meses.

Para gerar este movimento do mês, preciso ler o  registro na tabela de funcionário fazer alguns cálculos e gravar na tabela de movimento e neste momento incluir MÊS/ANO(ex.: DEZ/2014) no campo chave + O CPF.

a única parte que não conheço aqui é

Como ler todos os registros sequencialmente até o fim e neste processo ir criando o movimento e gravando na tabela de movimento.

Eu criei um formulário para a entrada do Mês/Ano e um botão para chamar a Rotina de Processamento.

Já tentei usando Insert mas parece que estou fazendo algo errado, porque embora não apareça erro, os registros não são gravados.

O Ideal seria ler o registro em funcionário, fazer os cálculos e gravar em movimento.
Quando chegar ao final da tabela funcionário, o sistema finalizar.


Fico grato por qualquer ajuda.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

Por favor, corrija o título do seu tópico!

Bom dia;

Eu não estou gritando é o título da mensagem por isso coloquei em Caixa Alta.

Esta no mesmo padrão de sua postagem REGRAS DO FÓRUM que esta em Caixa alta.

Mas se isto é tão importante, vou alterar o título.


Grato,

WandoReiz

Esta tudo bem, mas geralmente os títulos são em Caixa Alta para diferenciar.
Mas pode ficar tranquilo que irei seguir as regras.


Grato,

Bem meu amigo, vamos la!

O que acho que poderia ser feito é usar um loop
pelos registros do mês do funcionário. No loop,
poderá ir dando os inserts na tabela pretendida.

Caso tenha dificuldade em realizar as instruções acima,
disponibilize aqui seu banco que daremos uma olhada.

Bom dia,

Agradeço a atenção dispensada.

Bom, como o arquivo é longo vou por um exemplo aqui.

tabela A
CPF
Nome
DataAdm
Salario
%Adto
........ demais campos
tabela B
MesAno (chave aceita duplicação)
CPF (chave aceita duplicação)
VrAdto (salário * %Adto
....... demais campos


Sou novato nas instruções de manipulação de registro no access, mas não em programação.
Por este motivo o que preciso é do loop para ler o Registro da Tabela A e gravar na Tabela B, assim vou gerar o movimento de pagamento de todos os funcionários cadastrados na Tabela A.

Ficando assim

DEZ/2014 Antônio Adiatamento 1.500,00 ..... demais campos
DEZ/2014 Manuel Adiatamento 1.210,00 ..... ¨ ¨


Eu procurei na ajuda e não encontrei, preciso de ler todos os comandos de tratamento de registro, caso tenha algum tutorial para me indicar seria muito bom.


Mais uma vez, obrigado pela colaboração.



WandoReiz

Poderia ser algo assim:

Código:

dim rs as dao.recordset 'Declaro uma variável do tipo recorset

currentdb.openrecordset("tabelaA") ' Abro conexao ao banco local ou vinculado

do until rs.eof 'percorro os registros até o último na tabelaA
      currentdb.execute "ISERT INTO tabelaB (MesAno, CPF, VrAdt) Values(rs!DataAdm, rs!CPF, rs!%Adto);" 'Insiro as informações necessárias
      rs.movienext 'Movo para o próximo recodset
loop 'Continuo o laço

rs.close 'Saio do rs
set rs =nothing 'apagao o rs da memória

Qualquer dúvida pode estamos a disposição

Bom dia,

Sim, exatamente o que eu preciso, ter controle dos registros.

Agora a minha dúvida é como localizar a existência ou não de um registro, suponhamos que já foi processado o banco de funcionário e hoje é dia 10/Dezembro, entrou um funcionário, terei que gerar apenas para ele, neste caso tenho que pedir para gerar novamente, mas não quero apagar o movimento inteiro e sim fazer uma verificação e não achando incluir o movimento para o mesmo ou o que seria mais lógico, escolher o funcionário e gerar individualmente.
Após gerar este movimento irei permitir a entrada de informações complementares que não estão no cadastro de funcionário e que muda mensalmente.
No final além dos dados dos folha de pagamento, será incluído vales e outros descontos como farmácia etc, gerando o valor que o funcionário receberá.

Resumindo, como saber se existe ou não o lançamento e baseado nisso tomar outra decisão
algo assim
se CPF = cpffun e MesAno = MesAnofun faça isso
msg = ' Movimento já Incluído '

senão
inclua
fimse

Espero não ter complicado.


Muito obrigado

Tente compactar seu banco, mande como anexo. Fica mais tranquilo para tentarmos algo...

Bom dia Marcelo David,

Tenho informações confidenciais por se tratar de salários, etc.
Peço-lhe desculpa por não atender sua solicitação.

Minha dificuldade esta na manipulação do registro dentro do banco em access mesmo.

Por exemplo o comando rs.movienext, que vai para o próximo registro eu não conhecia, ou seja deve ter um que para pesquisa.

Mais uma vez, sou grato pela ajuda.

WandoReiz

Wando

Você pode  separar a(s) tabela(s) e  o(s) form(s) em questão.

Registros sigilosos?

Passe esses objetos que mencionei para um novo bd e
povoe a tabela com registros fictícios.
Uns 5 registro , creio que seja o suficiente para testes.

Viu como não existe impecílio?

Ajude a nos te ajudar.

[]'s

Noob

Bom dia Noobezinho,

Vou postar o Bd

O sistema é muito simples;

1 - Tabela de funcionários
2 -  Tabela de movimento mensal dos pagamentos
3 - Tabela comissão, usada para guardar o movimento de vendas e a base para comissão

Estando os processos funcionando, vou gerar alguns relatórios baseados nestes dados;

Listagem dos funcionários que recebem por transferência bancária
Listagem dos que recebe em espécie
Listagem complementar da folha oficial, onde consta os descontos feito além da folha, como farmácia, vales, etcs

É um sistema simples para agilizar o fechamento da folha de pagamento, sendo que o holetith vem do escritório e cabe ao departamento pessoal apurar estes valores fora da folha.

Em anexo o bd


Grato

WandoReiz

Wando

Não veio o anexo.

O fórum so aceita arquivo.zip

Se tem o winrar, veja como zipar com ele ali embaixo, na minha assinatura.


Noob

Pronto aqui esta.