Forms :: Column Name Based On Value In Other Control
Apr 8, 2014
I have a form with a subform. The subform is a continuous form with two controls, both textboxes. The value in the second box is looked up in a table, where the column name is the value from the first box.
I tried a lot already, this code seems to work but only for the first value of the continuous form and is not refreshed when I click next record on the parent form:
Code:
Private Sub Form_Load()
'get the value from the first textbox
strLabelName = Me.LabelName.Value
'get the ProductID needed for WHERE clause from parent form
strProductID = Me.Parent.ProductID
'use dlookup
strLabelValue = DLookup(strLabelName, "tblProducts", "[ProductID] = " & strProductID)
'place the returned value in the second textbox
Me.Text5.Value = strLabelValue
End Sub
Is it possible what I want and how may I establish this?
This seem to be simple for single criteria but i am not able to do it multiple. I want to restrict user to customer list they r able to see in form combo box drop down list.
users are in employee TBL employee group criteria is in tbl_Groups which contains value Admin,Read Only, manager etc employee r grouped through tbl_AssignUsersToGroups. customer r grouped in customerType TBL. i.e class1, class2 etc created EmployeesClassTypeRestriction TBL to store restrictions for employees
Restrictions criteria:
1-employee can view only specific class which includes all customers in that class 2- employee can view only specif customers in a class only. 3-employee can view only specif customers in a ANY class. 4- No criteria No restrictions and can view all customers in all classes( For Admin )
Tried to used Tempvar criteria in customer combo box qry but it works for above point 1 only.
I have a text box [txtTrafficValue] that is a calculated field of two short times. I want an image to be visible if the value is >= 0.0104 (15 minutes). I have in the after update of the field:
if me.txtTrafficValue >= 0.0104 Then Me.imgWarning.visible = true Else Me.imgWarning.visible = false End if
but when the field does the calculation and updates the image is not appearing.
I need to have a subform that shows up smack dab in the middle of my main screen when visible - which is what I want - but only based on a specific value of a control on the main form. Specifically, if a control's value is "See Spreadsheet", I want the subform visible front and center as it contains the link to the server location for that specific record. If the control's value is not "See Spreadsheet", I want the form to be invisible.
My code:
If Me.BudgetsFacultyAccountNumber = "SEE SPREADSHEET" Then Me.frmMsgBoxUpdateSpreadsheet.Form.Visible = True Me.BudgetsFacultyServerLocation.Visible = True Else: Me.frmMsgBoxUpdateSpreadsheet.Form.Visible = False Me.BudgetsFacultyServerLocation.Visible = False End If
The red lines result in an MS VBA error: "Compile error: Method or data member not found."
I've tried referencing that subform a hundred different ways, but I can't get it to work.
My company has a new database that we will use to track PTO (paid time off/vacation), including the submission/approval process. Not everyone should have access to the approval dashboard as that should be restricted to only managers. Everyone will have the same basic form so that they can see their PTO history, hours remaining to be used, etc.
What I want to do is have a button on the form that is visible only if the person is a manager. The button will open the PTO approval form. How can I make a button visible/invisible based on user access levels?
Can you update a text box on a form based on input of a date control? Here is what I have. I have several date controls on my form, and I want to update a status textbox based on which of these date boxes is filled out, but I need the status to be filled into the table as well. Do I update the field on the table, and then requery the text box? Is there some other method for accomplishing this?
I am wanting to populate a control in a form based off of two different fields in one table. Is that possible?I have a table called tblEmployeeMaster and it has a LastName column and a FirstName column in which I need to have both first and last name show up in one box on my form?
I'm building a workCube reservation system and I've been tasked to have it work kind of like an airplane seat reservation system. I've laid out my form with option buttons representing the location of each available space. (space1, space2, space3...space16)
My desired outcome is to be able to select a date from a calendar popup and have the options buttons react to that date if they have been reserved. (change color and indicate "reserved").I've tried to create the form based on a query which represents the "booked" table.
Tables:
Employee (k)empID emplyeeName
Space (k)spaceID space
Booked (k)spaceID (k)empID (k)bookdate
Some rules a space can be booked by any ONE employee on any day.How can I get any and all of the option buttons to react if there is a reservation in place on the day indicated by the calendar?
How do I conditionally change the Back Color and Alternate Back Color based on the value of notes.FollowUpDate? I have a continuous form using the following code:
Code: Private Sub b_all_past_Click() Me.resultsFrame.SourceObject = "FollowUp_bystaff" Me.resultsFrame.Form.RecordSource = "SELECT * From notes WHERE (((Notes.FollowUpDate) < Date()+1) And ((Notes.followup_person_id) = GetCurrentUserId()))ORDER BY notes.priority,(notes.FollowUpDate) DESC;" ' End Sub
In the organisation that I work for employees get paid every 2 weeks on a Saturday. So for this financial year the pay period end dates have been 08/07/2006, 22/07/2006, 05/08/2006 etc
I have a column in an Access table listing various dates. I want the next column to be populated with the next pay period end date after that date.
So if DATE is 05/07/2006 I want PAY PERIOD END to be 08/07/2006 and if DATE is 09/07/2006 I want PAY PERIOD END to be 22/07/2006 etc
I have created a cross tab to extract pipeline and sales for Q1 2014, Q2 2014, Q3 2014 & Q4 2014... the user can select the quater from a multivalued text box...
Now for the final output, have created another query which pull the above four quarter in each column from the cross tab...now the problem arises when i change the quarter to Q2 2014, Q3 2014, Q4 2014 & Q1 2014..it gives an error "Microsoft office Access database does not recognizes "Query name" as a valid field name or expression".
The error is because the second layer of query does not identifies Q1 2014.
How do i make access change the column automatically when the Q1 changes to Q2...
I need to input a string into a column named "EventType". The code should first check if the column "Agent Name" contains any strings. If there is none, it will input "IBM Director" into the EventType column.
Once it has looped through the agent names, the code will then loop through the Details column and input into EventTypes based on what is displayed within the string.
These are the codes that I am using to achieve this, however nothing is being input into the EventType column.
Code: Private Sub Command11_Click() Dim dbs As DAO.Database Dim rst As DAO.Recordset
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Final")
[Code] ....
I think the problem lies with the code that checks the agent name. When I removed it, it managed to populate the EventType column based on the details. But I still need to find out how to check the agent name too.
I have a multi select list box which I am trying to use to open another form and apply a filter based on the user's multiple selections.
List box - lstCatergories Main Form - frmSuppliersSummaryCategories Subform on Main Form - frmSuppliersSummaryCategoriesSubForm
The Subform contains the text box CategoryID
Here's my code which nearly works...
Code: Private Sub cmdFilterSuppliers_Click() On Error GoTo Err_cmdFilterSuppliers_Click
Dim strWhere As String Dim ctl As Control Dim varItem As Variant
[Code] .....
My problem is that the control "CategoryID" is on the subform and I'm having massive problems trying to reference it. This is the part of my code that won't work:
I have a continuous subform which queries a table of attachments. I'm using Access 2007 but not using the Attachment datatype; this DB will grow considerably and I don't want to waste precious space by filling it with bulky files. So instead, I have code which makes a copy of the attachment and adds the hyperlink (to the copy) to the table instead.
Now - I want to add a control to the subform to display an icon / image reflecting the file type of the attachment (Word doc, Excel s/s, PDF etc.)
But not sure how to go about it.
I was thinking I could use FileSystemObject.GetFileExtension at the point in the code where the attachment is added, and add a new field to my attachments table (i.e. translate "*.xls*" to "Excel", etc.) Then store / embed a handful of images for the core types I would expect and use an image control on the subform to display the image based on the value of that field.
But is that even possible / feasible?
Or, is there a handy API which can retrieve the icon associated with a file type based on what has been installed on the local machine (even if there is, there's still the problem of setting up the image control to display the appropriate icon specific to each record...)
Or, is there another control available which would be better suited to something like this than an Image control?
I have a SELECT INTO query that pulls info and drops it into a table, after deleting the target table and making it anew upon insertion of the selected records... Is there some way to accomplish the same feat without deleting the target table, so I could retain the target table's fields/field lengths?
I would first set up a target table with fields of specific lengths, and when the data is inserted, the data that fits would insert into these fields, and data that didn't would be truncated..I guess my problem is that when the new table is created it makes all the fields string 255 which is too long when I goto export the data, without having to clip/trim the data for use.
On my form, I currently have a combo box that updates text box data with each new selection. However, after these text boxes for FirstName, LastName, etc. are updated, they cannot be edited. Here is the error message that appears in the status bar:
Control can't be edited; it's bound to the expression '[Form]!EmpList.Column(13)'
I'm thinking it might be a result of the data source for the text boxes being a combo box expression. Any suggestions on how to fix this? Thanks. :)
I added a new field to one of my tables and query, but when I try to add a control for that field into my form it is not recognising it and the field isn't appearing in the sources for the form, even though the table is sourced to the form? Or am I going to have to do the usual and redo the entire form because I made a minor adjustment?
I have a form with a tab control, inside the tab control I placed an ActiveX control (Microsoft Web Browser). These are at the bottom of the form.
Everything displays fine if the entire form fit on the screen but if the form is too long and I scroll down the browser control is getting obscured by the tab control and getting chopped off (the contents are covered). It is as if the browser control is staying in space where it was and moving behind the tab control as I scroll.
This problem does not occur if I place the browser control directly on the form. Also I note that the browser control is sitting correctly within the tab control.
I have been through all the settings and properties of both controls and haven't been able to fix it. I searched all over the web but no one has previously stumbled across this one by the look of it.
Here's a sample of the query code for survey I made, for example Question 1 will be 1) Male or Female? (radio button answer_id 111) Male (radio button answer_id 112) Female
etc etc...
My question is how do I set my query to show a graph / percentage value of total unique answer_id's in relation to the question_id.
e.g. Question 1: 66.67% chose 111, 33.3% chose 112
I hope I was clear enough am quite new to Access and I really thought I could do this with pressing a few filter/sort buttons but alas I haven't found a way yet.
I inherited a spreadsheet that uses an Index (Match formulate to return a value. I want to use Access to manage the data going forward. I am just starting to build my tables in Access so I have some flexibility and want to do it right. Here is a sample of the data:
So if Enroll date starts in Jan I want the 10 amt returned from the Jan column. If the Enroll date starts in March, for that client I want the March amy returned, etc.
results: for client "DEF" the amt returned should be "7" because their enrollment date is 3/2013.