[Resolvido]Adicionar ano bissexto em campo na tabela com form desvinculado

Ola! Vim novamente pedir a jauda de vocês

Então peguei o código abaixo feito pelo Criquio, sendo eu tenho um formulário desvinculado e não tenho nenhuma caixa de combinação. Queria adicionar o número de dias na minha tabela em Campo_Dias, testando a partir de um Campo_Ano (como feito abaixo com a cboAno). Vcs podem me ajudar??



Dim Dias As Integer

If Me.cboAno Mod 400 = 0 Or (Me.cboAno Mod 4 = 0 And Me.cboAno Mod 100 <> 0) Then
Dias = 29
Else
Dias = 28
End If


att,

Boa tarde, carlos

Coloque, ao sair de TxtAno:
If txtAno mod 4=0 then TxtDias=366 Else TxtDias=365