Forms :: Swap Values In Comboboxes With Requery Applied?
Jan 13, 2014
I have two comboboxes on my form. When the value of the first combobox (SourceWH) changes it performs a requery on the second (DestWH) as the drop-down list needs to be filtered depending on the first value. I have this working fine but my problem arises when I need to be able to swap the values of each combobox. I have created a command button which stores the value of each combobox and then swaps them but my problem is that if I click the button the second combobox becomes blank. I guess this is something to do with the requery taking place after the value of the first combobox is updated but am unsure how to rectify this problem.
The first combobox has the following expression in the expression builder:
Action Argument
Requery DestWH
The command button has the following code:
Private Sub Swap_Btn_Click()
Dim SourceValue, DestValue As String
SourceValue = Me.SourceWH.Value
DestValue = Me.DestWH.Value
Me.DestWH.Value = SourceValue
Me.SourceWH.Value = DestValue
End Sub
I have sever forms and selecting a Theme Font work fine with all except one form.
The field is a Memo Field (I have other forms with different memo fields and they are fine) that just doesn't want to use the Theme Font(s). I have several Theme Fonts and it doesn't work with any of them.
So far I've deleted the control saved it and then put it back... no good. I even created a new form and the same thing happens.
Hi! I have a problem combining values of comboboxes, let me explain me better...
I have a text box and two comboboxes on a form First, you introduce a data on the text box, then you select something of one of the comboboxes
the third combo box have to have the value of the text box and the value of the combo box separated by a comma or a space. Please help me with this. I need to finish this database soon:confused:
I have a frmOpenReport which has 7 combo boxes linked to 7 Query's.
I have found code to add selected values from one combo box from a button 'Open Report' to a report but struggling to find how to select selected values from all comboboxs and add to a report.
My code so far.
Option Compare Database Option Explicit Private Sub cmdOpenReport_Click() On Error GoTo Err_cmdOpenReport_Click Dim strWhere As String Dim ctl As Control Dim varItem As Variant 'make sure a selection has been made If Me.HLO.ItemsSelected.Count = 0 Then
I am quite new to Access and have been working with a sample DB from Microsoft. I have been looking for some ways to filter a report based on the values in some comboboxes, and have followed the instructions on a website (can't post link yet).
I also looked at this file (**can't post link yet**) and it seems like everything works fine here. So I started a new DB with my own table, and tried to do the same thing as in this file.
Everything works fine.
But when I try all these steps in my own DB (the sample DB from Microsoft), it doesn't work.
When I filter by "Status" (f.ex: "In Progress" or "Not Started"), it seems to work fine.
However, when I filter by "Assigned To", I get the following error message: "Data Type Mismatch in criteria expression". So I googled this error message , but this field has nothing to do with any date formatting.
It gets even stranger when I try to filter by "Project":
Then a new pop up appears and asks me to enter the "Project".
Using Access 2013, what would cause a one-to-many relationship to work ONLY in one direction? Say from Table A to Table B, and when I attempt to change the direction of the relationship, so that is should be Table B to Table A, it doesnt work. I dont get an error, but Access reverts any changes I make while in the Relationship Design. I have four tables: Renter, Location, Condo, and Agreement.
I can link RENTER to AGREEMENT using the RENTER_NUM field, which enables one renter for multiple agreements. I can link CONDO to AGREEMENT using the UNIT_NUM field, which enables one condo for many agreements, but I need AGREEMENT to be the one side and CONDO the many.
The problem is Access will lead me to believe I can change the sides, but when I create it after making my selections in the Relationship Design window, it reverts back, and doesnt even give me an error or a reason why. I closed out of Access and tried it again but same thing.Could it be related to the AGREEMENT table using two foreign keys as primary keys?
I Have A Form With A Combobox When I Choose A Record from The Box, The Matching Info From The Table Populates A Textbox Example I Choose The Acct Number From The comboBox And The Company Name Goes In a Textbox and the phone number in another textbox looks like it is fine on the form My Problem Is That When I Look At The Table The Company Name Is In Its acctName field But The Account Number Field Has The Companies Name Aswell How Do I Fix This- and also if you type the number in the acctnumber field on the table it places that number in the acctname textbox of the form there is something that is mixed up here but i dont where
I usually use ComboBoxes to show a user-friendly name instead of an ID. For example, I would use a ComboBox of EmployeePK, FirstName + " " + LastName and set the first column as the control source but with 0" width.The issue is these are supposed to be read only. I can prevent the user from changing the field but I don't have a good solution for hiding the ability to select the drop down.
My current method is to create a transparent box over the combobox (so it can't be selected) then hide the dropdown arrow with a background colored rectangle.
In my database you can search on either number or name. I have therefor, two combo boxes. and it works well, except that...
When I pick by number first, and then try to pick another record using the name combobox, the number combobox still shows the first search I did. I would like the two comboboxes to interact with each other...
I am trying to get get 2 comboxes to refresh from one when cascading. The first combobox (Location) works, but the second one (Catches) doesn't. All I get are the Key values of the catches rather than the values...
I am wondering if it my relationship set up of if my VBA needs to be altered to accommodate the requering the two comboboxes.
Code: Private Sub cboCategory_AfterUpdate() Dim sCatchLocation As String Dim sCatch As String sCatchLocation = "SELECT [tblLocation].[Location_ID], [tblLocation].[LocationCategory_ID], [tblLocation].[Location] " & _ "FROM tblLocation " & _
- My second table contains if it is hardware or software:
- TypeID (Primairy key) - ApparaatID - Type (where I entered hardware and software in 2 different entries)
- The thirt table contains operating systems:
- OSID (Primairy key) - ApparaatID - TypeID - OS_versie (where I entered all the OS I want to enter)
Now I made a form I called problemen with 4 comboboxes.
- cboApparaat - cboType - cboOS - cboProbleem
1) What I want is that when you select device 1 and 4 that cboType can select both hardware and software but with device 2 and 3 you can only select software.
2) If you have selected software is cboType I want you to be able to select 1 of the 11 OS I have pre-entered in the table.
3) That you get specific problems with the previous made choices. For example if you select Hardware in cboType, thta you only get problems with hardware to select from and the same with software and OS.
4) I want a textbox, that will contain the solution of the problem you selected and that if there and several solutions that you get all of them at once.
1) How to auto fill in a text box if you select a value from the last of 4 cascade comboboxes.
I have 4 comboboxes where
1 = Apparaat - cboApparaat 2 = Type - cboType 3 = OS - cboOS 4 = Probleem - cboProbleem
With all 4 comboboxes I have the vba code Me.cbo[name combobox].Requery
If I select the last combobox, cboProbeem. I want the textbox underneath to automaticly fill in the solution of that problem. I already tried to use the following vba code
Me.Oplossing = Me.cboProbleem.Column(5)
But it does not work.
2) I want to make a form for customers, where I can fill in customer info, device info and date when there contract started. Now I want to use SUM to fill in the end date of there contract.
I have an unbound list box that updates the data displayed on the form when a selection is made from the list.
Private Sub List13_AfterUpdate() ' Find the record that matches the control. Dim R As Recordset Set R = Me.RecordsetClone R.FindFirst "[HospitalID] = & '" & Me![List13] & _ "'" Me.Bookmark = R.Bookmark Me![List13].Requery End Sub
I am having problems with this no longer working once I import the database objects into a secured database. I am encountering an error "Compile Error: Method or data member not found" with reference to the list box in the "findfirst" statement. I have tried this many times before and after the security and the results are consistent. I was otherwise ready to go with this new database. Any insight would be appreciated as always. Thanks.
I tried and failed to get this to work using a multiselect listbox..I have a list of departments in tblFunctionalArea...My main table is tblStatic..I want to be able to for each record select multiple departments affected by a record and store them in the tblStatic.After looking around i couldn't find many people successfully maanging to store listbox values in a table...
I decided to create 5 fields in tblStatic and in my form create multiple combo boxes cboFunctionalArea1, cboFunctionalArea2 etc etc which are bound to these fields.I want to be able to ensure the list for any combo box requeries and takes out any selection in the other boxes.
I have this working in a strict cascade fashion i.e. in cbo1 all dept's visible, in cbo2 it takes off whatever was selected in cbo1 etc. But if someone then jumps back and deletes the content of cbo3 then the whole thing breaks or if they amend in the wrong order it breaks
I have a field in a table called [PostalCode]. It is a Text field.
I have a report that used the [PostalCode] field. This is a report in a template that I downloaded from Microsoft.
If I enter "1234" in the field in the table, it looks fine in the table.
If I use the field in the report, it display as "1234-"
If I enter "1234567890" in the field in the table, it looks fine in the table.
If I use the field in the report, it display as "23456-7890"
I do not want any mask whatsoever and just want the value to be displayed as the user enters it.
I have looked at the properties of the field and there is nothing setup, I looked at the properties of the Form that edits the field and there is nothing also.
If I look in the actual report I see the following bit of code ,it is the control source for the Text box that is used to display a number of fields including [PostalCode]:
=DLookUp("[Suburb/City]","My Company Information") & ", " & DLookUp("[State]","My Company Information") & " " & Format(DLookUp("[PostalCode]","My Company Information"),"!&&&&&-&&&&")
I have a table and it is like this 1 a 2 b 3 f let's assume i want to add new data {C} so it will be like this : 1 a 2 b 3 f 4 c
Is their any way i make the table look like this 1 a 2 b 3 c 4 f can i force the auto number to change according to the filter applied on the table is their a numeric field can be used instead on auto number that can be changed according to the filters
In my Access 2010 database there is a form with a large number of checkboxes enabling me to select/deselect certain record details.
Each click on one of the checkboxes triggers a VBA routine setting true/false values in one of several tables linked to the main table.
A query over all records is filtered by the true/false values of the linked tables and the resulting set of records is displayed in the (continuous) form.
The header of the form contains a text field with the value "=GetRecCount()" displaying (correctly, but randomly fast) the number of records selected:
Code: Function GetRecCount() As String Dim NumRecs As Long Dim rs As Object On Error Resume Next Set rs = Forms![Super Search].RecordsetClone rs.MoveLast NumRecs = rs.RecordCount Set rs = Nothing GetRecCount = Format(NumRecs, "##,###") End Function
Now, the funny thing is that each click on one of the boxes results in 1 call of the VBA routine setting table values, but 21 calls (!) of the text field "=GetRecCount()" in the form. I have established this by incrementing a public variable at each pass.
Why a field in a form is updated 21 times when a filter is applied?
I have been reading a earlier post regarding requerying forms
Forms are displayed on other form by means of a SubFormControl. It is the name of the SubFormControl that is needed. This is often the same as the SubForm but it is *not* a requirement. In your case you will be using two SubFormControl names, one nested within the other. Just for the record, you Requery forms and not fields.
How do you find out the name of the SubFormControl. I am trying to refresh sub forms and I am trying to use the following code.
Private Sub Form_AfterUpdate() Forms!MainFormName!SubFormControl.Form!SubSubFormC ontrol.Requery End Sub
I have 2 forms, "frmMainClient" and a subform "frmjob" and I have a command button on the "frmJob" which brings up a pop up form " frmJobNew". I fill out the fields and save via a command button.
When I look at the "frmJob" the new record I have entered is not there. It is there if I close all the forms and then open them again.
I know I need to requery the forms but I am not too sure how this is done.
i have a form with cascading combo boxes, all of which are set to requery the combo boxes below, however i have one which is Service SubType, and it should requery Provider and Subjective, however it only clears the Provider and the previously selected subjective is still there, when you click on the downarrow it does give you the new list of subjectives.
my code looks like this: Private Sub cmbServiceSubType_AfterUpdate() Me.cmbProvider.Requery Me.cmbSubjective.Requery End Sub
how to get it to clear the boxes I have asked it to requery.
I need to requery a subform from a third form and can't seem to get it to work.
frmForm1 has frmAddress as a subform. The button cmdReviseAddress opens the form frmUpdateAddress where all of my validation work is done and the new record is added.
However, the new address is not being displayed in the subform.
If I use the command Forms![frmTest]![frmAddress].Requery it works fine.
The problem is that I want to be able to frmAddress on any form, and need to pass the name of the main form (in this case frmForm1) as a variable.
If lsTemp = "frmForm1", the statement Forms![lsTemp]![frmAddress].Requery (and every variation using brackets and quotes that I can think of) fails.
I have a main form that identifies a Client File: frmClientFile (Single Form)
On the main form is a subform for Cases: subfrmCases (Continuous form)
Also on the main form below the Cases subform is a tab control that contains additional subforms to view/update different aspects of a case: subfrmCaseClients (Continuous Form).
The way this operates is that the user first chooses a file using a combobox on frmClientFile.
The subfrmCases is linked to the main form (using the caseFileID) and filters correctly.
The subfrmCaseClients is then linked using some hidden text fields on the main form (using caseFileID, CaseID) and this filters correctly.
On subfrmCaseClients is a combobox (cboClientID) that I need to requery based upon the Case Row selected on subfrmCases.
I have tried numerous combinations of options to force the requery by trying to apply a macro on the following:
OnCurrent, OnSelectionChange, OnChange and AfterUpdate events to no avail.
If I hit F5 to refresh the entire page the combo box gets updated as expected.
How do I get the Requery to work programatically? Is this even possible?