Modules & VBA :: How To Get GotFocus And LostFocus Of All Comboboxes
Feb 20, 2015
how I can get GotFocus and LostFocus of all comboboxes. See below the three codes (code 1, 2 and 3) that I've change from an example from the internet. But the problem is that the function "InitialiseEvents" is not running in these comboboxes. If I try the code 4 as an example, the function "InitialiseEvents" is running perfectly. I don't understand why I can't get GotFocus and LostFocus? You can to see two attachments:
Afbeelding1: The codes 1, 2 and 3 are running.
Afbeelding2: The codes 1, 2 and 4 are running.
Code 1:
Code:
Private Sub Form_Open(Cancel As Integer)
InitialiseEvents Me
End Sub
Code 2:
Code:
Public Function InitialiseEvents(frm As Access.Form)
Dim ctl As Control
For Each ctl In frm.Controls
With ctl
If .ControlType = acComboBox Then
.OnGotFocus = "=HandleFocus('" & frm.Name & "', '" & .Name & "', 'Got')"
I have a table with three fields that have a default value set ("Please Provide"). I have controls for these fields on a form, and procedures for the GotFocus and LostFocus events.
GotFocus: Code:Private Sub cpuSerial_GotFocus()If Me.cpuSerial.Value = Me.cpuSerial.DefaultValue ThenMe.cpuSerial.Value = ""End IfEnd Sub
LostFocus: Code:Private Sub cpuSerial_LostFocus()If IsEmpty(Me.cpuSerial.Value) = True ThenMe.cpuSerial.Value = Me.cpuSerial.DefaultValueEnd IfEnd Sub
The intention here is to clear the default value when the user clicks into the field, but replace the default value if the field is empty when the user leaves - not altering the control contents at all if the user entered his own data. The end result is that there aren't records where this field is empty - it is either a user-entered value, or the default value.
My VB is not great - but this seems like a fairly rudimentary thing to accomplish, and what I have SHOULD work. But if that were the case, I wouldn't be writing this.
I suspect I might be misusing the DefaultValue property, or maybe the "Please Provide" default value property is better set on the form rather than in the table...
I have a form with many comboboxes. The comboboxes need to have their original rowsource set to a table in my database. However, when the user selects a value in a combobox, it is programatically fed into a SQL string which serves to populate a subform. This part all works great.
However, I'm trying to reset the comboboxes as well so that options will "narrow down" until only a single option is possible. So far, I have:
Code: Private Sub cmb_Author_Change() Dim strSQL As String strSQL = "SELECT tbl_Records.RecordName, tbl_Records.RecordDistinction, tbl_Records.Title, tbl_Records.Author, " & _ "tbl_Records.ProjectManager, tbl_Records.[Site Name], tbl_Records.ChargeCode,
[Code] ....
GetWhere() is the portion that feeds info from the comboboxes to the Finder string.
The red highlighted bit is the part I'm working on. Obviously, once I figure out the proper syntax, all of the other comboboxes will be set up the same way.
What's funny is that in testing (all of the data currently input is simple and allows me to select options where I know what the response will be in other boxes), when I change Author and go to use cmb_RecordName, it replies that "the record source 'My Data' specified on this form or report does not exist" (where 'My Data' represents real data).
So, clearly, it is finding the data, just not using it as a record source, but rather believing that the name of the recordsource is the value.
I have 2 combo boxes on a form. The 2nd box is not visible unless the 1st box is set to a specific value (Illness). Once the specific value is set, the 2nd box appears with appropriate data for selection.
Goal #1: I would like to have the form checked before it is closed to ensure that if the condition in box 1 is "Illness" then the 2nd box must have a value and can not be null.
Goal #2: I am also having problems with the 2nd combo being visible when form opens or becomes current. The field is set to visible=false normally but needs to be visible when form opens if the conditions mentioned above are meet (true).
Private Sub Form_Unload() If IsNull(Me.Incident_Classification) Then MsgBox "Please select a type of Illness" Me.Incident_Classification.SetFocus
I am running an export function from a module1 that contains a loop nested within a second loop. Each loop is running through items in a separate combobox on a single form1. The outside loop goes through combo1 items and the inner loop goes through combo2 items.
My issue is that the value of combo1 determines what items are available in combo2 (values are tied to tables). I can get the combo2 values to update when a user changes the values in combo1 (using requery in the afterupdate property of the combo1). However, I do not want a user to change the values, and the code module1 is ignoring the requery. How to force the combobox to requery through code in a module?
I've made a graph of revenue by customer but due to the number of customers it's a bit hard to see the customer names.
So I would like to be able to select my own custom group of 5 customers to plot on the graph.
To do this I think I need a query that selects the 5 customers which is populated from 5 comboboxes on a new form that the user can select customer names from but I'm not sure of the VBA that links all this together.
I've use a set up that works fine on a form but doesn't when used in a subform. Basically, i have a check box and txt box that won't allow anything to be written in it unless the check box is checked. If it is checked and nothing is inputted in the text box, the lostfocus event for the txt box flags the user. It works fine in a normal form and when it's a subform, the lostfocus event does fire when going to another control in the subform. The problem is that it doesn't fire when going to another control not in the subform. Is there anyway I can get the lost focus event to fire under these circumstances?
I have a med-large db shared on network. Am under some pressure to split front/back so more people can do data entry, but want the forms to be semi-finished before putting them on everybody's c:drive.
The problem is error handling for required fields. Some fields are required in the underlying tables because if users don't fill them in, reports are useless. But Access error msg for required fields are too strange, users just close down, maybe wrecking the thing. Don't want to eliminate Close button yet in case they get stuck in Access hell.
I got one ( !! ) field locked in well using LostFocus event, but what do you do if users just mouse into fields at random? LostFocus won't work if it never had focus, right?
(Would much prefer to just use unbound form and give choice of "Field is required" and "OK" or "Cancel this record" but realize that's asking for a lot of help here.)
Any assistance you can offer would be MUCH appreciated!! Vba course isn't until July.
OK, I asked this question a day or so ago and got some feed back. What I would really like is a difinative answer. Basically Yes or No. Is it possible to add small picture, (icon size) to a comobox. I realise its not good practice to have pictures embeded in the DB but on this occasion its what I need to do. Ive found software on the web that allows you to do it, which leads me to belive that it can be done, any ideas!
I have 4 Comboxes all Cascading from one an other and it's all working fine. My question is about My fourth combo boxe, It as two fields that the user can see when he selects the fourth comboboxe; pretty straightforward...
I want the user to see the two fields on the form after using the combo boxe. For this I have one of the record to populate the comboboxe and the other one to populate an other text box using the dlookup function where the criteria is = to the field selected in the combo boxe, I hope you're following...
Now, some of my records for each fields are not all different from each other so when the user select a set of value the "dlookup text box" may have several option: the index is not unique if you see what I mean...
To have the unique index, I would need to add to the 4th combobox the primary key which is an autoNo that the user doesn't really need to see...
So... I am thinking of hidding the primary key column in the comboBoxe and make it the main field THEN write a code on the after Update of the Comboxe to hide the comboxe and show a text box placed over the comboxe with a dlookup function with a criteria = primary key and an other text box set on a different field with the same criteria.
I hope this is making sense, I was wondering what you were thinking of this method, it seems to involve a lot of fiddling which I don't mind but I'd rather make sure that i making it right.
I have a form with many combo and list boxes, but i don't know how to find a relation between them. I want to select a name of a product that is in a combobox and then a list or text box will show its description.... Please help me because I will burn out sooner or later :eek: KD:confused:
Hi, I wish to create a combo box based on a query. There is a vendor name and vendor ID. The combo box will show the vendor name when dropped down and let the user select by name but it will then store the vendor ID when a user selects so basically I need this
Combo Box row source is vendor name but when it stores, it stores the ID like 1, 2, 3, 4, 5, 6. Does anyone know how to do it? Adwait
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'm pretty new to this stuff and I'm having this odd problem:
I've created a tabular form that uses a combobox for each record. The problem is that if I had, say 10 records in the form and I select a value for the combo box of one of the records, all of the combo boxes change to the same value...
Hello, I have set up a form which will be used for filtering reports. I would like to be able to generate a single report and in order to do that I will have to filter three fields.
I am using three combo boxes to achieve this. The three fields I am filtering are as follows: Tenant Name, Building Name, and Unit
The Tenant Name and Building Name work perfectly but I can't get the rowsource for Unit to display any values.
Here is what I have so far:
For the tenant name: rowsource: SELECT Tenants.[Tenant Name] FROM Tenants ORDER BY [Tenant Name];
The above displays all the tenants that currently have leases.
Once the Tenant Name is selected the Building combobox is populated with all the buildings leased to the selected tenant (Tenants can lease more than one building). This is achieved by the following: rowsource: SELECT distinct Leases.LeaseID, Leases.[buildingName] FROM Leases WHERE (((Leases.Tenant)=[forms]![Lease Offer]![tenantCombo])) UNION select distinct null, null FROM Leases ORDER BY Leases.[buildingName];
This also works perfectly. Only the buildings that are occupied by the tenant are displayed.
Now for my problem. Because, not only can the tenant be holding a lease in more than one building, but they can also have more then one lease in the specific building (ie for a specific Unit number). So what I am trying to do is to have the Unit combobox display only the unit numbers that the selected tenant is leasing in the selected building.
I tried to simply modify the rowsource of building name but it is not working (the combo box is always null). rowsource: SELECT distinct Leases.LeaseID, Leases.[Unit] FROM Leases WHERE (((Leases.Tenant)=[forms]![Lease Offer]![tenantCombo]) AND ((Leases.buildingName)=[forms]![Lease Offer]![buildingCombo])) UNION select distinct null, null FROM Leases ORDER BY Leases.[Unit];
So this is where I need help. This is very important to my project because, it is the only way I see being able to filter my report to a single specific lease.
Also, not sure if it will be useful, but I had trouble to get just the first two comboboxes working but I eventually succeeded, so if anyone is interested on how to achieve these to update here is the code:
It is only basically three functions:
'this is the "On Current" even of the form Private Sub Form_Current() buildingCombo.Requery unitCombo.Requery End Sub
'this is "On Change" event in the the tenant combo box. the building part 'works but the unit combo doesn't. However, I'm pretty sure it is a problem 'with the actual query not the code below Private Sub tenantCombo_Change() buildingCombo.Value = Null unitCombo.Value = Null buildingCombo.Requery unitCombo.Requery End Sub
'this is "On Change" event in the building Combobox, however it is not doing 'anything for me now. Private Sub buildingCombo_Change() unitCombo.Value = Null unitCombo.Requery End Sub
Hi! I want to use cascading comboboxes but when i'm setting criteria for second combo box, the "combo box form value" is not visible. i've tried to use the same names as in example form. It didn't work. I have always the window asking for value of the parameter. What should i change ?
I have read a few threads about comboBoxes and what-not, but I guess I'm just having trouble relating the answers to my particular problem. I've done a semester of Access at Uni so I'm a little versed in SQL and basica database theory, and am really just after a point in the right direction as to how to accomplish this:
I have a friend who is sort of like a maintenance worker for a number of places around my city. He wants a database made up which allows him to quickly and easily make a report on the day's/week's/month's jobs he has completed.
Basically, the information in the report should be Premise (the particular building the job was done in), Location (the room in the building), Item (the 'thing' that maintenance was done on), Job Type (eg. Repair, replace, purchase etc), Date and Time.
Ok, so that's the information he wants, and here's how he wants to enter it:
He wants some kind of form which contains a drop box (or combo box) full of the various Premises, and once he highlights the Premise, a second drop box branches out (I think this is what's called a cascading drop box? Maybe not...) which allows him to highlight the Location, then a 3rd allows him to select the Item, and finally the Job Type. Once he selects these things, he wants to be able to type in the date and time, and save the information in a Latest Jobs table.
So in the end, he wants to bring up the Latest Jobs table at some point, and make a report from it. But, once he's made the report, he wants to have the Latest Jobs table append to an All Jobs table, and then clear itself ready for the next wave of Jobs.
So that's the situation, thanks for reading if you got this far :P
I'm not expecting a giant solution to the entire problem, I'm just looking for some tips and strategies on how to acheive this, and some elements of Access I should research in order to help.
I've searched the forum but can't quite find what I'm looking for. I have one main table (tblFOBData) with the fields Material, MarketCode, Vendor and Cost. I also have a form that uses the Material and MarketCode fields in cascading combo boxes and this works fine, However, If you select a Material and MarketCode it will only return a single record and so I would like to autofill the data from the other two fields on to the form, preferebly without using a subform is this possible
Hi, I have a form with a subform on it. Also contained on the form are 5 comboboxes that are listing the entries in each table.
What i would like to be able to do it select an entry in any of the comboboxes and that will in turn filter the subform on the selections made whilst also filtering the remainder comboboxes based on a selection made.
I can get it to work by filtering one at a time with this code bound to each combobox:
Private Sub cmbAisle_AfterUpdate() Me.qryAllData_subform.Form.Filter = "[Aisle]='" & Me.[cmbAisle] & "'" Me.qryAllData_subform.Form.FilterOn = True End Sub
But each time i select an entry in another combobox it re-filters on that selection.
Hi! Let me explain my little problem:confused:: I have in a form two comboxes an a listbox. On the first combobox you can introduce the TAG, on the second one a machine. I need that the listbox show the values of the first and second combobox separated by a comma.
The first combobox= TAG The second= machine listbox=TAG machine value together without using the table
If you can help me I will appreciate your information:D
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 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 " & _
