I have this code:
If Me.OpenArgs = "frmAddChecklist" Then
Set ctlCombo = Forms!frmAddChecklist!cbDEPARTMENT
ctlCombo.Requery
End if
And this code is done after I added new value to table, and now I want that new value to be used as default one, how can this be done?
I have a form which contains two sub forms. In the first subform I have 4 fields of Cut#, Size, Quantity and Style. Once the cut# is selected, a vba code runs and fill in the rest of fields. In second sub form I have a field of Fabric# (Combo Box) which should be restricted to the Style value on the first sub form. I have a query which contains the Fabric# and Corresponding style and I try to write a vba code to requery once Style value changes.
View 14 Replies View RelatedI have a listbox on a form with several fields, 3 of which are currency fields.When I filter the listbox using afterupdate from a combobox on the same form, the listbox loses the currency format on the fields.
Code:
cboprop_AfterUpdate()
Dim ListFilter As String
ListFilter = "SELECT [qry_inv_form].[inv_no], [qry_inv_form].[prop_ref], [qry_inv_form].[inv_date2], [qry_inv_form].[inv_desc_type], [qry_inv_form].[inv_net], [qry_inv_form].[inv_vat], [qry_inv_form].[inv_total], [qry_inv_form].[year_month], [qry_inv_form].[month_text] " & _
"FROM qry_inv_form " & _
"WHERE [qry_inv_form].[prop_ref] = '" & Me.cboprop & "'"
Me.inv.RowSource = ListFilter
Me.inv.requery
I tried wrapping the fields in Format(fieldname, "Currency") but that came back with a syntax error.
Hi Everyone,
I hope someone can help.
I have a form with a combo boxes and a table with relevant list and additional field, fldDefaultDrive (Yes/No Field).
Currently in order to set the default value, I have used the following code for each default;
Private Sub Form_Load()
Forms!frmMediaLabeller!CboDriveName.DefaultValue = """D"""
End Sub
However, I want users to be able to go into the table and change the default value if thier CD player default Drive is anything but D: Drive. I have tried to replace the D above with an SQL statement but with no success.
Private Sub Form_Load()
Dim Drivename As String
Drivename = SELECT tblMediaDrive.fldDrivename FROM tblMediaDrive WHERE (((tblMediaDrive.fldDefaultDrive)=-1));
Forms!frmMediaLabeller!CboDriveName.DefaultValue = """Drivename"""
End Sub
This is definetly not working, can anybody help, I have a feeling it is syntax but not sure where? :confused:
Robert88
Hi - My first time here, and I am fairly new to Access, but getting on OK. So as ever, be kind.
I have spent several hours reading this forum and learnt a few things, and been completely confused by other things. My Job is IT but Software, Networks etc configuration rather than programming.
I am trying to help a charity out by building a database for their Sportsday.
I have a Parent Form Called Team, with Sub forms in Tabs for Team Details, Competitors etc.
In the Team Details, They can Choose the Hospital and Team Manager.
I have a Combo box with a lookup query, which looks up the Manager. However, rather than just display a last name, I have changed the SQL behind the (Properties - Data - Row Source), so that I get a concatenation of the Surname and First name:
SELECT tblCompetitor.CompetitorID, [surname] & " " & [Firstname] AS Fullname FROM tblCompetitor ORDER BY tblCompetitor.Surname;
All Works fine
I know I can use a "Not In the List" command, but initially they want a button to open an Add Manager Form.
No Problem except when I close and try to enter the New Managers Details in the Combo Box and requery.
I have a button to close the Add Manager Form and requery the Manager Combo in the originating Form
Private Sub CloseCompetitorsEditPopUp_Click()
On Error GoTo Err_CloseCompetitorsEditPopUp_Click
Forms![frmTeam]![ChildTransplantTeam].Form![Manager] = Me.CompetitorID
(the Manager field is a lookup from the Competitor table)
Forms![frmTeam]![ChildTransplantTeam].Form![Manager].Requery
DoCmd.Close
Exit_CloseCompetitorsEditPopUp_Click:
Exit Sub
Err_CloseCompetitorsEditPopUp_Click:
MsgBox Err.Description
Resume Exit_CloseCompetitorsEditPopUp_Click
End Sub
This code works fine if I just use the Managers Surname as the Data Field, but leaves a blank field in the Combo Box if I am displaying concatenation, until I do some sort of refresh.
Any Ideas if I can do this seamlesly as it is driving me potty.
I am a newbie to access and am having some difficulty with a subform. I have searched the forum, but could not find an exact match to my problem.
The following is a simplified version of my problem:
Tables: TSerialNumber, TLocation, TSubLocation(Location and SubLocation Fields)
Form: ServiceForm
SubForm: ServiceSubForm
Form and SubForm linked by SerialNumber
In the SubForm: I have 2 ComboBoxes: Location, SubLocation
Location - Row Source is the Table TLocation
SubLocation - Row Source is a Query of SubLocation relating to the Location
I need the SubLocation field to be requeried OnChange from the Location ComboBox.
If I use the subform as a form I can get this to work by using a macro to requery the SubLocation, but when I try to use it as a subform I get an ApplyFilter Error.
Thanks in advance for any help.
This is a bit of a weird one.
I have a combo box in a subform that has a hyperlink to open another form which in the on click event of the hyperlinked form saves the new information and should then update the combo box in the original subform.
i figured i would use a requery to accomplish this. Using the syntax
Forms!Student!sfrmDDS_Classes_add.form.requery
This doesn't error out, but it defenitely doesn't update the combo box within the subform.
Any suggestions
I have a subform that contains two combo boxes, 'cboPrimary_Source' and 'cboSecondary_Source'. When you select the primary source e.g. 'Direct Mail' a number of related options appear for selection in the secondary source combo box e.g. Letter, Email, Fax. When you open the subform only, this works just fine using the requery.
However, when you open the main form 'Prospects' where the subform sits it does not work. The primary source combo can be selected, but when you select the secondary source combo an error message appears 'Enter parameter value: Forms!Subdatasheet_Subform!cboPrimary_Source'.
The code used on the Subdatasheet_Subform is as follows:
Option Compare Database
Private Sub cboPrimary_Source_AfterUpdate()
Me!CBOSecondary_Source.Requery
Me!CBOSecondary_Source.SetFocus
End Sub
Private Sub Form_AfterUpdate()
Me!CBOSecondary_Source.Requery
End Sub
Private Sub Form_Current()
Me!CBOSecondary_Source.Requery
End Sub
Any suggestions would be gratefully received!
Hello,
I have a form with a text box, a combo and a listbox.
The textbox stores the name of the user.
The combobox gets its data from a query.
I would like that when I open my form, by default the list box will show all the records of a table named Master and then, I would use the combo to requery the list by selecting another user. All records under that criteria, will have to show up in the list box.
Any help? Thank you.
I have a recordclone combo box for navigating between 240 company records, so the form will go to the correct record on updating the combo. Instead of clicking on the down button and scrolling through the list, I would like to enter letters into the box and update the record source automatically as I enter them.
I'm not sure what events to use since there appears to be very subtle differences between them (eg between 'on dirty', 'on change' and 'before update').So when I type in 'T', only those companies that start with 'T' are viewed in the combo box.I have discovered the VBA 'dropdown' command which would be useful for the user.
Code:
company.dropdown
Table_Company
Company_ID: autonumber
Company_name: text
The name of the form is "form1" and the combo box name is "company".The record source for the combo box is "query_company". In the form the ID field is hidden and the company name is not hidden.The criteria I have for the combo would be something like this.
Code:
SELECT Table_Company.Company_ID, Table_Company.Company_name
FROM Table_Company
WHERE (((Table_Company.Company_name) Like [forms!]![form1]![company] & "*"));
I have an application where I have developed a tabbed user input form with several tab pages to populate several tables with data using the master/child linking philosophy. There is one subform in particular that has two combo box fields that are related. I have them both set up to display value choices based on an undelying query. I want to restrict the scond box's choices based on the choice made in the first box and have written the following code to be applied after the first combo box is updated.
Private Sub RteGroup_AfterUpdate()
Form_Routing.OpType = Null
Form_Routing.OpType.Requery
Form_Routing.OpType = Form_Routing.OpType.ItemData(0)
End Sub
This effectively limits my second combo box choices based on the selection of the first box. It works fine if I run the subform individually but if I run it as part of the master form in tabbed mode I get an "Enter paramter value" dialog box asking for the value of the first combo box. it appears the requery is not functioning under the tabbed mode.
New to access...just build a form, in which there are combo boxes....cascading of boxes was done.
Now the problem is I want afterupdate function to get activated when user changes the value of one combo....for which I have created a code in code builder... see the code... I think I am making a mistake in writing the code to requery...
How do I requery the list box in the form after the combobox is updated? the name of the combo box is txtFilterClassName.
View 3 Replies View RelatedI have a set of cascading combo boxes. When a value is selected in Cat 1 ID, it narrows down the selections in Cat 2 ID which narrows down the selections in Cat 3 ID.
However, the values don't show up for columns Cat 2 ID or Cat 3 ID until I enter the row. Then I have it set to requery the fields because the underlying data isn't populated. But then when I leave the row, the values go away.
Why doesn't it show the underlying value from the table? Each column is bound to a field in a table - I would assume that the recorded value would show up. Did I miss something easy?
I've attached a picture of exactly what I mean.
Scenario: I have a combo box in an evaluation db that is set up to return 3 columns - EmpID, Name, JobID. The combo box only shows Name, but properly updates the neccessary fields on the screen.
Problem: I would like to turn the JobID txt box into a combo box that would default to null prior to a Name selection (on a new record) and then default to the recorded JobID after Name selection. 99.9% of the time, this won't be used, but occasionally an employee will receive an evaluation for a JobID they did, but were not officailly assigned.
The right way to do it would be to create a second record in the primary system that I am polling the data from, but that is not feasible given the nature of that system.
Any ideas?
-Brian.
I have a subform in a tab within a mainform. Within the tab there is a button to open a form to delete/add data to the subform. So upon closing this pop up form I want to update the subform to show what has been deleted or added, I have tried the various things to requery the subform but none of it seems to work, here is what I have tried;
Code:
Forms!frm_Capex_Submission!frm_CapexSignatures.Requery
I assumed this would work but evidently not...
I have also tried;
Code:
Forms!frm_Capex_Submission!frm_CapexSignatures.Form.Requery
and;
Code:
Forms!frm_Capex_Submission!frm_CapexSignatures.refresh
I want a command button to "Requery" a combobox. the combobox uses a query to determine the records listed (it lists incomplete records). after completing the record, i'd like to hit a command button that will "requery" the combobox so that the recently completed record is no longer listed.
I tried this:
me.nameofcombobox.requery
But the completed record was still listed.
I have a DCount code that traps duplicate records in the database and gives a message box. (the dcount is based on 2 criteria that are a compound index) I would like to have the message box ask if the user wants to go to the duplicate record. How would I write the code that when the user clicks yes, the form requeries and opens to the record that matches the criteria? Is there a way to add criteria to a requery?
View 7 Replies View RelatedI have a form frm_GlobalSettings with a combobox cmbDescription that finds a record based on the value selected. The row source type for cmbDescription is Table/query, and the row source is a select statement on the form's underlying table.
I want the user to be able to use cmbDescription to add a new record to the form's underlying table. I currently have
Code:
Private Sub cmbDescription_NotInList(NewData As String, Response As Integer)
Dim strTmp As String
'Get confirmation that this is not just a spelling error.
10 On Error GoTo cmbDescription_NotInList_Error
20 strTmp = "Add '" & NewData & "' as a new global setting?"
[code]....
but when a new value is entered this errors on line 70 with "runtime errror 2118 - you must save the current field before you run the requery action".I've tried various ways around this but can't get it to work.
I have a main form that the user will enter data. Once they hit a submit button, it saves the record and I was hoping it would also refresh the form in which is populated by a query. The form that is linked to a query will be displayed on a monitor 24/7. It will display pending orders. So I was hoping as new orders are placed, the query would display them without needing to be closed and then reopened.
Here is the method I'm using but it's not working.
Code:
DoCmd.Requery "frmPDMonitor"
can anyone tell me how i can have the default value of the combo box field as the first value in the combo box drop down list?
View 3 Replies View RelatedHi guys,
I'm obviously doing something stupid in my form :-) If you open the form in the attached sample you will see that I have 2 combo boxes. One of them has a default value showing and the other doesnt, I want to get the second combo to automatically show the value in the list but just cant seem to get this to work...
I cant work out whats different bewteen the two. Been tearing my hair out here so would appreciate some input.
Thanks in advance
Hi guys,
In my form I have a combo box that is bound to a product/specification table.
When clicked, this combo box displays a list of products, each with its respective set of specifications (although I configured it so just the product column can be seen.) The reason I do this, is so that the specification values (against which certain other values in the form is critiqued) will be a static value in the form itself, and not a changeable value in a table.
What I want to do, however, is to let the combo box assume a default value when the form load (it must already have a product selected at start-up.)
How can I do this?
Thanks ahead!
Hi all,
Can some one help me with how to set a default text on a combo box whose record source is set to a query?
I have a form with two combo boxes. The first combo box’s record source is set to the following query:
SELECT chrCategoryID, chrCategoryName
FROM tblGuarCategory;
My 2nd combo box will list all the items based the category I select on the first combo box.
But when the user opens the form, instead of showing both combo boxes blank, I would like to display the following text:
Combo Box1: Select a category
Combo Box2: Select an item…
I tried to use the combo box’s Default Value property like = “Select a category”. It didn’t work. I am not sure what is missing here. I appreciate your help.
I am sure this is a very basic problem but I just can't seem to make it work...
I have a form with a combo box. The values for the combo come from a table listing available month and year of various data. When the vlaue is selected in the combo box, the form refreshes the data to display that month and updates another table with that month that is used for a few different functions. Everything works great except that when you open the form, there is no value displayed in the combo box. What I would like for it to do is display the month that is equal to the value found in the second table, since that is considered to be the current month. I have tried various approaches to setting the default value and using a query in the control source but It still shows no value when opened. Any advice would be appreciated....
Hello,
I have a form with a combobox which has its record source to a table which has 5 records.
Is it possible to open the form so that by default the combo shows a specific record?
I have tried something like this but does not work:
On Open event
Me.Cbo = "ID"
ID is the record I need to show.
Thanks.