Solved

Cascading combo boxes not enforcing mandatory field

Posted on 2013-01-25
1
373 Views
Last Modified: 2013-01-25
I have a pair of cascading combo boxes on an Access 2010 form, one (Source) unbound and one (InformationTitle) bound to a mandatory field in the form's underlying recordsource. Source is used to narrow down the choice available in InformationTitle.

The record source for the form is:
SELECT tblEvidence.EvidenceName, tblEvidence.EvidenceID, tblEvidence.InformationID FROM tblEvidence ORDER BY tblEvidence.EvidenceName;

Open in new window


The row source for Source (unbound combo) is:

SELECT tblSource.SourceID, tblSource.Source FROM tblSource ORDER BY tblSource.Source;

Open in new window


The row source  for InformationTitle (bound to mandatory table field tblEvidence.InformationID) is:

SELECT tblInformation.InformationID, tblInformation.SourceID, tblInformation.Title
FROM tblInformation WHERE ([Source]) Is Null OR tblInformation.SourceID=[Source])
ORDER BY tblInformation.Title;

Open in new window


The relevant elements of the underlying tables are:

tblEvidence: EvidenceID (long); EvidenceName (text); InformationID (long)
tblInformation: InformationID (long); Title (text)
tblSource: SourceID (long); Source (text)

All these fields are mandatory.

There is a many-to-one relationship between tblInformation and tblEvidence, and a many-to-one relationship between tblSource and tblInformation.

The validation rule on InformationID in tblEvidence is (Is Not Null).
The validation rule for InformationTitle on the form is Not IsNull (InformationTitle) -- although I don't think it should need one if the validation rule on the underlying table is working.

In Source_AfterUpdate, the following code executes:

Me.InformationTitle.Requery
Me.InformationTitle.Value = Null
Me.InformationTitle.SetFocus

Open in new window


In form_Current, the following code executes:
     If IsNull(Me.InformationTitle) Then
         Me.Source = 1 'The default value
     Else
         Me.Source = Me.InformationTitle.Column(1)
     End If

Open in new window


There is no code in InformationTitle_AfterUpdate.

The cascade works as expected, with two exceptions.

1. If an existing record is edited, by (a) selecting a 'Source' which has no associated 'Information' records, and (b) saving the record without completing the InformationTitle field, the old value of InformationTitle is restored when the expected behaviour is that an error be reported and the user required to fix their data.  (If a new record is created and saved with InformationTitle blank, the error is trapped as expected).
2. If an existing record is edited, by (a) changing the selection of 'Source', and (b) selecting an associated piece of 'Information' and (c) reverting to the original 'Source', 'InformationTitle' also reverts to its previous value when the expected behaviour is that it would be set to Null ready for the user to make a new selection.

What blindingly obvious mistake have I made? I've been struggling with this for two days, and haven't found anything that sets me on the right path.
0
Comment
Question by:colevalleygirl
1 Comment
 

Accepted Solution

by:
colevalleygirl earned 0 total points
ID: 38820097
Sorted.
I needed to remove the validation rule from InformationTitle on the form, and modify the code for Source_AfterUpdate to

Me.InformationTitle.SetFocus
Me.InformationTitle.Requery
Me.InformationTitle.Value = Null
Me.InformationTitle.Text = ""

Open in new window

0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question