Existe uma boa quantidade de maneiras de se fazer tal procedimento. Uma delas seria você ter, em um formulário, pequenas caixas representando cada dente. Essas caixas poderiam ter nomes como Dente1Sup, Dente2Sup..., Dente1Inf, Dente2Inf... Você teria uma tabela com registros dos pacientes e uma tabela procedimentos vinculada pelo ID do cliente. Nessa tabela teria um campo para cada dente. Dente arrumado teria gravado em seu campo o valor "Feito" e dente por arrumar teria "A fazer". No form, nos eventos adequados, você colocaria algo assim:
If DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "Feito" Then
Me.Dente1Sup.BackColor = vbBlue
ElseIf DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "A fazer" Then
Me.Dente1Sup.BackColor = vbRed
End If
Pode tambem colocar a imagem de uma boca no formulário com as imagens dos dentes pintados de vermelho e azuis e condicionar da mesma forma para mostrar a imagem do dente azul ou vermelho dependendo do caso.
São enes possibilidades.