[Resolvido]subformulario como folha de ponto

Boa noite amigos.

Preciso mais uma vez de vossa sabedoria. Criei um subformulario para lançar horas de funcionarios. No campo data, apos atualizar, o campo dia é preenchido com o dia da semana correspondente. O que esta acontecendo é que quando mudo pra linha do novo registro e insiro a data seguinte, o campo dia desse novo registro tambem é atualizado e os dos demais registros tambem. Onde estou errando? O codigo peguei aqui no forum. Segue:

Código:

[code]Private Sub txtData_AfterUpdate()
Me.txtDia.Value = Me.txtData
End Sub[/code]

Aproveito o ensejo e peço pra me orientarem como faço pra que nesse mesmo subformulario, eu consiga que o campo data seja preenchido automaticamente com o valor do registro anterior + 1 caso possam me ajudar.

Grande abraço!

Ola

Você esta usando campo desacoplado?


Tem como postar uma parte do projeto.

Bom dia escandinavo e amigos, estou em transito e o arquivo que eu mantenho em nuvem esta corrompido, mas vou mandar o arquivo a noite quando chegar e casa. Pois bem, o formulário nao é desvinculado nao, seria esse o motivo das atualizações indesejadas? Vou fazer o teste posteriormente. Sobre a questão da soma do registro atual (data) com o anterior, me lembro de ter visto algo em algum lugar aqui no fórum ou em outro site mas nao consegui localizar desta vez. Alguém saberia me dizer? Abraço e obrigado a todos

Opa, provavelmente você está esquecendo de receber o seu campo "id" junto no subform.

Boa tarde amigos. Segue o bd com para sua analise. Seria o FrmPonto no caso. Agradeço

ola
para adicionar um dia a ultima data

coloque este codigo no evento ao receber foco do campo txtData

Dim UltimaData As Date 'Variavel para receber a ultima data
UltimaData = DLast("Data", "tblPonto") 'busca a ultima data da tabela
Me.txtData = DateAdd("d", 1, UltimaData) 'adiciona 1 dia a mais a ultima data
Me.txtDia.Value = Me.txtData '

para o campo dia que esta desacoplado por isto que ele altera todas vez que atualiza mude sua fonte de controle para dia

Funcionou como um relogio meu amigo. Perfeição. Muito obrigado. Desejo-lhe um grande ano novo e boas festas. Grande abraço.

Valeu pelo retorno, e feliz ano novo.