Hi there 'linq' and thanks for the reply.
tried it out straight away but I must be doing something wrong.
I was actually looking for the bit of code that opens the form in the first place but couldn't find it. I'm sure it must be there somewhere, else the form wouldn't open, or would it?
the from's name is 'Lessonplans' and this is the code attached to it so far:
================================================== =====
Private Sub Form_lessonplans_load()
Me.Date.SetFocus------------------------------------------- thanks, again, for the tip
DoCmd.FindRecord Date----------------------------------- wasn't quite sure where
End Sub -----------------------------------------------------------exactly to put it, so I put it at
-------------------------------------------------------------------------the very beginning.
I'm sure that
if I could find the code
that opens the form in
the first place, and inserted
the relevant bits there,
then it would work,
but those,
perhaps,
are the hopes of
an amateur enthusiast.
---------------------------------------------------------------------------------------------------------------
Private Sub Macro_Update_Click()
On Error GoTo Err_Macro_Update_Click
Dim stDocName As String
stDocName = "Update"----------------- ----------------------------this is a command-
DoCmd.RunMacro stDocName ----------------------------------- button on the form
--------------------------------------------------------------------------------- that lets me add a
Exit_Macro_Update_Click:---------------------------------------------- a new date straight
Exit Sub-------------------------------------------------------------------- form the form, rather
------------------------------------------------------------------------------------ than having to go to
Err_Macro_Update_Click:----------------------------------------------- tbl.dates first.
-------------------------------------------------------------------------------------It's not my code
MsgBox Err.Description----------------------------------------------access did that auto-
Resume Exit_Macro_Update_Click------------------------------matically
End Sub
---------------------------------------------------------------------------------------------------------------
Private Sub cmd_open_frm_academicMonitoring_Click()
On Error GoTo Err_cmd_open_frm_academicMonitoring_Click
Dim stDocName As String-----------------------------------------------command
Dim stLinkCriteria As String--------------------------------------------- button opens a
------------------------------------------------------------------------------------------subform to
stDocName = "Academic-Monitoring"-------------------------------record academic
DoCmd.OpenForm stDocName, , , stLinkCriteria--------------- achievements
Exit_cmd_open_frm_academicMonitoring_Cli:
Exit Sub
Err_cmd_open_frm_academicMonitoring_Click:
MsgBox Err.Description
Resume Exit_cmd_open_frm_academicMonitoring_Cli
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub rqry_wbw_assignments_Click()
On Error GoTo Err_rqry_wbw_assignments_Click
Dim stDocName As String
stDocName = "WBWAssignments"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_rqry_wbw_assignments_Click:
Exit Sub ---------------------------------------------------------------------this last lot opens
------------------------------------------------------------------------------------- a form to see if
Err_rqry_wbw_assignments_Click:------------------------------------ previously used
MsgBox Err.Description------------------------------------------------ assignments are
Resume Exit_rqry_wbw_assignments_Click------------------- of any use for the
--------------------------------------------------------------------------------------- current day; the
End Sub -------------------------------------------------------------------------decision as to
whether or not
they are useful is
taken by me, not
the computer :):)
================================================== =======