Olá Pessoal
Esta é minha primeira participação no fórum. Até o momento pesquisei nele e encontrei a maioria das respostas as minhas duvidas. Mas agora tenho uma que não consegui achar a resposta.
Sou fisioterapeuta, e não um programador mas resolvi usar estas férias para fazer um banco de dados para o meu consultório. Estou elaborando agora o formulário da agenda. Nela tem um calendário para registro das datas.
O que tá pegando é que não consigo fazer mudar o registro ao clicar nas datas do calendário. Estes são os códigos que estou usando:
Option Compare Database
Private WithEvents calendarForm As Form_frmCalendar
Private Sub calendarForm_DateChanged(newDate As Date)
Me.txtDemoData = newDate
End Sub
Private Sub Form_Current()
On Error Resume Next
calendarForm.Value = Me.txtDemoData
End Sub
Private Sub Form_Open(Cancel As Integer)
Set calendarForm = Me.CalendarSubForm.Form
End Sub
Private Sub Form_Timer()
Me.Horas = Time()
End Sub
Private Sub txtDemoData_Change()
Me.RecordsetClone.FindFirst "[DataAgendamento] = " & Me![txtDemoData]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Ficarei grato se alguém puder me dar um toque
Att
Christian
http://www.4shared.com/photo/HA4RZEX6/Sem_ttulo.html?
Esta é minha primeira participação no fórum. Até o momento pesquisei nele e encontrei a maioria das respostas as minhas duvidas. Mas agora tenho uma que não consegui achar a resposta.
Sou fisioterapeuta, e não um programador mas resolvi usar estas férias para fazer um banco de dados para o meu consultório. Estou elaborando agora o formulário da agenda. Nela tem um calendário para registro das datas.
O que tá pegando é que não consigo fazer mudar o registro ao clicar nas datas do calendário. Estes são os códigos que estou usando:
Option Compare Database
Private WithEvents calendarForm As Form_frmCalendar
Private Sub calendarForm_DateChanged(newDate As Date)
Me.txtDemoData = newDate
End Sub
Private Sub Form_Current()
On Error Resume Next
calendarForm.Value = Me.txtDemoData
End Sub
Private Sub Form_Open(Cancel As Integer)
Set calendarForm = Me.CalendarSubForm.Form
End Sub
Private Sub Form_Timer()
Me.Horas = Time()
End Sub
Private Sub txtDemoData_Change()
Me.RecordsetClone.FindFirst "[DataAgendamento] = " & Me![txtDemoData]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Ficarei grato se alguém puder me dar um toque
Att
Christian
http://www.4shared.com/photo/HA4RZEX6/Sem_ttulo.html?