Forms :: Listbox On Form - Checking For Duplicates
Aug 14, 2013
I have a Listbox on a fprm which has a button attached to it, the button allows you select one of the items in the listbox and append it to a table. the problem is that it currently allows you to add the item as many times as you like. How can I check for duplicates?
Code:
Private Sub CmdAdd_Click()
'Add new record to tblShootingTasks
strSQL = "INSERT INTO tblShootingTasks ( ShootID, ContactName, Task ) " _
& "SELECT [Forms]![frmTasks]![ShootDateiD] AS ShootID, [Forms]![frmTasks]![Combo15] AS ContactName, [Forms]![frmTasks]![Frame17] AS Task;"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
End Sub
View Replies
ADVERTISEMENT
May 15, 2005
I have a table that stores jobs. The primary key field is JOBID which will correspond to company invoice #'s. Because the Invoice #'s are generated by a different system, I don't not have this as an autonumber field, I want to control it programatically when the user enters a value into the JobID textbox.
At first, I was using DCOUNT on the BeforeUpdate event of the form to check if there was already a matching JobID in the table, and if so, cancelling the update.
intInvoiceCheck = DCount("[JobID]", "jobs", "[JobID]=" & Me.JobID)
If intInvoiceCheck > 0 Then
Response = MsgBox("You have entered an Invoice # that is already used." & _
Chr(10) & Chr(13) & Chr(10) & Chr(13) & _
"If this is a secondary invoice considering adding 'a' or 's' to make it unique." & _
Chr(10) & Chr(13) & _
"For example, " & Me.JobID & "a, " & Me.JobID & "s...", vbOKOnly, "Duplicate Invoice")
Me.JobID.SetFocus
Cancel = True
Exit Sub
End If
However, if the user is changing say a jobsite address, they can't, because it checks and sees that intInvoiceCheck = 1 and won't continue.
I tried moving my routine to the BeforeUpate event of the JobID textbox like this (this is not the final code, only what I testing with)
'Check that the entered Invoice Number value is unique
Dim intInvoiceCheck As Integer
Dim Response
intInvoiceCheck = DCount("[JobID]", "jobs", "[JobID]=" & Me.JobID.Value)
If intInvoiceCheck > 0 Then
MsgBox ("Dupe")
Cancel = True
Me.JobID.Undo
End If
However, I getthis long error message saying I have changed the validation rule of the field without first checking to see if it's valid....
I can change the to Me.Undo, which works fine, but I don't want to undo the whole entry, only the JobID and set focus to it, and make the user enter a new one.
Can anyone help me out with this?
Thanks,
Hammy
View 3 Replies
View Related
Dec 14, 2014
Using a popup form
1. On my main form, I have a listbox, I would like to edit the values of the listbox.
To do this, I have a popup form with 2 listboxes, one to have the values of the listbox on the main form, and the other listbox with option values for the 1st
1) how to i pass the rowsource sql of the listbox on the main form to the listbox on the popup form
2) how on closing the popup form, do i update the rowsource sql listbox on the main form from the changed value of the popup form listbox rowsource sql
View 3 Replies
View Related
Apr 6, 2015
I've got an attendance form set up with check boxes for each day I want to check attendance. I have two problems with this form.
1) All the boxes start out with little squares (I want them to be blank)
2) If I try checking a box for one person, it checks all the boxes in the column (same with unchecking).
View 3 Replies
View Related
Jan 7, 2015
I am developing a form where students have to enter their ID number but I want my form to check through a table of students and their IDs and flag up if the ID number does not exist in the table.
View 10 Replies
View Related
Apr 11, 2014
Below is some code that I'm struggling with and I get an error message "Type Mismatch".
Description: The database contains multiple projects and the subset of each project is a release. The "PublishedNumber" can't be a duplicate within a release, but it can be a duplicate within the table where the data is stored. There can however be multiple occurrences of 0.
Here's my code:
Dim stLinkCriteriaRelease As String
Dim stLinkPublishedNumber As String
Dim DuplicateNumber As Variant
stLinkCriteriaRelease = "[AssociatedRelease]=" & [AssociatedRelease]
stLinkPublishedNumber = "[PublishedNumber]=" & [PublishedNumber]
[Code] ....
View 3 Replies
View Related
Mar 26, 2014
I have a form which has a subdatasheet attached to it. there could be 1000 records in the main form but only 10O records in the Subdatasheet that match the records in the main form , these are linked by a "product number" .
Is it possible for the row in the main form to be "red" where there is data in the Subdatasheet that is matched by the "product number".
View 5 Replies
View Related
Jan 1, 2015
Is there any way to highlight duplicates across a number of records on a continuous form (conditional formatting I presume)? My continuous form is filtered on load to show only the records relating to the specified date (specified before opening the form), and there is one field that I would like to highlight if there is a duplicate value in the same field on another record on the form. Is this possible?
View 1 Replies
View Related
Jun 10, 2015
I am using the selections made of the form to generate a query for the user.
I have a CITIES listbox that is populated with values from a stored query.
I would like to make it multi-select and populate a LOCATIONS list box and a NAMES list box based upon the CITIES that are selected.
I have the locations currently populated from a stored query that reads the City selection from the Form. It looks like this
Code:
SELECT DISTINCT (t_location.LOCATION) AS Expr1
FROM t_location INNER JOIN t_asset_master ON t_location.LOCATION_PHY_ID = t_asset_master.LOCATION
WHERE (((t_location.CITY)=[Forms]![MasterQueryGenerator]![CityList]));
I also want multi-select so that is you can un-select all and get the results for all cities.
Here is my half thought approach.
Code:
Private Sub CityList_AfterUpdate()
'Dim LocQryStr As String
'Dim r As Integer
'Dim ctl9 As Control
'LocQryStr = "SELECT DISTINCT (t_location.LOCATION) " & _
[Code] ...
I intended to have the variable LocQryStr as the row source but I abandoned the idea of having multi-select when I saw that .Selected(I) never returned true. Its like the values aren't read in this subroutine.
View 5 Replies
View Related
Sep 9, 2013
I have a list box called "product list box" based on a query called "searchqry", i also have another listbox called "type list box" , how do i get the type list box to only show "types" based on the section in products list box?
View 1 Replies
View Related
Oct 24, 2013
I have a listbox which contains a list of schools. I would like the user to be able to select 1 or all the records from that list box. From that list of selected records, my goal is to allow the user to use each school selected and use that as a record source for a continous form so I can allow the user to input a integer next to it, like school size.
Example:
Listbox (Schools)
ID, Name
1, Thomas School
2, Jefferson School
3, Washington School
4, Madison School
5, Franklink School
User select Thomas, Washington and Madison
In a Continuous Form it would list,
Thomas School, Text Box (Allow User to input School Size)
Washington School, Text Box (Allow User to input School Size)
Madison School, Text Box (Allow User to input School Size)
I then would save those records into a table.
View 6 Replies
View Related
Oct 23, 2013
Okay then, after much trouble and confusion, I finally realized I need to use an Extended listbox in order to allow for multiple items to be selected from a list on my form (rather than the evil multiple selection combobox!).
However, now I am trying to figure out how to make one listbox (IndustryClassification) only be visible if the item "Industry" is selected in another listbox (TypeOfBusiness). Coding I can use for this in the AfterUpdate event of the listbox?
View 7 Replies
View Related
Jun 2, 2015
My code is not working.
1. The code below should equal the Current Month
2. It does not close the form if no data.
PHP Code:
If DLookup("[CurMonth]", "tblEmpEvaluation") = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "mmmm ")
DoCmd.OpenForm "frmEvalNotice"
End If
PHP Code:
If DLookup("[CurMonth]", "tblEmpEvaluation") <> Format(DateSerial(Year(Date), Month(Date), Day(Date)), "mmmm ") Then 'No Data. NotWorking?
DoCmd.Close acForm, "frmEvalNotice"
End If
View 7 Replies
View Related
Sep 19, 2013
In my tables I have a field called first serial. This is the first element of a serial number range associated with each record. Very rarely I have to ask the user to specify a certain serial number in that range. (The serial numbers can be generated easily from the first serial) This happens during the run of a macro, so I have to use a Fom opened with WindowMode:=acDialog. The problem is that I have to populate a listbox with the generated serial numbers on that form. But I can't interact with a dialog form, since it stopos the running of the macro. I have tried to open it hidden, and change the modal property to true once the listbox have been populated, but this dosen't stop the macro to wait for user input.Is it possibble to pass the first serial value to the form, and populate the listbox in one of the Form's opening events?
View 3 Replies
View Related
Dec 11, 2014
I have three forms: Form1 that contains subform1 and Form2 which is totally separate. Form1 contains a listbox that I use as a search form. When a record in the listbox is clicked, it populates Subform1 with more details.
If I am in Form2, I would like to be able to click a record which opens the listbox in Form1 to the same record (this will automatically update subform1 with the details).
View 7 Replies
View Related
Jul 25, 2014
I am trying to verify that there is no value entered in a text box on a subform before the main form closes. I have tried all manner of combination but continually get the statement that Access can't find the field referred to in your expression. I do have the names of all forms and fields correct.
Below are a couple of what I have tried. (SubassemblyFRM is the main form and ItemsSFRM is the subform and Description is the text field I am trying to check.)
Forms![SubassemblyFRM]![ItemsSFRM].Form.Description
Me![SubassembliesSFRM].Form.Description
I am trying to use it in this statement.
If Len(Me![SubassembliesSFRM].Form.Description & vbNullString) = 0 Then
what might be causing this error?
View 1 Replies
View Related
May 22, 2015
I have a form with a number of entry fields and after a button is clicked I write to an MS Sql datatable. Everything works fine as long as I put a value in each field. If I do not put a value in one of the fields the sql does not run and the record is not added / updated in the database. I have tried checking the length of the data in the field using
Ent_Length = Len(tb_TagDesc)
or
Ent_Length = Len(tb_TagDesc.Text)
or
Ent_Length = Len(tb_TagDesc.value) but nothing shows.
I am using Access 2007, 32 bit Windows 7
View 1 Replies
View Related
Sep 16, 2013
I have some code that sends an email when the database is registered. The problem is that depending on a users security settings on their PC they can stop the email from being sent (2007) How can I add to the code to make it check that the user hadnt cancelled the email?
My code is:
Private Sub btnRegister_Click()
Dim olApp As Object
Dim objMail As Object
On Error Resume Next 'Keep going if there is an error
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open
[Code] ....
View 2 Replies
View Related
Jun 5, 2014
I designed a simple form that has a listbox and a subform. I am using Northwind database for testing.
I would like to be able to display on a subform only records based on a value of a list box.
I created a listbox using a wizard and selected an option 'find a record on my form based on the value I selected in my list box'. This kind of works but it does not display all records matching criteria.
Attached print screen 1 shows my table and there are six records for 'Las Vegas' but my sub-form displays only three for Karen Toh (print screen 2) and all records for John Edwards are missing. I am not really sure how to fix this problem.
Ideally I would like to take this a step further and do another list box with Last Name and then filter data even further down so for example if I select Last Vegas and Edwards then the form would show me only matching records.
View 3 Replies
View Related
Apr 30, 2014
I have a form with a listbox in it. I want the listbox to update as the record changes.Let me get a little more in-depth...The form will be used to identify merchandise that exists in the company to fulfill current POs.
What I want is for the listbox (which displays Store Locations) to update when the PO# updates on the form (so as the record changes).Currently, the listbox only pulls all the store locations no matter if you hit next record to get a new PO.The two main fields I am working with are PO# (text box) and Store Locations (the listbox).How can I get the listbox to update as the record changes on the form?
View 1 Replies
View Related
Feb 5, 2014
I have 2 forms: frmExcEntry and frmItemSearch. frmExcEntry is a data entry form where the associate enters PO#, Item#, Qty, etc. frmItemSearch is a popup form that is used to narrow the search of the Item# from frmExcEntry. Right now, when the associate types the Item# (either PartNo or FactNo)in the txtItemNo control on frmExcEntry, frmItemSearch opens (frmExcEntry remains open) with all potential item #'s associated with the text entered in [txtItemNo]...(there could be multiple FactNo in our inventory system but PartNo is unique and the bound field for the control). frmItemSearch uses an unbound textbox (txtSearch) that populates with the text from frmExcEntry on txtSearch_GotFocus and queries a listbox with the list of possible PartNo to select. I want the associate to be able to double-click the accurate PartNo from the list box which will then update the value initially typed in txtItemNo and copy the PartNo over txtItemNo in the currently open frmExcEntry.
View 3 Replies
View Related
Jan 23, 2014
I have a form with a list box. This list box has a row source that I've set as a query for five different fields with a where clause. This where clause should pick up a value that is already within the form. And this is where I think it's going wrong, because if returns no results, but if I set it to point at the same value from another form (previous to this one, it does work). So there is something about the order or something so that this variable isn't passed to my listbox when it executes.
So, my list box has: select ID, title from table where ID = [Forms]![CurrentFormName]![ID]
and it doesn't work.However if I add a text field and set that to point at =[ID] then this does display the ID. And if I amend my query to point at this text field using the same convention above, that doesn't work either.
I presume I am mis-referencing, or there is something in the order that the listbox loads and it does this before the ID is set?
View 3 Replies
View Related
Apr 21, 2006
Hi, I'm new here, so I hope I'm posting this in the correct place. I've searched the forum to see if there are any existing threads that might help me, but I've not found anything that does...
(I think this thread ( http://www.access-programmers.co.uk/forums/showthread.php?t=93444&highlight=Copying+data )may be trying to achieve something similar to me, but I'm a beginner and don't really understand it)
I shall stop waffling! I'm not entirely sure that what I'm trying to achieve is possible, I expect it probably is!
Right, I have a form (frmGroupRegister, which contains exactly the same fields as the table it comes from, tblGroupRegister), which consists of three things:
-GroupDate - The date a group took place on. It is my primary key, as no more than one group occurs on a specific date.
-ParentList (A listbox which contains a query showing the ID number, forename and surname of everyone in a table, tblParentDetails)
-ParentsAttending (A blank listbox)
I would like to place buttons in between the ParentList and ParentsAttending, which would allow users to conduct a 'register' of attendance by copying individual/multiple details from ParentList into ParentsAttending (much like you get when choosing which fields to include in a form when using a wizard for example). I would also like them to be able to remove people from ParentsAttending by using a button in case of accidentally adding the wrong person into the ParentsAttending box.
I'm aware that another, probably simpler way of achieving this would be to use a tick-box system, but I feel that visually, the first method would both look better and demonstrate who is present more clearly.
Any help would be much appreciated, but my Access skills are quite basic and things will probably need to be spelled out for me.
I'm using Access 2000 and Windows XP.
Thanks for your help,
Alice :)
View 1 Replies
View Related
May 21, 2013
The following code searches for a record and if not found, the user is advised of that and allowed to re-enter the lookup stock number. Obviously, the code is only going to allow valid stock numbers. If the user clicks the 'Home' command button to close the form with an incorrect stock number in the lookup control, it is an endless exercise in advising of the incorrect stock number. I'm thinking of using the 'Home' command button as an escape. How can I tell if the 'Home' button was clicked? I have indicated where I believe it should be put.
Private Sub txtLookupNbr_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_txtLookupNbr_BeforeUpdate
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim lookup_Nbr As String
lookup_Nbr = StrConv(Me.txtLookupNbr, vbUpperCase)
[Code] .....
View 2 Replies
View Related
May 4, 2014
I'm in desperate need of a (simple I guess) code to allow me to send records from my listbox to a new form. Scenario goes as follows:
I use cascading combo boxes to narrow my available choices and finally end up with a listbox presenting the records filtered through cascading process. Now, I want to double-click on a record and load a new form with all this record's fields.
This is the code used to populate the listbox:
Private Sub FilterTypeList()
Dim strRS As String
' Filter the list box appropriately based on the combo box selection(s)
strRS = "SELECT qryTaxonomy.Type, qryTaxonomy.Article FROM qryTaxonomy"
[Code] ....
What is the code to open a form with the double-clicked record's fields, as described above?
View 6 Replies
View Related
Feb 10, 2014
I've designed access form with one listbox and added 'up' and 'down' buttons to move up and down the selected item in the listbox. i.e from its selected position to one item up when 'up' button clicked and same as one item down when down button is clicked. Any VBA code will do this functionality?
View 7 Replies
View Related
