[Resolvido]Calcular Idade em Access

Tenho a seguinte função no access para calcular a idade de um candidato,
só que meu bd está em servidor de rede e executo o bd no cliente,
desenvolvendo o bd. a seguinte função calculava a idade do candidato
normalmente e corretamente, só que passei o bd para o servidor e fico
desenvolvendo do pc cliente.
Agora que estou manipulando o bd do lado do cliente ele não
calcula mais a idade. o que faço. Podem me ajudar.


Public Function IdadeAnos(valor1 As Date, valor2 As Date) As Long

IdadeAnos = DateDiff("yyyy", valor1, valor2)

If Format(valor1, "mmdd") > Format(valor2, "mmdd") Then

IdadeAnos = IdadeAnos - 1

End If

End Function

Como está essa estrutura?
Back End e Front End?
Tabelas vinculadas?
Sql?

Onde aplica este código?

Saudações

No Módulo do Form

Function CalculaIdade(DataNasc As Variant) As Variant
''Recebe a DataNasc e devolve a Idade em Anos

On Error GoTo Idade_Err

''Evita o erro de data não preenchida
If IsNull(DataNasc) Then
CalculaIdade = ""
Exit Function
End If

''Declarando Variáveis
Dim DataHoje As Variant, DiaHoje As Integer
Dim MesNasc As Integer, DiaNasc As Integer
Dim DifAnos As Integer, MesHoje As Integer

''Isola as partes (dia/mês) das duas datas
DiaHoje = DatePart("d", Now)
MesHoje = DatePart("m", Now)
DiaNasc = DatePart("d", DataNasc)
MesNasc = DatePart("m", DataNasc)

''Calcula a diferença de anos
DifAnos = DateDiff("yyyy", DataNasc, Now)

''Verifica dia/mês de nascimento
If MesHoje < MesNasc Then
DifAnos = DifAnos - 1
ElseIf MesHoje = MesNasc Then
If DiaHoje < DiaNasc Then
DifAnos = DifAnos - 1
End If
Else
End If

''Valor final da função
CalculaIdade = DifAnos

Idade_Fim:
Exit Function

Idade_Err:
MsgBox Err.Description
Resume Idade_Fim

End Function

Tem que ter uma cx para a data de nascimento

uma cx para a idade....na origem do controle...=CalculaIdade([DataNasc])

Outra coisa:

Não escreva em maiúsculas, por favor. Já emendei.

bom dia vieira,

já testei e coloquei a função que está ótima. o que faltou mesmo foi ter colocado na propriedade fornte do controle o nome da função e do componente (txtnascimento). que na sua funçao vem com o nome de origem do controle. está tudo ok.

quanto ao haryson,

o meu banco de dados ainda não está dividido em back-end e front-end e é totalmente em access, só que o bd access está armazenado no servidor com windows server e puxei um atalho para meu pc.

mas vou dividi-lo em back e front e também vou colocar em ribbons, o avelino tem um software pago, aproveitando o ensejo gostaria de saber se vocês conhecem algum montaribbons free que me sugereriam.

adilson

Amigo Adilson, o moderador Vieira lhe alertou sobre escrever tudo em maiúscula. Peço-lhe a gentileza de editar o post acima conforme instruções do supra citado moderador para que possamos dar prosseguimento à questão, ok?

Amigão o mestre Vieira lhe falou acima sobre letras maiúsculas no post, veja as regras de utilização do fórum.
E porfavor edit sua mensagem para minúsculas, pois maíusculas aqui é como se estivesse gritando.

Grato

bom dia a todos,

é o hábito de digitar tudo em maiúsculas. me perdoem estarei vigilante para não tornar a acontecer tal garfe.

atenciosamente,

adilson

Bom dia,

Há alguns dias o Mestre Vieira me passou esta função:

Function CalculaIdade(DataNasc As Variant) As Variant
''Recebe a DataNasc e devolve a Idade em Anos

On Error GoTo Idade_Err

''Evita o erro de data não preenchida
If IsNull(DataNasc) Then
CalculaIdade = ""
Exit Function
End If

''Declarando Variáveis
Dim DataHoje As Variant, DiaHoje As Integer
Dim MesNasc As Integer, DiaNasc As Integer
Dim DifAnos As Integer, MesHoje As Integer

''Isola as partes (dia/mês) das duas datas
DiaHoje = DatePart("d", Now)
MesHoje = DatePart("m", Now)
DiaNasc = DatePart("d", DataNasc)
MesNasc = DatePart("m", DataNasc)

''Calcula a diferença de anos
DifAnos = DateDiff("yyyy", DataNasc, Now)

''Verifica dia/mês de nascimento
If MesHoje < MesNasc Then
DifAnos = DifAnos - 1
ElseIf MesHoje = MesNasc Then
If DiaHoje < DiaNasc Then
DifAnos = DifAnos - 1
End If
Else
End If

''Valor final da função
CalculaIdade = DifAnos

Idade_Fim:
Exit Function

Idade_Err:
MsgBox Err.Description
Resume Idade_Fim

End Function

'Tem que ter uma cx para a data de nascimento

'uma cx para a idade....na origem do controle...=CalculaIdade([DataNasc])

que calcular a data em anos de idade de alguem, só que hoje quando fui digitar valores no registro no campo idade aparece:

#Nome?
e não tem jeito, a propriedade fornte do controle está com a função qualificada.

podem me ajudar


Atenciosamente,

Adilson

Bom dia Colega

Desculpe que eu tenho andado adoentado e não tenho respondido em tempo útil.

Primeira questão...Monta ribbons free....no Portal dos Programadores:

http://www.svcsoftwarehouse.com/

Segunda questão....esse erro, normalmente é fixado por nome de campo mal escrito. Verificou os nomes?

Bom dia,

Grato, foi o amiguinho aqui que não vigiou e qdo abriu o bd não habilitou o conteúdo do botão de opções.

Desejo melhoras, que Deus te abençoe

grato

Adilson

Obrigado amigo e bom trabalho