[Resolvido]Calendário ocx

Viva:

Estou tentando mas nada bate certo:

Como fazer um calendario ocxCal actualizar para a data actual no evento open do form?

Nota: Ao fazer click este calendário passa a data para uma caixa de texto.

Obrgada

Tem um exemplo do JPaulo no repositório ou em um tópico da área de formulário, se não me engano. Você já o viu?

Viva Amigo

O único que vi foi o agendamento com alarme e nesse mesmo que estou a trabalhar, mas não possui nenhum calendário ocx. Estou a tentar modificar o excelente exemplo do mestre, construindo uma agenda que pudessse ser ligada a um cliente na base de dados, ou seja cada cliente ter a sua agenda adstrita. O problema neste momento ´que o cal não actualiza. Escrevi.ocxcal.Value=Date e nada, continua em, 2003.....

Você não consegue mandar a data atual para o calendário, no evento open do form, é um evento que abre muito cedo para esse tipo de instrução.

Tem de mandar a instrução no evento ao Carregar do form;

Private Sub Form_Load()
Me.SeuCalendario.Value = Now()
End Sub

Para mandar para uma caixa de texto, você faz um evento que não é visivel no calendário, o evento depois de atualizar;

Private Sub SeuCalendário_AfterUpdate()
Me.txtData.Value = Me.SeuCalendário.Value
End Sub

Como sempre tiro e queda já actualizou Mestre! Obrigado

Valew.

Mestre:

Como indicar ao ocx para mudar de registo...vou explicar melhor. No campo Data do seu exemplo ao clicar no oxc ele transporta a dat para lá. Na segunda vez ela substitui a data que estava inserida e eu não queria que isso acontecesse. Para poder ligar a uma ficha de cliente tive que dividir o seu exemplo e criar um subformulário agendadocs que está ligado ao ID da tab docs.

Obrigado

O calendário ou faz uma coisa ou faz outra;

Você quer filtrar com o calendario, ou quer mandar a data que pressionar para uma caixa de texto ?

Mestre
Quero mandar a data que pressionar para uma caixa de texto (Data). E ele já faz isso só que obriga-me a ir ao subformulário dar focus no campo data e depois fazer clic no ocx. O que eu não estou achando é a maneira de dar focus ao campo data dentro do subformulário de forma a que não precise de clicar com o botão do rato para dar o focus.
Já tentei isto mas não dá certo

If IsNull(Me.docsagenda_subformulário!Data) Then
Me.docsagenda_subformulário!Data.Value = ocxCal.Value
End If

Obrigado

Data é uma palavra reservada do Access, substitua-a.

A instrução correta para se referenciar aos sub-forms é:

If IsNull(Forms!SeuFormulário!docsagenda_subformulário.Form!Data) Then
Forms!SeuFormulário!docsagenda_subformulário.Form!Data.Value = ocxCal.Value

Corriga o que está grifado.

Faz Debug na primeira linha da instrução If IsNull(Forms!frmagenda!docsagenda_subformulário.Form!Data) Then....não consegue localizar o campo. Quando abriu inicialmente também colocou o focus no primeiro registo.

Testei e não encontro erros;

Excepto o nome do campo ser Data, não pode, o Access cria erros pois é uma palavra reservada.

Private Sub ocxCal_AfterUpdate()
Me.docsagenda_subformulário.SetFocus
Me.docsagenda_subformulário.Form.CampoData.SetFocus
If IsNull(Forms!frmagenda!docsagenda_subformulário.Form!CampoData) Then
Forms!frmagenda!docsagenda_subformulário.Form!CampoData.Value = ocxCal.Value
Else
Exit Sub
End If
End Sub

Vou tentar entender porque me dá erro nessa mesma linha e depois passo feedback. vou alterar o nome do campo também.

Boas Mestre
Então com as instruções que me nviou dava sempre o mesmo erro, não entendi foi nada. Alterei as instruções para as seguinte e funciona quase tudo:

Private Sub ocxCal_AfterUpdate()
Me.docsagenda_subformulário.SetFocus
Me.docsagenda_subformulário.Form.Data.SetFocus
If IsNull(Me.docsagenda_subformulário.Form.Data) Then
Me.docsagenda_subformulário.Form.Data.Value = ocxCal.Value
Else
Exit Sub
End If
End Sub

Mesmo com ou sem o campo data (nome). O que continua a não efectuar é a passagem do focus para o campo Data em branco. Se clicar no calendário para uma data ele altera-me a data do primeiro registo do campo data. Se quizer meter um novo registo, tenho que efectuar click num campo em branco(Data) e depois clicar no calendário. Como fazr-lo avançar para um registo em branco? ou seja mudar o focus para um registo em branco?

Assim vamos passar o resto do dia a divagar.

Coloque um pequeno exemplo em site publico para analisar-mos o que está a fazer de errado.

Mestre

Outra coisa que bate mal é que ao abrir o calendário está na data actual, certo e correcto, mas se fizer clique na data actual do calendário esta não passa só passa se fpor anterior ou posterior. Aqui vai o link no dropbox
http://dl.dropbox.com/u/8157744/agenda1.mdb

Esqueçi de referenciar que para contornar o problema do focus estou a usar o método AllowEditons (pessoalmente não gosto muito, mas é mais uma experiência), o problema da data actual passar continua.

teste;

http://www.speedyshare.com/files/23009539/Vieira.rar

Novamente tiro e queda. Obrigado. Estou a desenvolver uma agenda bastante completa baseada no seu exemplo e outros que por aqui tenho + a criatividade. Tenho a certeza que depois de pronta e analisada a aplicação poderá ser posta à disposição de todos os utilizadores do Fórum.

Obrigado