[Resolvido]soma de dias com a data inicial

boas pessoal
mais uma vez recorro aos vossos conhecimentos para o seguinte:
estou criando uma pequena BD para registo de processos disciplinares e no formulário preciso do seguinte:
tenho 3 caixas de texto:
data inicial
nº de dias
data final
precisava de uma formula de ao escolher data inicial e escrever o nº de dias
automaticamente fizesse as contas e descarrega-se na data final a data precisa já com as contas feitas
espero que entendam o que preciso
aguardo apoio

mirsofy

No AfterUpdate do campo de numero de dias inclua:

Código:


if not isnull(me!DataInicial) and not isnull(me!NumeroDeDias) then
   me!DataFinal = dateadd("d", me!NumeroDeDias, me!dataInicial)
end if


No AfterUpdate do campo da data incial chame o método AfterUpdate do campo do numero de dias:

Código:


NumeroDeDias_AfterUpdate()


boas amigo
grato pelo apoio
fizcomo mandas-te e não deu

""
Private Sub NumeroDeDias_AfterUpdate()
End Sub


Private Sub NºDias_AfterUpdate()
If Not IsNull(Me!DataInicial) And Not IsNull(Me!NumeroDeDias) Then
Me!DataFinal = DateAdd("d", Me!NumeroDeDias, Me!DataInicial)
End If
End Sub
""

estarei fazendo mal??


mirsofy

Número de dias não é uma data. Então não pode entrar na função.

tente:

Private Sub NºDias_AfterUpdate()
If Not IsNull(Me!DataInicial) And Not IsNull(Me!NumeroDeDias) Then
Me!DataFinal = Me!DataInicial + Me!NumeroDeDias
End If
End Sub

Sucesso!

http://dl.dropbox.com/u/58104242/registo%20de%20processos.zip

se puderem verificar agradecia

mirsofy

http://dl.dropbox.com/u/58104242/registo%20de%20processos.zip

desculpem enganei-me
este é o correto

aguardo apoio

mirsofy

Boas Manoel.... Testou a dica do Mestre Avelino ao menos?

Cumprimentos.

Atente a todas as dicas dos usuários que estão a lhe ajudar.

A dica do Mestre avelino é totalmente funcional.

Evite nome de campos assim: N°, Prefira assim: txtNumDias


Eis:

Private Sub txtNumDias_AfterUpdate()
If Not IsNull(Me!DataInicial) And Not IsNull(Me!txtNumDias) Then
Me!Terminus = Me!DataInicial + Me!txtNumDias
End If
End Sub


Observe que no código renoomei a caixa texto.


Cumprimentos.

bons dias
mais uma que aprendi hoje ao verificar os erros que cometo na estrutura.
aproveito para agradecer a paciência em me ajudar.

topico encerrado e resolvido

mirsofy

O Fórum agradece o retorno.

reabro o topico para o seguinte:
quando clico no botão imprimir abre um relatório para imprimir
Tenho a necessidade de imprimir 8 folhas
sem abrir as propriedades da impressora e escolher as quantidades.
ou melhor, ficar predefenido.
como devo fazer para tal

mirsofy

Boas Manoel, atente às regras do Fórum.

Nova Dúvida....Novo Tópico.

Este tópico já está encerrado, e o assunto solucionado.

Ajude-nos a manter os tópicos por assunto.

Cumprimentos.