[Resolvido]Agendamento de Eventos

Boa Noite amigos do Fórum,

Estou adaptando ao meu projeto um exemplo que peguei aqui do fórum, uma agenda de eventos, criei um botão no meu form que chama esta agenda, gravo o evento e o alarme e ate ai tudo bem, só que agora preciso dar funcionalidade para um novo botão que criei " Ir para o Evento ", como este alarme me chama a atenção para um evento pre registrado, gostaria que ao clicar deste botão, o form e o registro de referencia fosse aberto.

Preciso da ajuda dos senhores.


Rotina: Abrir formulário convenio, botão "Agenda", gravar alarme.
Na hora programada: Botão "Ir para Evento" ???????????


Obrigado

Você pode passar um argumento de abertura ao abrir o formulário, que pode ser o id do evento da agenda.
O OpenArgs é um parâmetro do método DoCmd.OpenForm.

  

Boa tarde Marco Messa,


obrigado pela resposta, vou estudar o caso pois isto é totalmente novo para mim, o que eu já estava tentando fazer por conta é criar um campo que seja preenchido com o " código ", que seria o ID do meu formulário convenio, seria este o caminho?

De qualquer forma vou estudar as tuas indicações.



Obrigado



Fabio

Esse botão ir para o evento não estaria ao lado do evento em si, só que minimizado? Caso sim, você já tem ali o id do evento é pode simplesmente passá-lo no código do OpenArgs.
Não é usual um usuário decorar um código de algo, nós mesmo não gostamos disso. Já pensou ao usar o facebook termos que digitar o código do post que queremos acessar ao invés de só clicar no link?

"Somos todos usuários."

Marco,

pesquisando a tua indicação encontrei um post na rede que é exatamente o que preciso, só não consegui adapta-lo...

Adicionei um textbox no frmAlerta para conter o ID ( codigo ) do FormularioConvenio...

Vamos supor um formulário que mostra apenas o Código e o nome dos Clientes do Northwind.mdb. Para exibir os detalhes do cliente selecionado pelo usuário, ou seja, os demais campos da tabela "Clientes", você criaria um botão de comando (cmdDetalheCliente) nesse formulário que abrisse o formulário "Clientes" no registro correspondente. O código para o evento Ao clicar (OnClick) desse botão seria:

Private Sub cmdDetalheCliente_Click()
DoCmd.OpenForm "Clientes", , , , acFormReadOnly, _
openargs:=Me.CódigoDoCliente
End Sub

Ao ser aberto, o formulário "Clientes" estaria exibindo os dados do cliente cujo código foi passado pelo outro formulário. Isso é feito por meio de código no evento Ao abrir (onOpen) do formulário "Clientes":

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Trata_Erro
Dim rs As DAO.Recordset
Dim varCodCli As Variant

'Verifica se foi passado um código de cliente
varCodCli = Me.OpenArgs
If IsNull(varCodCli) Then Exit Sub

'Abre uma cópia do recordset origem do Formulário.
Set rs = Me.RecordsetClone

With rs
.FindFirst "CódigoDoCliente = " _
& "'" & varCodCli & "'"
'Move para o registro porventura encontrado.
If Not .NoMatch Then
Me.Bookmark = .Bookmark
End If
End With

Fim:
rs.Close 'Libera memória.
Set rs = Nothing
Exit Sub

Trata_Erro:
MsgBox Err & vbCrLf & Err.Description, _
vbCritical, "Erro"
Resume Fim
End Sub
[/size]

O recordsource desse formulário é uma consulta?
Porque seria você simplesmente pegar esse id e filtrar na consulta.
Eu raramente usava esses métodos como RecordsetClone, FindFirst... enfim, só fuçando mesmo.
Teria que estudar como funcionam esses métodos pra ver como eles trabalham, ou fazer como eu disse, filtrar no Where do Recordsouce que vc atribui ao form.
Algo como:

Me.recordsource = "Select * from tabela where id=" & varCodCli

Ok