On my continuous form, I have a field that is a checkbox. I would like to place an unbound checkbox/radiobutton in the form header so that when the it is checked, it will display only records that are checked, and when it is unchecked, it will only display records that are unchecked.
View RepliesI am asked to create a checklist for a number of tasks to be executed in a particular shift. However in some tasks can be skipped. There are three shifts per day.
To accomplish this i have created a continious form with a number of checkboxes per task which represent the days of the week. The tasks itself are stored in a seperate table with a checkbox per shift (task settings). If the tasks must be performed in a particular shift, the checkbox is activated (= true).
Goal here is, if a task doesn't have to be executed in a shift the task should not be visible on the continious form. The recordsource of the continuous form is a query, which contains a join between the table with the task settings and the table with the tasks performed.
I have placed some code to perform the task in the form's current event
In the continuous form current event I have placed for every checkbox the following code:
Private Sub Form_Current()
If Me. PerformTaskShift.Value = True Then
Me.MaandagOchtend.Enabled = False
End If
End Sub
However when i execute the code and load the form, not only the checkbox in the row mentioned are set invisible, all the rows are. Is there any way to set only the checkboxes on the rows mentioned invisible, in stead of all rows?
I have a reservation form and I want to tick a checkbox that will filter the form based on what is in the "Reservation Status" combo box.When the checkbox is ticked, the code would remove all records that have "Complete" as a status in the "Reservation Status" combo box. The non-working code that I currently have is:
Code:
Private Sub chkHideComplete_AfterUpdate()
On Error Resume Next
If Me.chkHideComplete = True Then
Me.filter = "[ReservationStatus] = 1"
Me.FilterOn = True
[code]....
Hi
I'd like to be able to filter a form (fed by an underlying query) by using a toggle button setup on the form itself. My simplistic pseudo-code would go something like this.
Default state
List all records where DateRemoved is Null.
Toggle state
List all reocrds where DateRemoved is NotNull.
Can anyone kindly assist.
Many thanks
I need to add an additional filter to my unbound form and can't seem to get the syntax right -
I have a text field in my form "[B Style]" that has either a "Y" or "N"
I want to add a checkbox on my main form where, if checkbox=True then [B Style]="Y"
Private Sub ckBStyle_Click()
Dim stFilter As String
Dim stDocName As String
stDocName = "Modify_OpenItems"
If Me.ckBStyle.Value = True Then
DoCmd.OpenForm stDocName, , , ("[B Style]" = "Y")
Else: DoCmd.OpenForm stDocName
End If
End Sub
stDocName is opening but is completely blank.
Incorrect syntax?
I have a continuous Form named frmBirthdays that lists People with a [DateOfBirth] field.
In the Form Header I have 2 Unbound Combo Boxes 1- cboMonthFilter which list the 12 Months of the year in Text NOT Number and 2- CboAgeFilter that has a list of Ages 0 -30 (which is all i require) and a Clear Filter Command Button.
I would like to be able to filter the people list by cboMonthFilter for anyone that has a Birthday in any given month.
OR
I would also like to filter the people in the list by their age.
But never both at the same time.
combo boxes and continuous forms.I have a continuous form (works great), with two combo boxes that navigate (rather than limit/ filter the list) to the desired selection.One for suburb and one for postcode.
I have expanded the select criteria for the suburb to include postcode as some suburb names are used in more than one state. (I do not want to have to select a state, then suburb).I changed the column count to see the postcode next to the suburb, however when the selection is made only the first instance is selected.
Example.
Epping 2121
Epping 3076
If I chose Epping 3076, Epping 2121 is selected and the continuous form navigates to that suburb (rather than the one with 3076).Can I change this so that I can still search by postcode, or search by suburb and have the form navigate to the corrected suburb postcode combination?
I've built a basic inventory management system that allows a business to add products and the ingredients (and labour etc.) that go into them so they can work out costs and profit.We've run into a bit of a usability problem in the sense that they have 700 different ingredients and so adding them to products has become a little unwieldy as the lists in the comboboxs are massive.
What they've asked me to do is to add a filter combobox to the Ingredients subform of their New Product page that allows them to constrain the Ingredients by type, to make the lists more manageable. So if you imagine they are entering a record for a new cake and need to add Eggs as an ingredient they could either...
a) Scroll through the list of 700 ingredients as they do currently and find "Size 3 chicken egg".
...or...
b) Use a combobox on the ingredient row to pick "Eggs" which would in turn filter the ingredients combobox on that row from 700 ingredients down to a handful e.g."Size 1 chicken egg", "Size 2 chicken egg", "Size 3 chicken egg", "Size 1 duck egg" etc.
the filter combobox applies to all rows in the subform! Is there a clever way of telling the Filter to only apply itself to the current row of the continuous form?My code is...
Code:
Private Sub FilterRMs()
Dim mySql As String
If Me.RMTypeFilter.Column(1) = "999" Then
Me.FilterOn = False
code]....
I have almost completed creating a continuous form which I want users to be able to filter though the records based on to/from date, badgenum and a response string.
I then want to have a button, btnSelect, that will select the remaining records and open a report based off only the remaining records.
1.) Everything on the continuous form works except when trying to filter a combo box, cboBadge, field name "BadgeNum". BadgeNum is data type "short text". I have modified the code below from the following Allen Browne link. It keeps throwing a debug on me.Filter = strWhere at the bottom of the btnFilter sub.
2.) As far as the btnSelect and printing remaining records, I guess I'm not sure where to start.. I currently have another print button that will print individual records only which works fine.
[URL] ....
Code:
Private Sub btnFilter_Click()
Dim strWhere As String 'The criteria string.
Dim lngLen As Long 'Length of the criteria string to append to.
Const conJetDate = "#mm/dd/yyyy#" 'The format expected for dates in a JET query string.
[Code] ....
I am running access 2007 and have a continuous form that I am trying to filter. The table that I am pulling the data from has the following fields: Order_Date, Order_number, Model.
I want to filter based on Order_Date.
I tried creating an "after update" Macro builder on my combo box and using "Apply Filter" but I cannot seem to get my syntax right.
Filter is the name of my combo box
Here is my current setup:
Filter Name:
Where Condition: [Order_Date] Like [Filter]
Control Name:
However whenever I select a new date from my combo box it asks me to "Enter Parameter Value" for Filter, which I don't understand because my combo box name is Filter. I would think they would link up.
I'm trying to sort and filter a continuous form. Sort ascending and filters works perfectly fine. But my descending button doesn't work. I basically have a combo box which contains a field list. Then two buttons (asc. and desc.), then a text box for filter, a button to filter, and another button to reset filter. Here's my code:
Code:
Private Sub cmdAscending_Click()
If IsNull(Me.cboField) Then
MsgBox "Please choose a field.", vbOKOnly, "No field to sort."
Else
Me.OrderBy = Me.cboField
Me.OrderByOn = True
[Code] ....
I've got a continuous form that displays my massive 3,000+ inventory, with the option to filter down to specific categories. Some categories have 5 items, others have hundreds. The design I have used makes it look really tacky once I filter down to one of the categories that has 5 items, because there is no scroll bar.
What I've tried using is:
Code:
If Me.RecordsetClone.RecordCount < 10 Then
Me.Scrollbars = 2 'vertical only
Else
Me.Scrollbars = 2
End If
But it still doesn't display correctly (nobar.png). This is probably my biggest headache right now, and every "solution" I've found, doesn't work.
I have a continuous subform linked in a data query, I added some check box to select for each record. However, everytime I check a checkbox, it also check the same checkbox on the next record.
My check box consists of Shipping options - FEDEX, COURIER and HAND DELIVERY. These are the options I need to check for each records in the subform.
Is there a way I can select different checkbox for each record?
Hello,
I ve got a big problem:) What i am trying to do is CRM , this crm has some informations about the companys. ----->
I have form where are all the informations about companys entered by users of CRM. One of the informations is size of the company. What i did is that i have put three check boxes ( small , middle, large ) and bound them with the main table company ( companyID, companysmall ( YES/NO ), companymiddle(YES/NO), companylarge ( YES/NO ), companyfax, ... ).
When you mark the check box ther is an yes in table for a size of company and no for the other two options.
What i would like to do is to create another form where i could filter companys by ther size. But the tricky part is, that i would like to filter with check box so that i can filtr for example small and large companys at same time.
How can i do this - can you help me - mabe some examples.
Thank you,
Luka
Hello!
i have a small for you probably problem! I tried to find something here but only bits and pieces could help only a little!
well here is my problem!
i have a form with a subform! the subform is a datasheet by a table!
In my main form I have a check box! what I want to achieve is to filter my subform by current date when i mark the check box and remove the filter when i uncheck it!
i could have it done by query or something but it was a last minute idea! thus i would have to change a lot of stuff doing it that way! the table is already filtered by a combo box record selector!
-----------------------
i have used a code but it does not work probably because there is no filter to activate!
Private Sub Today_Filt_Click()
If CheckBox = True Then Me.FilterOn = True
If CheckBox = False Then Me.FilterOn = False
End Sub
So could i put the filter parameter on the vba part???
any sudjestions????
Thank you :)
Hey i have this really annoying bug, theres several tick boxes that im using to filter records but if i tick more than one i get a syntax query error? any idea what this could be? i have had several people look at the code and tell me theres nothing wrong.
Option Compare Database
Option Explicit
Const strSQL = "SELECT * FROM issues"
Private Sub filter_Click()
'Variable to hold filtered SQL string
Dim strFilterSQL As String
If check_os98 = True Or check_osnt = True Or check_os2k = True Or check_osnt = True Or check_osxp = True Or check_fxpda = True Or check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strSQL & " WHERE "
End If
If (check_os98 = True) Then
strFilterSQL = strFilterSQL & "os98 = True"
If check_osnt = True Or check_os2k = True Or check_osnt = True Or check_osxp = True Or check_fxpda = True Or check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_osnt = True) Then
strFilterSQL = strFilterSQL & "osnt = True"
If check_os2k = True Or check_osxp = True Or check_fxpda = True Or check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_os2k = True) Then
strFilterSQL = strFilterSQL & "os2k = True"
If check_osxp = True Or check_fxpda = True Or check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_osxp = True) Then
strFilterSQL = strFilterSQL & "osxp = True"
If check_fxpda = True Or check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_fxpda = True) Then
strFilterSQL = strFilterSQL & "fxpda = True"
If check_fxpc = True Or check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_fxpc = True) Then
strFilterSQL = strFilterSQL & "fxpc = True"
If check_fxas = True Or check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_fxas = True) Then
strFilterSQL = strFilterSQL & "fxas = True"
If check_fxrs = True Then
strFilterSQL = strFilterSQL & " AND "
End If
ElseIf (check_fxrs = True) Then
strFilterSQL = strFilterSQL & "fxrs = True"
End If
strFilterSQL = strFilterSQL & ";"
Me.RecordSource = strFilterSQL
Me.Requery
End Sub
I'm having a hard time with this (what I thought) was a simple filter. I have an unbound checkbox (chkFlag) and an unbound text box (txtfilter). The filter was working fine till I decided to also try to filter on the checkbox.
I'm trying to filter records that either have either a check in the [Flag] field or have some part of the text in various other fields. The problem is I can get the records to filter if the checkbox is checked or on text in the various fields, but not both. I've tried using AND and OR, but it's not working.
Code:
Me.RecordSource = "SELECT * from tblContacts; "
'-------------------
strWhere = ""
[Code]....
I have a query which is run from a form via a command button. On this form i have a couple control sources (not sure if this is the correct term, but i have text boxes and drop down lists which the query uses in its criteria).
Everything works fine except i can't figure out how to filter my checkbox field (aka MyDeliv). I'd like to have a drop down box with 3 options: "yes", "no", and "ignore". i would like "yes" to return only records with the MyDeliv box checked, "no" to return only records with the MyDeliv box unchecked, and "ignore" to return records regardless of the MyDeliv checkbox.
I am trying to use this code to filter a continuous subform based on two criteria but getting a data type mismatch error.
It works fine if I filter by just one or another. Perhaps it is not possible
Code:
Dim intSpouseEntityID As Integer
intSpouseEntityID = Nz(DLookup("[EntityID]", "qryEntitiesLocations", "[ContactIDNumber] =" & Me.Spouse), 0)
If intSpouseEntityID > 0 And Not IsNull(Me.subformContactsHomeAddress.Form.EntityID) Then
MsgBox ("There are two spouse addresses please delete one and try again")
DoCmd.Save
DoCmd.OpenForm "frmContactAddresses", , , "EntityID=" & Me.txtEntityID Or "EntityID =" & intSpouseEntityID
End If
I'm trying to transfer records from a table in one subform to another subform (on same form) using a checkbox as a filter:
Private Sub TransferAndReview_Click()
Dim db As dao.Database
Dim strSQL As String
strSQL = "INSERT INTO Forms![Extra Work Report Checksheet]![Equipment Input Subform1].Form[(QuantityUsed[, HoursUsed])] VALUES (QuantityUsed[, HoursUsed]) FROM Forms![Extra Work Report Checksheet]![Equipment Checksheet Table Subform] WHERE [Extra Work Report Checksheet]![Equipment Input Subform1].Form[EquipmentUsed]=True;"
Set db = CurrentDb
db.Execute strSQL, dbFailOnError
End Sub
The Main form is: [Extra Work Report Checksheet]
Subforms are: [Equipment Input Subform1] & [Equipment Checksheet Table Subform]
Checkbox field is: [EquipmentUsed]
I keep getting the error "Syntax error in INSERT INTO statement" which points to 'db.Execute strSQL, dbFailOnError' and I don't understand why. Neither of the fields [QuanityUsed] or [HoursUsed] are lookup fields, etc.
I have a command button as a field in a continuous subform which is based on a table. I click it and it opens a report. I need the report to be filtered by the ID of said record and not to show all the records.
View 3 Replies View RelatedWhat I am trying to do is put a subform within a subform. The trouble is I want both forms to be continuous forms.
when I put the subform within a subform, access comes up with the following message:
************************************************** ********************
A form with a subform object cannot have its DefaultView set to Continuous forms.
You tried to add a subform to a form in design view.
MSAcess will reset the property to Single Form.
************************************************** *********************
which it does my higher level form becomes a form only showing single records at a time whilst the subform is a continuous form.
does anyone know of a way around this?
what about Access2003 does it allow this?
help much appreciated.
Steve Ferry
How can I create a "Filter Button" on a form and filter my records? I create a textbox on a form and a filter button on the right. Then I click the filter futton, the filter function will search/match the content in the box through the datasheet. And then the results of the filtering will be pop up on the split form datasheet.
View 3 Replies View RelatedI have placed a filter button on a form as a filter and written the following on-click event procedure:
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdApplyFilterSort
Me.Filter = "ACCOUNT_DO_NOT_EMAIL = 'HS'"
Me.FilterOn = True
When I click the filter button I get a blank message box titled 'Microsoft Access" and an OK button, when closed the filter works perfectly.I have checked this procedure in other forms and it works without showing the blank message box.The only difference with this form is that its control source is a union query.
I am having a problem with making a textbox visible on a form if a checkbox is checked on the same form. I have done research on this site and have written the code below, but I am getting a Syntax error, see yellow highlight.
- My checkbox is named: Case is a Readmission from WRCA IP to WRCA IP
- My textbox is named: Date of Current IP Admission (I have defaulted this textbox to not visible).
Here's the code I have written:
Private Sub Case_is_a_Readmission_from_WRCA_IP_to_WRCA_IP_Clic k()
If Case is a Readmission from WRCA IP to WRCA IP =true then
Date of Current IP Admission.visible=true
Else
Date of Current IP Admission.visible=false
[Code] .....
I want to use buttons on a form to change the sort order on a continuous form. In the buttons click event I am using a public function (named Sort_1) to change the sort order. The first element of the event call is the name of a generic query (named Sort_1_Query1) and the query field to sort (LAST_NAME OR FRIST_NAME, depending on the button.)This is the Click Statement.
=Sort_1("Sort_1_Query1","LAST_NAME")
This is the Public Function
Public Function Sort_1(SortName As String, FieldName1 As String)
DoCmd.ApplyFilter SortName, FieldName1 & "between 'A' and 'Z'"
End Function
I think the problem is in the use of quotation marks or trying to pass the query field name to the Do Command or the use of an ampersand.