Check number in database

Posted on 2013-12-20
Medium Priority
Last Modified: 2013-12-20
Hi -

I use Access 2010.

I have two tables and one form.   The main record source for the form points to table1_Main, however the drop down menu I have in the form is looking at another table called table2_Contacts.  I want to make sure then when a user adds a new record and selects a ContactID from the drop down menu that it can only be added to the database once.  If someone tries adding a new record and selects the same ContactID it will inform them that this ContactID has already been used already and can't be used again.

Hope this makes sense.

Question by:CptPicard
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions

Expert Comment

ID: 39731759
It would help to know the layout of your table that contains the contact ID but you could use a select with the having clause to count how many times that contact ID appears and then return a message if it already exists.. but that would have to be executed before the insert into the table, most likley a macro.
LVL 120

Accepted Solution

Rey Obrero (Capricorn1) earned 2000 total points
ID: 39731789
use the beforeUpdate event of the combo box and use the dcount() function

private sub comboName_beforeupdate(cancel as integer)

if dcount("*","table2_Contacts", "contactID=" & me.comboName) > 0 then
   msgbox "Contact ID already exists!"
end if

end sub
LVL 48

Expert Comment

by:Dale Fye
ID: 39731809
One way to do this is to modify the query for the dropdown so that it already filters out those

Instead of something like:

Select ContactID, ContactName from table2_Contacts Order by ContactName

as the RowSource for your dropdown, use something like:

SELECT ContactID, ContactName
FROM table2_Contacts
LEFT JOIN  table1_Main
ON table2_Contacts.ContactID = table1_Main.ContactID
WHERE table1_Main.ID IS NULL
ORDER BY table_2.ContactName

This would filter out all of the used contacts prior to even populating the drop-down.
10 Questions to Ask when Buying Backup Software

Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.

LVL 30

Expert Comment

ID: 39731814
Try to upload a sample database showing the issue.

You may check for the ContactID in the after update of the drop down list.

Author Closing Comment

ID: 39731827
This works perfectly.  Thank you.
LVL 48

Expert Comment

by:Dale Fye
ID: 39731880
Were you trying to check whether that contact had already been assigned to a record in the main form?  If so, then you are going to need to use:

if dcount("*","table1_Main", "contactID=" & me.comboName) > 0 then
instead of:
if dcount("*","table2_Contacts", "contactID=" & me.comboName) > 0 then

And if that isn't what you are trying to do, then I don't know how Capricorn1's solution will prevent reuse of that ContactID.  I think it would prevent use of any ContactID!

Author Comment

ID: 39732026
Well spotted!  I did indeed notice this and changed it myself because as you say, it would prevent the use of any ContactID.

Author Comment

ID: 39732151
This all works fine but I've just realized that I have a search form as well.  Basically this is used to display a list of Contacts with specific information about them. Contact ID, Title, Forename, Surname etc...  You can simply search for them within the form, click on them, and click a command button to input their info to the main form (Saves typing it in manually).

The Contacts within the search form are displayed within an unbound listbox with the row source being the Contacts table.  When you click the command button 'Input to form', it executes the following 'on click' event procedure.

Private Sub Command25_Click()

On Error GoTo Err_Command25_DblClick

Forms("table1_main")![cboContact_ID] = ListBox.Column(0)
Forms("table1_main")![cboTitle] = ListBox.Column(1)
Forms("table1_main")![cboForename] = ListBox.Column(2)
Forms("table1_main")![cboSurname] = ListBox.Column(3)
Forms("table1_main")![cboDOB] = ListBox.Column(4)
Forms("table1_main")![cboGender] = ListBox.Column(5)
Forms("table1_main")![cboTelephone] = ListBox.Column(6)


If IsNull(ListBox.Value) Then

DoCmd.OpenForm ("table1_main")

End If

    Exit Sub

    Resume Exit_Command25_DblClick

End Sub

I'm not sure now how I can check if their ContactID has been entered into the system if I'm using this search form.  It's easy from the drop down menu by putting the code in the before update, but not sure what's best when you're using another form and sending the information to your main form.

I'm happy to open another question if it needs it.

LVL 48

Expert Comment

by:Dale Fye
ID: 39732167
Why are you storing all of that information in table1_Main?  

The only field you should store in that table is ContactID.  You should use that field either in a query to capture the other info from table2_Contacts, or create a subform on form_Main to display the contact data linked on the ContactID field.

Author Comment

ID: 39732560
The database is a little more complicated than that but I'm trying to simplify what I'm asking so as to not over complicate things.

I actually have 4 tables and 4 forms.  One of the tables stores all the contacts details. the other tables are called tbl_questions1, tbl_questions2, tbl_questions3.  

Forms are called frm_questions1, frm_questions2, frm_questions3, frm_searchform.

Within frm_questions1 for example, there is a command button which you click on to open up the 'frm_searchform'. Within this form you can search through hundreds of people to find the one you want to input into your main form 'frm_questions1'.  It allows you to search for their name, click on their line within the listbox and click a button to input their details into the 'frm_questions1' form.  All their details automatically get put into the relevant fields automatically.

My original question asked how I checked to see if the ContactID  had already been entered into the database 'tbl_questions1' and capricorn1 came up with the perfect answer.  This allowed me to select a ContactID and if it had already been entered into the database, it would display a message.  If it had not already been entered into the database it would not display a message and their Contact Details would automatically populate the fields.  However, it's a little more complicated when you open up a search form and try and do the same thing.
LVL 48

Expert Comment

by:Dale Fye
ID: 39732600
My point is that you do not (actually should not) duplicate all of the fields from tbl_Contacts into your other tables.  All you should store from that table in the other tables is the ContactID field.  The rest of the information belonging to that contactID can be displayed either via a query, or using a subform.

So, from your search form, the button "command25_Click" (BTW, you really need to institute a naming convention for your controls.  You should initially check to see whether that contact ID already exists in that forms recordset.  The challenge is that it appears that you may have more than one recordset to check.  I'm also confused by the fact that you are using the Command25_Click event to insert values into fields (controls I suspect) on form1_Main, and then after you do that, you test to see if form1 is open.  How do you do that.  At any rate, to test to see whether that ID is already in use, you would basically use the same code provided above:

     strCriteria = "[ContactID] = " & me
    if dcount("*","table1_Main", strCriteria) > 0 then
        msgbox "Contact ID is already in use!"
        Exit sub
    End If

do other stuff here.

Author Comment

ID: 39732622
Tried the above but it gives me a type mismatch on this section

strCriteria = "[Patient_Num] = " & Me

Featured Post

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Question has a verified solution.

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

AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
Suggested Courses

765 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