[Resolvido]Controle de atestado

Olá amigos:
Como sabem sou novato, mais adoro o ACCESS.
Gostaria que o controle em anexo, somasse as datas dentro de um período de 30 dias de afastamento e concatenado com a letra do CID e me desse uma mensagem em de alerta. ex

ID 310752 AGNALDO tem 2 dias de afastamento pela letra do CID = M

Obs: estou utilizando este código.
Private Sub Comando21_Click()
   Dim i As Long
   Dim VALOR As Currency
   Dim db As Database
   Dim rs As Recordset
    Set db = CurrentDb '' Indico banco de dados atual
    Set rs = db.OpenRecordset("tb_Atestados") '' Abro a tabela de contas
    With rs
      For i = 1 To Me.Dias_de_afastamento
       .AddNew
     
       !Data_Início = DateAdd("d", i, DTI)
       !Nome = Me!Nome
        !ID = Me!ID
        !LetraCID = Me!LetraCID
       .Update
       Refresh
       
     Next
   End With


End Sub

com este comando você está inserindo dados novos na tabela "tb_Atestados". Não há uma declaração de mensagem neste codigo. Você pode explicar melhor o que quer pra gente poder ajudar?

Dei uma olhada:
o campo LetraCID está errado na tabela.

Há!
Não tinha visto, mais vamos lá.
Preciso de uma variável que conte dentro de um período de 60 dias quantas vezes a mesma letra do CID se repetiu.

Não entendi.Isto você quer fazer dentro de uma consulta com parametros de datas inicial e final ou como é mesmo?

Gostaria que o VB Verificasse e somasse as datas dentro de um período de 30 dias de afastamento e pela mesma a letra do CID e me desse uma mensagem em de alerta. ex

ID 310752 AGNALDO tem 2 dias de afastamento pela letra do CID = M

Obs: toda a vez que laçar um atestado com a mesma letra, o VB verifica na tabela "tb_Atestado" os 30 dias em que o funcionário ficou afastado, se for maior que 30 dias pelo mesmo CID, através de uma o mesmo apareça, (ID 310752 AGNALDO tem 2 dias de afastamento pela letra do CID = M)

verificar no trabalho.

reenviei o arquivo pra mim mesmo. vou dar uma verificada esta madrugada e já te dou um retorno.

Meu camarada, ainda estou sem entender o que você pretende. Veja só, fiz algumas alterações na sua base de dados. Por favor. dê uma verificada. Criei duas tabelas a mais: tb_Funcionarios e Tb_Sids e seus respectivos relacionamentos com a tb_Atestatos. o código que você postou adiciona registros conforme o numero de dias de atestado que você especificar na campo "Dias_de_afastamento", já testei. agora...
me diga exatamente o que você pretende: se for fazer uma busca antecipada antes de lançar o atestado, tem que colocar no evento "antes de atualizar" do botão de "Gravar" antes de fazer o lançamento. ok? Esclareça por favor os fatos para que a gente possa ajudar melhor.

vai o anexo. tinha esquecido!!!

Bom dia......
Com a permissão dos demais colegas, apenas dando um pitaco....

Obrigado amigo. Parabéns me ajudou muito.