Olá Reginaldo!

> REGINALDO M SANTOS escreveu:
> desculpe estar intrometendo, 

Sem problemas amigo.

> e estou com um problema, será que poderia me ajudar???

Vamos lá...

> tenho um banco de dados, que tem um campo de data (dd/mmm/aa)
> 
> estou tentado utilizar o valor padrão para que a data siga determinada
> regra>>>
> 
> ----  a data deverá ser sempre a da proxima 2ª feira, isto é, se hoje
> é 26sep00 a data deverá ser 02/oct/00, e assim por diante
> 
> sempre sendo uma segunda feira que esta por vir/próxima
> já tentei function e náo consegui...
> 
> será que poderia me ajudar....

A programação a cada dia me fascina e a cada dia me convenço mais de que
compartilhar o que se sabe é algo também fascinante. Veja o caso desta
função que você deseja, de imediato pensei: um grande desafio e pode
levar muito tempo. Mas como sou um verdadeiro colecionador de jóias eu
tinha aqui comigo um diamante produzido pela Microsoft e lapidado pelo 
Tomé da Forum. :)

Lembrei agora do Newton: "Se enxerguei longe era porque estava sobre
ombros de gigantes."

Uma função que retorna o último dia da semana e adaptei. Veja detalhes:

No formulário, modo estrutura, você abre a caixa de propriedades e
simplesmente digita em Valor padrão do seu Campo Data:

=ProxSegunda(Data())

Crie ou abra um módulo existente e cole a função:

Function ProxSegunda(D As Variant, Optional FirstWeekday As Integer) As
Variant
'Função oferecida pela Microsoft como um dos seus Samples e
'Comentários traduzidos pelo Tomé da Forum Access
'Adaptada por Ribamar FS ribamar@dnocs.gov.br para exibir ao invés do
'último dia da semana, mas sempre o dia da próxima segunda feira.
'
' Retorna a data que representa o último dia da semana atual.
'
' Argumentos:
' D            = Data
' FirstWeekday = (argumento opcional) Inteiro (Integer) que representa o
primeiro
' dia da semana (por exemplo, 1=Dom..7=Sab).
'
If IsMissing(FirstWeekday) Then 'Domingo é assimido como prineiro dia da
semana se o argumento
                                'opcional não é fornecido.
  ProxSegunda = D - WeekDay(D) + 9
Else
  ProxSegunda = D - WeekDay(D, FirstWeekday) + 9
End If
End Function

Experimente. Aqui funcionou redondinho.

------------------------------
Cantinho dos Amantes do Access
    www.ribafs.hpg.com.br