Building A Filter Form
Nov 21, 2005
I am very new at all of this. I am trying to build a filter form to just pick out one item. I am trying to filter out Box Numbers that have been entered into the database to run reports on them. I think that I am missing the correct code to do this. I have tried to create a form off the query by just using the box number and then creating a command button to apply the filter. But this doesn't work. I'm sure that I'm missing a step along the way. Help!
View Replies
ADVERTISEMENT
May 20, 2015
I have a button that opens a report. The code behind the button builds the filter criteria for the report based on some selections in a list box.
Code:
DoCmd.openReport "Report", acViewPreview, "", GetCriteria
For VarItem = 0 To Me.List2.listcount - 1
strCriteria = strCriteria & "([ProjectNo]= '" & Me.List2.Column(1, VarItem) & "' And [ClientID] = " & Me.List2.Column(0, VarItem) & ") Or "
Next VarItem
If strCriteria <> "" Then
strCriteria = Left(strCriteria, Len(strCriteria) - 4)
Else
strCriteria = "True"
End If
GetCriteria = strCriteria
This is what the filter would look like with values after running the report (taken from filter bar in report properties):
([ProjectNo]= '150002' And [ClientID] = 206) Or ([ProjectNo]= '150003' And [ClientID] = 79)
Problem is that i only get records for ([ProjectNo]= '150002' And [ClientID] = 206). I this seems only filter ONE set of criteria ignoring all the others. What am i doing wrong?
View 5 Replies
View Related
Sep 23, 2006
I've been trying to figure this out, but it looks like a no go.
I wanted to give my users the ability to create/modify queries, but NOT create/modify tables.
Does anyone know if this is possible in Access 2002?
Thanks,
Earl
View 2 Replies
View Related
May 31, 2006
Could someone please give me a link or place to find a descreption of all the "More Tools" that you can use when building a form. If I had a list I could pick what is best for my database and explain things better to management...thanks.
View 3 Replies
View Related
Nov 26, 2012
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 Related
Aug 1, 2013
I 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.
View 10 Replies
View Related
Mar 28, 2006
Dear All,
I want to make a multiple criteria query from active form,
but i stuck in SQL ,Please help to solve my syntac. I am very fool in Sql Syntac. the code like bellow:
Option Compare Database
Private Sub cmdSearch_Click()
On Error GoTo cmdSearch_Click_Err
Dim blnQueryExists As Boolean
Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim qry As ADOX.View
Dim varItem As Variant
Dim strUmur As String
Dim strJnsKelamin As String
Dim strPendidikan As String
Dim strPosisi As String
Dim strJnsKelaminCondition As String
Dim strPendidikanCondition As String
Dim strPosisiCondition As String
Dim strSQL As String
'************************************************
' Check for the existence of the stored query
blnQueryExists = False
Set cat.ActiveConnection = CurrentProject.Connection
For Each qry In cat.Views
If qry.Name = "PelamarTemp_Qry" Then
blnQueryExists = True
Exit For
End If
Next qry
' Create the query if it does not already exist
If blnQueryExists = False Then
cmd.CommandText = "SELECT * FROM Pelamar"
cat.Views.Append "PelamarTemp_Qry", cmd
End If
Application.RefreshDatabaseWindow
' Turn off screen updating
DoCmd.Echo False
' Close the query if it is already open
If SysCmd(acSysCmdGetObjectState, acQuery, "PelamarTemp_Qry") = acObjStateOpen Then
DoCmd.Close acQuery, "PelamarTemp_Qry"
End If
'************************************************* *
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Umur
strUmur = Me.Umur.Value
Debug.Print strUmur
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^
' Build criteria string for JnsKelamin
strJnsKelamin = Me.Jns_kelamin.Value
If Len(strJnsKelamin) = 0 Then
strJnsKelamin = "Like '*'"
Else
strJnsKelamin = "IN(" & strJnsKelamin & ")"
End If
Debug.Print strJnsKelamin
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Pendidikan
strPendidikan = Me.Pendidikan.Value
If Len(strPendidikan) = 0 Then
strPendidikan = "Like '*'"
Else
strPendidikan = "IN(" & strPendidikan & ")"
End If
Debug.Print strPendidikan
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Build criteria string for Posisi
strPosisi = Me.Posisi.Value
If Len(strPosisi) = 0 Then
strPosisi = "Like '*'"
Else
strPosisi = "IN(" & strPosisi & ")"
End If
Debug.Print strPosisi
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get JenisKelaminCondition
If Me.optAndJnsKelamin.Value = True Then
strJnsKelaminCondition = " AND "
Else
strJnsKelaminCondition = " OR "
End If
Debug.Print strJnsKelaminCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get PendidikanCondition
If Me.optAndPendidikan.Value = True Then
strPendidikanCondition = " AND "
Else
strPendidikanCondition = " OR "
End If
Debug.Print strPendidikanCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
' Get PosisiCondition
If Me.optAndPosisi.Value = True Then
strPosisiCondition = " AND "
Else
strPosisiCondition = " OR "
End If
Debug.Print strPosisiCondition
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'************************************************* *
' Build SQL statement
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^
'SQL Statement from Query builder
'SELECT Pelamar.No_pelamar, Pelamar.Tgl_lamaran, Pelamar.Nama, Year(Now())-Year([Tgl_lahir]) AS Umur, Pelamar.Jns_kelamin, Pendidikan.Ijazah, Posisi.Posisi
'FROM ((Pelamar INNER JOIN Pekerjaan ON Pelamar.No_pelamar = Pekerjaan.No_pelamar) INNER JOIN Pendidikan ON Pelamar.No_pelamar = Pendidikan.No_Pelamar) INNER JOIN Posisi ON Pelamar.No_pelamar = Posisi.No_pelamar
'WHERE (((Pelamar.Jns_kelamin)=[Forms]![SearchByKriteria_frm]![Jns_kelamin])) OR (((Pendidikan.Ijazah)=[Forms]![SearchByKriteria_frm]![Pendidikan])) OR (((Posisi.Posisi)=[Forms]![SearchByKriteria_frm]![Pendidikan])) OR (((Year(Now())-Year([Tgl_lahir]))<=[Forms]![SearchByKriteria_frm]![Umur]));
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^
'Please I am very stupid in sql,how to apply all variabel that i had create and insert in the sql in vba?
'i had try write as bellow but the result is error number 2465 with error description "Microsot Access can't find the field"I" reffered in your expression"
'All i need is how to write SQL in vba like the sql statement in query builder for make a query on form.
' note: all variabel string is all from the form
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^6
strSQL = "SELECT Pelamar.* FROM ((Pelamar INNER JOIN Pekerjaan ON Pelamar.No_pelamar = Pekerjaan.No_pelamar) INNER JOIN Pendidikan ON Pelamar.No_pelamar = Pendidikan.No_Pelamar) INNER JOIN Posisi ON Pelamar.No_pelamar = Posisi.No_pelamar" & _
"WHERE Pelamar.[Jns_kelamin] " & strJnsKelamin & _
strPendidikanCondition & "Pendidikan.[Ijazah] " & strPosisiCondition & _
"Posisi.[Posisi] " & strJnsKelaminCondition & (Year(Now()) - Year([Tgl_lahir])) = " strUmur "";"
Debug.Print strSQL
'************************************************* *
' Apply the SQL statement to the stored query
cat.ActiveConnection = CurrentProject.Connection
Set cmd = cat.Views("PelamarTemp_Qry").Command
cmd.CommandText = strSQL
Set cat.Views("PelamarTemp_Qry").Command = cmd
Set cat = Nothing
' Open the Query
DoCmd.OpenQuery "PelamarTemp_Qry"
' If required the dialog can be closed at this point
' DoCmd.Close acForm, Me.Name
' Restore screen updating
cmdSearch_Click_Exit:
DoCmd.Echo True
Exit Sub
cmdSearch_Click_Err:
MsgBox "An unexpected error hass occurred." _
& vbCrLf & "Procedure: cmdSearch_Click" _
& vbCrLf & "Error Number: " & Err.Number _
& vbCrLf & "Error Description:" & Err.Description _
, vbCritical, "Error"
Resume cmdSearch_Click_Exit
End Sub
Private Sub optAndJnsKelamin_Click()
If Me.optAndJnsKelamin.Value = True Then
Me.optOrJnsKelamin.Value = False
Else
Me.optOrJnsKelamin.Value = True
End If
End Sub
Private Sub optAndPendidikan_Click()
If Me.optAndPendidikan.Value = True Then
Me.optOrPendidikan.Value = False
Else
Me.optOrPendidikan.Value = True
End If
End Sub
Private Sub optAndPosisi_Click()
If Me.optAndPosisi.Value = True Then
Me.optOrPosisi.Value = False
Else
Me.optOrPosisi.Value = True
End If
End Sub
Private Sub optOrJnsKelamin_Click()
If Me.optOrJnsKelamin.Value = True Then
Me.optAndJnsKelamin.Value = False
Else
Me.optAndJnsKelamin.Value = True
End If
End Sub
Private Sub optOrPendidikan_Click()
If Me.optOrPendidikan.Value = True Then
Me.optAndPendidikan.Value = False
Else
Me.optAndPendidikan.Value = True
End If
End Sub
Private Sub optOrPosisi_Click()
If Me.optOrPosisi.Value = True Then
Me.optAndPosisi.Value = False
Else
Me.optAndPosisi.Value = True
End If
End Sub
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^66
Is there any one can correct my syntac?
View 1 Replies
View Related
Jan 2, 2006
Hi, I am desparate!! I work for a high school and need a database to record student community service hours over their high school careers. I have been trying to do this on and off since the summer. I promised I would have it done by the end of winter break but........I may have to go back to a spreadsheet if I can't get this right. That has proved to be a royal pain in the past few years.
I have set up tables but getting the relationships right is a problem. I dont know if it is possible but I would like to set it up so that I have a student form with 4 subforms for each school year. Each subform (4 tabs) will have the title of the school year (i.e. 05-06). We don't allow them to get credit if they go over on their hours for a given year. In other words, they can't do all their service hours in say, freshman year. They have to do 10 as freshmen, 20 as sophomores, 30 as juniors and 40 as seniors.
Each year I can refresh from the school db (for new students, etc.) but I can't go in and create a report in that program as we don't have the capability.
I am trying to teach myself but every tutorial I come across doesn't give reasons why you do something so I can figure out how to convert that info to help me. I have been researching this for a long time and looking at sample dbs.
Can anyone help? I am going to try to attach a copy of the mess I have made so far, Hopefully
Thanks in advance.
View 6 Replies
View Related
Oct 17, 2006
Hello all,
I need some assitant in building a simple check reconciliation database. I was wondering if anyone can guide me in doing so? Or if anyone has some kind of sample i can use that would be great. thanks
View 4 Replies
View Related
Nov 7, 2006
Hello,
I want to build a agenda, like the one shown in the image below.
I have no idea how to start.
Any help would be greatly appreciated.
Thanks in advance
http://www.wega.nl/images/scherm/agenda.gif
View 5 Replies
View Related
May 8, 2006
I have made an Access database containing contract names and addresses. I need to have each of these contracts linked to another table which shows the allocated engineer for the particular contract. I used a "one 2 many" relationship using a field "LinkID" to do this. Each engineer has a unique "LinkID" in the engineer table but the engineer changes each day. The engineer for each particular day comes via an excel spreadsheet. The way it works at the moment is that the engineer name has to be manually changed each day, and this takes time. I have tried importing a linked excel table which looked like it would work, but was not able to use the linked table in the same "one 2 many" related table format as above.
What i need to do, is find a way for the fields containing the engineer name to be automatically updated somehow, possible by reading the values from the excel sheet.
Anybody know of any way for this to be done?
Thanks, and hope this makes sense got its got me baffled.
*** Edit **** Thinking about it, i could have an imported execl sheet which contains all of the engineers for each day. Would there be a way using a macro, to update the data in the engineers table that is related to the contracts, by overwriting it with the data from the linked spreadsheet?
View 4 Replies
View Related
Jun 20, 2005
I have at least 15000 records and all of them should be corrected if there is existing duplicates with same EMBG and different name. More precisely if there are 2 persons with same EBMG lets say 123456789 but one with name Naim Arifi and other one Naum Arifi then query should present to me Naim and Naum. Example
1. Naim Arifi 123456789
2 Elton John 123456452
3. Naum Arifi 123456789
4. Naim Arifi 123456789
* *
* *
* *
* *
722. Naim Arifski 321546798
* *
* *
So the record 1 3 and 4 and 722 should be highlited because they have same EMBG and I need to find where is the mistake manualy (correcting from Naum to Naim). In this case row number 4 is mistake instead of Naim is Naum. I need to correct it manualy.
Could someone provide me some help
View 4 Replies
View Related
Jun 21, 2005
I'm running a 9 parameter query, where values for the criteria are drawn from a form. I'm confused as to how I build an "if, then" string so that if one of the parameters is left blank, the program will skip it and go to the next.
Any suggestions?
View 8 Replies
View Related
Nov 8, 2004
Ok, I currently have a query built with requests. What I want to do is initially set each request with a priority.
Then when one request is closed the query will take the requests with priority 2 and change it to priority 1, change the request with priority 3 to priority 2 and so on. Also any new requests that are entered I want to be able to set their priority as well. Can anyone help me with this, or is it even possible?
Any help would be greatly appreciated!
View 4 Replies
View Related
Mar 11, 2005
I need to create an sql statement where the having statement can grow depending on how many conditions I pass to it. There maybe 10 conditions or there may only be 1 condition statement. I guess I'm really looking more for proper structure. Should I use "if" statements or is there a way to structure a variable with "OR" statements in it and use that.
conditionStr = "Rental"
autoSeg = -221205415
strSQL = "SELECT tblSubSegments.fkSegment, tblSubSegments.fkType, " & _
"Sum([tblSubSegments]![Quantity]*[tblSubSegments]![Units]) AS Expr1 " & _
"FROM tblSubSegments " & _
"GROUP BY tblSubSegments.fkSegment, tblSubSegments.fkType " & _
"HAVING (((tblSubSegments.fkSegment)= " & autoSeg & ") AND " & _
"((tblSubSegments.fkType)= '" & conditionStr & "'))"
rst.Open strSQL, gblEstDataCnn, adOpenKeyset, adLockPessimistic
With rst
count = .RecordCount
End With
This works fine and returns a record count of 1 however if I change the conditionStr to:
conditionStr = " '& PMTravel & 'OR' & Rental &' "
This of course does not work. Thank you for any help.
View 2 Replies
View Related
Feb 23, 2006
Hi,
I am hoping this is the right place to find some help.
I have just started access (2003) and i am trying to build a list.
Let me explain.
I have a table that contains
cartcode, description, price
and another containing
manufacturer, model
I then created a new table that links these tables together so that if i click the little + next to a cartcode i can see a list of models linked with that cartridge.
What i want to do though is create a query/table/anything that will create me a list of cartridges and then in the second column a list, hopefully seperated by a comma or all the printers models related to that cartridge.
I hope that makes sence.
So my question is how do i create the list which included related printers?
Thank you
View 4 Replies
View Related
Mar 17, 2006
Hi all, i'm new here and I have a query about a database i'm building with which any help would be appreciated.
I'm designing a form and I need to be able to have an option to save to a temporary table for retrieval by users so that they can continue their saved record at a later time. Does anyone have any ideas on the best way to do this as I am relatively inexperienced and I have to have the whole database complete before Wednesday:confused:
View 2 Replies
View Related
Feb 21, 2007
I have been asked to add a building entry log (Session Log) for a gym members database I created 2 years ago, unfortunately having racked my brain for the last week I am no nearer a solution.
Background:
I am a novice with a little knowledge (Dangerous I know), the main structure of the database is Contact [Storing address and name], Payments [Storing membership info - renewal date etc] and Sessions [Storing session date & time] this sessions table was recently added as a stop gap measure to allow the staff to enter user sessions manually.
Problem:
System needs to log user as IN and record the current time on first entry of userID (5 digit number), then the second time userID is entered it must log user out and record the time.
Resources:
I have just a single laptop running windows 98SE, and a USB numeric keypad. I should be able to get hold of a second monitor if required, but beyond that it is a case of beg, borrow, or steal as my budget is ZERO.
Any help, or suggestions to get me on the right track would be greatly appreciated.
View 3 Replies
View Related
Jun 28, 2007
Hi i have a assignment in which i have to build a database with documentation (attached file has details about the assignment) I have no prior database experience, and have no idea where to start.I want to build the database for a computer store which sells computer products. I don't want to make it very complex, since my database skills at this stage are very poor. I will appreciate if someone gives me a run down or steps in building this database. I have no clue where to start, since this is probably the first database i have ever built.
View 3 Replies
View Related
Aug 15, 2007
Hi,
I want to build an access application for a bicycle shop, I have a little access knowledge and would like to get more information on doing this.
Is there a place to look for on the web on how to build an application like this ?
thanks.
View 2 Replies
View Related
Jun 19, 2007
Hey Guys
Great Forum and another newbie here
I have created an invoicing system for my business, as i was unhappy with MYOB.
Basically i have Product ID and Desciption in 1 table.
In another, called registry, this is where i input the data for the order.
What i basically want to do is?
When i type in the Product ID in the registry table, i want the description field to automatically appear in the cell next to it. As this would save a lot of time
Any help would be much appreciated
Thanks
Tarek
View 3 Replies
View Related
Sep 20, 2005
OK, here's the deal. I have two data tables, one of which holds many types of customer information and has a very large number of records, including, name, address, phone, and email. The other table contains only email addresses. Each email in the second, smaller table corresponds to a record in the larger list , by virtue of both records sharing the same email address (primary key?). I need to be able to take a short list of email addresses from one table and produce all of the records from the larger table that have corresponding email addys, essentially. Can somebody shed some light on how I can structure a query to solve this dilemma? Sorry for the newb question, just getting started out using db's.. Thanks!
View 1 Replies
View Related
Jan 23, 2007
Hello,
I have a query where I would like to include names from a name table. The problem is that I get this "ambiguous outer joins" error when I try to include it in my query.
I have a main table, the name table, and a join table with the IDs from both of the other two tables in order to model a many-to-many relationship between main table and name table.
Is there a way around this?
Right now the query contains the main table and the join table so I get the name ID, just not the real names.
Thank you.
View 2 Replies
View Related
Mar 7, 2005
Hello.
I'm building a history table to keep track of some changes that occur on one of my forms.
Here is what I'm using to build my history table:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblDateCycleTestingChanges", dbOpenDynaset)
With rs
.AddNew
![CycleTestingDatesID] = Me.CycleTestingDatesID.Value
![Changed] = Now()
![ClientID] = Me.ClientID.Value
![ProjectID] = Me.ProjectID.Value
![TaskID] = Me.TaskID.Value
![TaskStartDt] = Me.TaskStartDt.Value
![TaskEndDt] = Me.TaskEndDt.Value
.Update
End With
Set rs = Nothing
End If
I have 2 questions:
1. I'm not sure where to insert this event. I'm thinking on Before_Update on the updated field? (I don't want to put it into Before_Update for a form event as I have other things that are being filled out/changed and I only want to keep track if certain fields on the forms are updated/changed.
2. I would also like to keep track of Old and New values for those specific fields. Is that at all possible?
Thanks.
View 5 Replies
View Related
Apr 21, 2005
Hi Guys,
Iam doing an Access project And i have poblem in calculation in a form. This calculation basically is between a form and a table. I have a form called "Yearly _Amount" in which there is a field called "Total_Hours". Now i want to calculate this Total_Hours as "Sum of Hours" (Hours is record in "Time_Sheets" table) Whenthree fields are equal ie., Employee_#,Fiscal_Year and Project_# in Yearly_Amount form is equal to
Employee_#,Fiscal_Year and Project_# in Time_Sheets Table.
Please guys help me out. Iam struggling too hard but iam not finding a solution.
View 1 Replies
View Related
Mar 15, 2006
Hi,
My users wish to have a feature in my db that allows them to compare the records within it and view a report on it.
I have implemented such a form but the functionality is not great. Basically it's a form with two subforms - the top where you choose the projects and the bottom where you view a list of the projects you've chosen. You can search the top subform using combos and select all the records currently in view (a button runs an update query based on the combo box values)
To add them to the list the user is setting a yes/no field to true. So the top subform is where yes/no field is false (and bottom subform is where yes/no is true).
They can then report on this as the report has a criteria of where the yes/no is true.
This works brilliantly, so long as there is only one user!! Otherwise they would interfere with eachother's list-building.
Does anyone have any ideas for an alternative method so that multiple users can use it? I was thinkin of making tables or something to store IDs in but don't know much about this or where to begin!!
Hope that makes sense!
Thanks in advance,
Bobadopolis
View 1 Replies
View Related
