como criar caixas de seleção para ativar outros campos

olá amigos do forum, sou novo aqui e gostaria de uma ajuda. Estou disponibilizando um bd  na qual estou tentando criar uma caixa de seleção que quando eu selecionasse ela , ela ativa dois campas abaixo "data da ultima calibração e proxima calibração" e que ao final eu pudesse imprimir essa seleção, se alguem puder me ajudar , agradeço, pois estou iniciando no acess agora.

ola amigo consegui criar o codigo, mas estou com um problema, quando eu salvo o registro e crio um novo novo a caixa de seleção fica marcada aparecendo as datas, se eu desmarco quando volto para o registro em que salvei a caixa selecionada ela não aparece marcada, ou seja para eu ver o registro com as informações de data tenho que marcar a caixa de seleção. Eu gostaria que quando eu adicionasse um novo registro a caixa aparecesse desmarcada e ao salvar algum registro com a caixa marcada ao procurar por esse esse registro ela viesse marcada, independente se ela estivesse marcada anteriormente. Alguem poderia ajudar

Private Sub caixa_AfterUpdate()
If Me.caixa Then
Me.data1.Visible = True
Me.data1.SetFocus
Me.data2.Visible = True
Me.data2.SetFocus

Else
Me.data1.Visible = False
Me.data2.Visible = False

End If
End Sub

alguem pra ajudar? estou disponibilizando o bd.