Bloqueio no Formulário

Boa tarde,

Estou com um problema e não estou conseguindo resolver, com exemplo de uma agenda que consegui nesse fórum estou adaptando para o local de trabalho, estou tentando colocar um botão de bloqueio e outro desbloqueio, o botão de bloqueio coloquei que ao clicar os campos ficassem invisíveis, e desbloquear visíveis para lançamentos, porém na agenda tem o calendário de datas e quando seleciono uma data ele funciona perfeitamente, mas seleciono outro data ele continua com o executável.

gostaria que ao selecionar outra data os campos ficassem visíveis e na hora que voltasse se o botão bloqueio tivesse ativado mostrasse bloqueado normalmente.

tentei colocar no formulário ao carregar tudo visível, mas se vc bloqueia os campos em uma data, e vai para outra data ele aparece tudo aparece visível, mas na hora que vc volta para essa data que tinha bloqueado e era para o campo esta invisível, mostra tudo novamente.

não sei se estou sendo claro mas o código dos dois botões são:


Botão de bloqueio:

Private Sub Comando1797_Click()
If Not IsNull(Comando1797) Then
MsgBox "Deseja bloquear Horário?", vbYesNo, "Atenção!"

Me.tblAgendaCodBairro.Visible = False
Me.Combinação1093.Visible = False
Me.tblAgendaPrevMot.Visible = False

Exit Sub
End If
End Sub


Botão de desbloqueio:

Private Sub Comando1798_Click()
If Not IsNull(Comando1798) Then
MsgBox "Deseja disponibilizar?", vbYesNo, "Atenção!"

Me.tblAgendaCodBairro.Visible = True
Me.Combinação1093.Visible = True
Me.tblAgendaPrevMot.Visible = True


Exit Sub
End If
End Sub



ai eu não sei como fazer isso!

att
Sandro

Boas Sandro.. Posta o baita "aê"

Cumprimentos.

boa noite,

segue o BD .....

no subfrmagendastudio coloquei uma caixa de seleção no primeiro horário, e será em todas as linhas..

no Frmagendastudio tem o calendário e é aí que esta a dificuldade, ex.:

quando clico no dia 30/01 eu clico na caixa de seleção para não haver lançamento e os campos ficam invisiveis, até aí blz

quando clico no dia 31/01 era para a caixa de seleção esta em branco e os campos visíveis, mas é isso que não esta acontecendo, ele copia o anterior , ai clico novamente na caixa de seleção para aparecer.....fica muito complicado

como são vários vendedores que irão lançar nos campos ta difícil...

na caixa de seleção só uma pessoa terá acesso.....

conto com a ajuda de vcs....

Att
Sandro Gomes

Beleza.. Mas só poderei ver isto amanha!

Boa noite.