Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Queries / February 2008

Tip: Looking for answers? Try searching our database.

upon submit, run duplicate query and display a pop up listing of d

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Jeff @ CI - 06 Feb 2008 18:18 GMT
In my Access 2000 database, I have a form for entering data on people who
register for an event.  Key fields are "First Name", "Last Name", "Event
Code".  I am tracking multiple events.  

When I enter a registrant's information, I want to click on a "Submit"
button that will run a find duplicates query for only that one event and then
display a pop up form displaying the duplicates - if any are found - and
allow me to modify or delete or keep the records in question.  If no
duplicates are found, I do not want anything to occur.  

All fields are in one table called contacts.  I intend to use the wizard to
create the button with the "Save Record" process.  Then insert the coding
needed to perform the above process.

Any help provided would be greatly appreciated.

Thanks in advance, ...

Jeff
Jeff @ CI - 06 Feb 2008 18:56 GMT
> In my Access 2000 database, I have a form for entering data on people who
> register for an event.  Key fields are "First Name", "Last Name", "Event
[quoted text clipped - 15 lines]
>
> Jeff

Just to clarify, when the submit button is clicked, the duplicates search
would look first select all records in the current event code, then list
duplicates for those records with the same first and last names.
Michel Walsh - 06 Feb 2008 19:23 GMT
You can check if a DCount(...)  returns 0 or something else (in that case,
there is already a record with the given criteria.

   Dim strCriteria AS string
       strCriteria="FirstName=FORMS!formNameHere.FirstName "
       strCriteria = strCriteria + " AND LastName =
FORMS!FormNameHere.LastName "
       strCriteria = strCriteria + "AND Event=FORMS!FormNameHere.Event"

       if 0 <> DCount("*", "tableNameHere",  strCriteria) Then
               ' Asking first if the user want to open a form to edit
existing records
               ' if so ...
               DoCmd.OpenForm ... , where:= strCriteria   ' note the :=
syntax
                                                                       '
when using a named argument

                if 0 <> DCount("*", "tableNameHere",  strCriteria) Then
                   'there is still dup, what to do?  eliminate this
proposed row not entered yet?

                   Cancel = true
               end if

       else

           'do nothing

       end if

Note that DCount counts the rows already committed in the database, not THIS
(assumed NEW)  ONE. There are still a couple of things to do, such as asking
if the end user want to edit previous records. If the end user does not what
that, or if, after having edited it, there is still a dup, what we do?  I
assume this code is somewhere where you can 'CANCEL'  the process to insert
this new record in the database, but clearly,  something else can be the
proper way to do it, in your case.

Hoping it may help,
Vanderghast, Access MVP

> In my Access 2000 database, I have a form for entering data on people who
> register for an event.  Key fields are "First Name", "Last Name", "Event
[quoted text clipped - 17 lines]
>
> Jeff
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.