I have two subjects fields on a form these use cascading lists so subject 2 is dependent on whatever is selected in subject 1.
The problem I am having is I am trying to let users add a new record to subject 2.Here is where the problem lies for adding new Subject 2.
Some of the selections in subject 1 have similar selections in subject 2 so trying to add a subject 2 brings up errors

Thanks

Brendan Bartley

__________________
Brendan Bartley

I am not sure where the problem is here. Can you give an example?


mmcdonal

Thanks for you're reply
Example
Subject 1 has three fields Communications Hardware and Software
Subject 2 has fields that are connected to subject 1
Communications Test also Hardware Keyboard Software Download
What I want to do is be able to add to subject 2 for new fields
Thanks

Brendan Bartley

I assume that there is some kind of action taken once the Subject 1 & Subject 2 fields are selected, probably the display of a record somewhere? If so, what you do is set a Combobox for Subject 2 to take input not restricted to the rowsource, and then when the user hits enter (or clicks a button, or whatever) you do a test to see if there is a record on file for that Subject1/2 combo. If there is, you display it, if not, you issue a dialogue box saying something like "The info for this query does not exist, would you like to enter it?" Yes/No. If they choose yes, pop up a data entry form and save the record off to whatever table you have it in, if they say no, drop em back to your Subject choice form.

Thanks for you're reply
I am using the following code so that it will check the table for duplicate entries
Private Sub Subject_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

SID = Me.Subject2.Value And Me.Subject.Value
stLinkCriteria = "[Subject];[subject2]=" & "'" & SID & "'"


    If DCount("Subject2 and Subject", "tblsubject2", stLinkCriteria) > 0 Then


        Me.Undo

        MsgBox "Warning Customer Already Exists " _
        & SID & " has already been entered." _



    End If

Set rsc = Nothing
End Sub
But this code does not prevent duplicate entries
Thanks

Brendan Bartley

You should be able to prevent duplicate entries by setting your primary key to Subject & Subject2 in the table design area.