I have subform which uses a SQL statement as the record source.
One of the criteria (ie. Part of the WHERE condition) is a column value from a ListBox on the MainForm.
Two problems exist:
1. When the MainForm opens, I get a "Enter Parameter Value" window, asking me to input
the value it should be getting from the ListBox. (I suppose this is fair enough, as the ListBox hasn't been
created/populated yet!)
2. When the ListBox is there, when I click on a row, I still get the "Enter Parameter Value" window!
-I'm using a Requery on the Subform's control on the MainForm when the row is clicked.
-A MsgBox within the OnClick event, is giving me the value that the SQL statement should be using!
But the Subform doesn't seem to want to 'see' this value.
This one is driving me NUTS! I have a form with a combobox, a few textboxes, and a sub-form. On Load the form is populated with a sql command/rcSet.Fields() results. The user then chooses a status from the combobox to narrow down the results. The combobox OnChange event looks like this... sDate = Forms("frm-MENU").txtS_Date.Value eDate = Forms("frm-MENU").txtE_Date.Value xJob = Forms("frm-HD/DVR_CC").lstJob.Value
On Error GoTo hd_dvrErr 'this gets the top of the HD/DVR form sSQL = "SELECT Count(*) AS Total, Sum(IIf([pmt_meth] In ('C','E'),0,1)) AS Error, Sum(IIf([pmt_meth]='C',1,0)) AS [Credit Card], Sum(IIf([pmt_meth]='E',1,0)) AS EFT " & _ "FROM [tbl_HD/DVR_CreditCard(*)] " & _ "WHERE ((([tbl_HD/DVR_CreditCard(*)].CDATE) Between #" & sDate & "# And #" & eDate & "#) AND (([tbl_HD/DVR_CreditCard(*)].JOB_TYPE) Like '" & xJob & "*'));"
Set db = CurrentDb() Set rcSet = db.OpenRecordset(sSQL)
With Forms("frm-HD/DVR_CC") .txtTotal.Value = rcSet.Fields(0) .txtError.Value = rcSet.Fields(1) .txtCC.Value = rcSet.Fields(2) .txtEFT.Value = rcSet.Fields(3) End With
'this gets the bottom or subform of the HD/DVR form sSQL = "SELECT IIf([Agent]='UNKNOWN','xxxxx',[REP]) AS [Agent ID], [tbl_HD/DVR_CreditCard(*)].Agent, [tbl_HD/DVR_CreditCard(*)].JOB_TYPE, Count(*) AS Total, Sum(IIf([pmt_meth] In ('C','E'),0,1)) AS Error, Sum(IIf([pmt_meth]='C',1,0)) AS [Credit Card], Sum(IIf([pmt_meth]='E',1,0)) AS EFT, Sum(IIf([pmt_meth] In ('C','E'),0,1))/Count(*) AS [Error Rate] " & _ "FROM [tbl_HD/DVR_CreditCard(*)] " & _ "WHERE ((([tbl_HD/DVR_CreditCard(*)].CDATE) Between #" & sDate & "# And #" & eDate & "#)) " & _ "GROUP BY IIf([Agent]='UNKNOWN','xxxxx',[REP]), [tbl_HD/DVR_CreditCard(*)].Agent, [tbl_HD/DVR_CreditCard(*)].JOB_TYPE " & _ "HAVING ((([tbl_HD/DVR_CreditCard(*)].JOB_TYPE) Like '" & xJob & "*')); "
Set qdTemp = db.QueryDefs("qry_HD/DVR") qdTemp.SQL = sSQL qdTemp.Close
If Not Forms("frm-HD/DVR_CC").FormFooter.Visible Then Forms("frm-HD/DVR_CC").FormFooter.Visible = True Else 'DoCmd.Close acForm, "frm-HD/DVR_CC(Footer)", acSaveNo End If DoCmd.OpenForm ("frm-HD/DVR_CC(Footer)"), acNormal, , , , acHidden Forms("frm-HD/DVR_CC(Footer)").Recalc Forms("frm-HD/DVR_CC").Refresh Forms("frm-HD/DVR_CC(Footer)").Refresh ' DoCmd.MoveSize Height:=Forms("frm-HD/DVR_CC(Footer)").WindowHeight + Forms("frm-HD/DVR_CC(Footer)").FormFooter.Height
I have used similar code on another form and everytime the search criteria changes the sub form updates to reflect such. I know I am missing something small; can somebody please point it out?:D I need to have the subform show the updated (choice from combo) criteria.
If this seems to cloudy, please let me know and I will try and revise
I have created tables to capture information from a form (see attachment for relationship diagram).
I have created a form with a subform based directly on the tables. Entering data in the main form works fine but when I try to add a record on the subform I receive the error: "Field cannot be updated". Clearly I have made a mistake creating the table relationships.
Parent form/table, with a subform (separate table, 1:M link on "ID") The parent form data stays fairly constant (occasional change/update), with multiple entries in the subform for each parent record which are added to more frequently The master table has a field "last interaction" which I need to update whenever a new entry is made in the subform/subtable It updates fine when I change an entry in the parent table/form, but not when I add a new subentry for that parent
I have a form and a subform based off a query, I am trying to run a SQL update statement from one of the fields in my subform. I know what fields in my table i want to update but the Where part of the statement is what i am having a issue with.
DoCmd.RunSQL "UPDATE [Daily Work] SET [Daily Work].QC_Start_Date = Date(), [Daily Work].QC_Start_Time = Time() WHERE ((([Daily Work].CUS)=[Forms]![QC_Queue_Qry Subform]![CUS]) AND (([Daily Work].LN)=[Forms]![QC_Queue_Qry Subform]![LN]) AND (([Daily Work].Note_Date)=[Forms]! [QC_Queue_Qry subform]![Note_Date])))"
What this is trying to do is once the the field is updated i want to set the date and time of that record in my table, basically I am trying to time stamp the record when the field in my subform in updated.
I'm running into an issue with my forms. I have a form that contains a subform, that contains a list of projects. This list is read-only. To update a record, you can double click on it, which opens another form filtered on this record, and which contains the fields in the first form as well as some others.
I have a command button on that last form to "Save and close", which fires up a macro that saves the record and closes the window.
Now, the issue that I'm having is that, when the window closes and I'm once again in front of the first form with the list of projects, the values of the record I changed are not updated and when I click on another record, Access tells me there's a conflict in the values and asks me if I want to keep the changes, discard them or copy to the clipboard.
It seems to consider the old values from the first form as a change, and thus asks me which to keep between these, and the actual (proper) changes I made in the dedicated form.
For the proper changes to be applied, I need to select "Drop changes".
I tried to requery the first form, also undo the changes to it after closing the window, but none of that worked.
I'm actually basing this on one of the templates, which does exactly what I want and which obviously works...
I have a form, and this form contains a list box which displays data from a query. When you double click on the list result it displays the results on the form. (This is done by some visual basic code)
The query which is the source of the list box works so that it displays just the results for that client, with this everything is perfect as an individual form.
However this form is a subform for another form and the subform is placed in a tab. And when i load the form it:
1. Can't find the field to filter the list box to each specific client.
2. When i double click on anything in the list table it displays an error "can't find the form 'frm_jobs' referred to in macro expression or visual basic code".
As it works perfectly when the forms loaded separatley. Im a bit stuck to what the problem maybe.
Hi All, Thank you for taking the time to read and/or help.
I have a mainform which I call frm1930Census this form has a tabbed form with two subforms one called sbf1930CenHeader and the other called sbf1930CenDep.
On the sbf1930CenDep form, I have a field called FTMID and a command button which opens a popup listbox search form called LstDepSearch.
The listbox has three columns FTMID, LastName, FirstName. The FTMID field is hidden. The popup form in theory stays open until the user double clicks the appropriate person and then have the FTMID field on the frm1930Census.sbf1930CenDep.fTMID fill in.
This is what I have....
Private Sub LstDepSearch_DblClick(Cancel As Integer) Forms.fm1930Census!sbf1930CenDep.Form!FTMID = Me.LstDepSearch.Column(0) DoCmd.Close End Sub
The five listbox controls each show the list by the IngredientType, so one listbox shows vegetables, another Meat, and so on. Multi-select is turned on for each listbox. Here is what I want to do: In the form I want to have a subform that will show what the user clicks in listboxes. This running list, with an extra column next to it that will accept a number. Example: say the user selects 'Ham' from the meat listbox. The subform should then show 'Ham' and a space next to it where he can type an integer (allowing for more meat).
Subform:
Ham | 2 Lettuce | 1 Mayo | 1 Subroll | 1
If the user de-selects the item in the listbox I'd like the subform to delete the item from itself.
I have a Listbox that I want to use to go to a record on a subform. I know that it cant be done with the wizard.
The records that I am looking at don't have an ID so I want to look at both a date field [TrainingDate] and a Time Field [TrainingTime]. I have set the querry up and the list gets populated with the correct information. And I have added the following code to the AfterUpdate Event
I will have a ListBox on the form with “Multi Select” set to either simple or extended. I have a collection of documents which must be recorded in a database. Some documents may have only one author, but could have more. Same with the recipient or copied-to.
Ideally it would be nice to have the ListBox on the left, selected one or more from the list and then pass them to one of the three fields by a command button, sort of like:
I would like to have all of the names selected from the ListBox as a string, but fully understand the problems associated with normalization. Other posts have suggested subforms. So, the question is how to select from the ListBox and then pass the possible multiple selections to discrete fields on a subform that would display, say three fields and which would get away from the normalization issues:
The secondary issue will be that there will be subsequent names which are not found until actually in the process of document review which will create a need to update the ListBox, which I know is not akin to a ComboBox NotInList function.
If there are any thoughts or coding out there which will help, it’d be appreciated. Lawguy
I'm new to MS Access but I'm trying to do subcontractors database for my company. I've got a menu form with to listboxes on it. First listbox is a subcontractor name if I choose the name the second list box will show me the names of the emplyess attached to this subcontractor. Second form is subcontractor details with emplyees subform. If I will dblclick subcontractor listbox it takes me to record with subcontractor but I can't figuret out how to do that if I dblclick the employee listbox it will take me to appropriet subcontractor detail and to wright employee details. PLEASE HELP ME. I'm strugling with this. Thanks
I've made it to set focus to subform, but if I will choose a subcontractor from the first listbox and dblclick on lstEmployee it is choose wrong record of the employee. Have somebody have an idea what I'm doing wrong
I don't know how to attach the file,can sombody tell me how.
Code of this listbox:
Private Sub lstEmployee_DblClick(Cancel As Integer) DoCmd.OpenForm "Subcontractors", acNormal, "", "", , acNormal DoCmd.GoToRecord , , acGoTo, Forms!Menu!lstSubcontractor Forms!Subcontractors!tblEmployeesubform.SetFocus Forms!Subcontractors!tblEmployeesubform.Form.Emplo yeeID.SetFocus DoCmd.GoToRecord , , acGoTo, Forms!Menu.Form!lstEmployee End Sub
I think last line makes me those troubles but I don't have an idea what is wrong.
I am trying to get my VBA to filter the subform, as currently it does nothing! I have copied it from a source on another forum and at the end of the VBA it originally opened up the query.
However I am trying to tailor this query so that instead of it opening the query I can have a datasheet on the form that displays the filtered records..
There are 3 multiselect listboxes
Here is my code
' This code uses ADO and ADOX and is suitable for Access 2000 (and later). ' A reference must be set to Microsoft ADO Ext. 2.7 for DDL and Security. Private Sub cmdOK_Click() Dim cat As New ADOX.Catalog Dim cmd As New ADODB.Command Dim qry As ADOX.View
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 :)
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.
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?
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
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?
Hi.. I am trying to add data to the table. Is there any way that if i add data to the table the forms associated with it get updated automatically. It seems that when I update the form it works fine with table ,but if its the other way around it doesnt work. Any solutions..
I have a form based on a query I built that calculates time worked. you select the worker in a combo box which I created from a query that lists all active employees and their clock no. with clock no being the bound column. The drop down shows the workers last name, first name. When I choose a worker it always gives me a warning the the "Field can not be updated" but after i hit okay it stores everything in the correct field. Why am I getting this error? I tried using just my query and it works perfectly but when I try to use my form is where i run into problems. If you need more info let me know.
