open form after checking system date

**missinglinq** · Jan 3 '09, 02:12 AM

Place this code in your frmPlanner. If a record exists with the current date, it'll open to that record, otherwise it'll open as usual, in your case to the latest date entered.

Where txtYourDate is the control that holds the date:

Code:

Private Sub Form_Load()
  Me.txtYourDate.SetFocus
  DoCmd.FindRecord Date
End Sub

Welcome to Bytes!

Linq ;0)>

**thecheyenne** · Jan 3 '09, 11:25 AM

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_lessonplan s_load()
Me.Date.SetFocu s------------------------------------------- thanks, again, for the tip
DoCmd.FindRecor d 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_Cl ick()
On Error GoTo Err_Macro_Updat e_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_Upda te_Click:---------------------------------------------- a new date straight
Exit Sub-------------------------------------------------------------------- form the form, rather
------------------------------------------------------------------------------------ than having to go to
Err_Macro_Updat e_Click:----------------------------------------------- tbl.dates first.
-------------------------------------------------------------------------------------It's not my code
MsgBox Err.Description----------------------------------------------access did that auto-
Resume Exit_Macro_Upda te_Click------------------------------matically

End Sub
---------------------------------------------------------------------------------------------------------------
Private Sub cmd_open_frm_ac ademicMonitorin g_Click()
On Error GoTo Err_cmd_open_fr m_academicMonit oring_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_f rm_academicMoni toring_Cli:
Exit Sub

Err_cmd_open_fr m_academicMonit oring_Click:
MsgBox Err.Description
Resume Exit_cmd_open_f rm_academicMoni toring_Cli

End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub rqry_wbw_assign ments_Click()
On Error GoTo Err_rqry_wbw_as signments_Click

Dim stDocName As String

stDocName = "WBWAssignments "
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_rqry_wbw_a ssignments_Clic k:
Exit Sub ---------------------------------------------------------------------this last lot opens
------------------------------------------------------------------------------------- a form to see if
Err_rqry_wbw_as signments_Click :------------------------------------ previously used
MsgBox Err.Description------------------------------------------------ assignments are
Resume Exit_rqry_wbw_a ssignments_Clic k------------------- 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 :):)

=============== =============== =============== ============

**missinglinq** · Jan 3 '09, 11:57 AM

You need to place the code, exactly as I posted it, in the code module behind your planner form! Do not change Form_Load to Form_lessonplan s_load!

The only thing you need to do, as I indicated before, is to replace txtYourDate with the actual of your control that holds your date. If your modification

Me.Date.SetFocus

means that you've actually named your tetxbox Date, you need to change this to something else. Date is a reserved word in Access, and using it as the name of a textbox or field is going to cause major problems! The change can be minor, such as simply using txtDate instead of Date.

Linq ;0)>

**thecheyenne** · Jan 3 '09, 01:45 PM

Fantastic!!! it works!!! Fantastic!!!
Thank you for the tip about reserved access words. my next step will be to find a list of all of them, so I don't use them to name tbl.fields. It took almost 20 minutes to change them all - the 'date' field is used in a number of other forms and reports as well - and re-set the links between the main-forms and subforms.
Thanks again:):):):):) :)

**missinglinq** · Jan 3 '09, 05:02 PM

Glad you got it working! Here's a link to a list of Reserved Words for the various versions of Access:

Reserved keywords in Microsoft Access 97, 2002, 2002 and 2003 | Database Solutions for Microsoft Access | databasedev.co. uk

Linq ;0)>

open form after checking system date

open form after checking system date

Comment

Comment

Comment

Comment

Comment