Delete Records Older Than Two Years?

Jan 2, 2013

My form has a piece of code in it that deletes records older than two years :

Code:
Dim dteExpiry As Date
Dim strSQLDelete As String
dteExpiry = DateAdd("yyyy", -2, Date)
strSQLDelete = "DELETE from tblWaarschuwingen WHERE tblWaarschuwingen.datum2 <= #" & dteExpiry & "#;"
DoCmd.RunSQL strSQLDelete
But...

As it turns out it does not only delete records older then two years, but also records related with personnel number to that record !!

Now i do relate records by personnel number (its NOT the primairy key though) but in this case its not meant to do that !

View Replies

Queries :: Show Data Older Than Specified Number Of Years From Future Date

Apr 22, 2014

Querying a field for a number of days from today's date but not had a lot of luck finding how to query this from a date in the future.

Currently I have as criteria for the relevant field:

Code:
<[Period Start (dd/mm/yy - less 5 years from financial year end)]

which prompts for a parameter but using this I have to figure out the date 5 years from the future date first and then enter this.

Surely there must be code that allows me to simply enter the date, in the prompt and this then shows me data of 5 years or older equipment!?

View 8 Replies View Related

Records Older Than 24 Hrs

Jun 17, 2006

i need to make a query that returns all the records older than 24 hrs anyone help me with this one ?

View 11 Replies View Related

Saves Records Over The Older One.

Mar 17, 2006

Im not sure this belongs under FOrm but most likely.The thing is I have 5 tables and 5 forms each table connected to each form.My problem is when I enter data into the form and then it saves into the table.The next time I open my program and I enter another information into the form it goes into the table but it goes over the older one I entered..SO my problem is I can only save one record into the table because it overwrites the older one. Thanx

View 1 Replies View Related

Only Show Records Older Than 6 Months

Mar 3, 2008

Is there an expression to show records in a query that are older than 6 months?

At the moment I have to go into the database every month and change the criteria date ie:

<#01/09/2007#

It would be much easier if it could do this automatically with an expression.

Can anyone tell me if ones exists?

Thanks

View 9 Replies View Related

Queries :: Not Display Any Records Older Than 3 Hours

Jun 26, 2014

How to build a query in Access 2010/13 that will not display any records that are older than 3 hours? See below for more specifics.

The criteria would be based on a field that houses the time (End Time) and also a field that houses a number (Status). So, only if the field in the record says 3 (based on the Status field) then it should not display the record after 3 hours (based on the End Time field) of being changed to a 3. Is it possible to do that?

I have attached a screenshot of what I am referring to.

View 5 Replies View Related

Modules & VBA :: Getting Age In Years With One Decimal Place (3.5 Years)

Mar 24, 2014

I have a table that lists computers I want to know the age of them for replacement purposes. I am using this function to populate a textbox on a form that updates my table. the results I am getting is a negative whole number I would like to get a positive number with one decimal place. so if computer was shipped September 24, 2010 my textbox would say 3.5 not -3

Here is my function

Code:
Private Sub Form_Load()
Dim theDate As Date
Dim age As Integer
theDate = Nz(Me.compDate.value, 0)
If theDate > 0 Then
age = DateDiff("yyyy", Now(), theDate)
Me.compAge = age
End If
End Sub

View 4 Replies View Related

Problem With Harvesting Records By Date Spaning The Previous And Current Years

Mar 3, 2005

Im working on a make-table query that harvest records for calculation that span a "rolling" 13 week history... my problem is that the query will work if it doesn't have to retrieve work weeks that are prior to the new year. For example, right now is the tenth week of this year so i need to grab the previous 9 weeks of history plus 4 weeks of the prior year. then next week when the query is ran we will be in the 11th work week of the year therefor i will need to harvest the past 10 week plus 3 week of the preivious year. the query works if you don't have to span accross calendar years. here is the SQL of the query below the problem area is in underlined in bold type:
SELECT PORVPHIS.VENDOR_ID, PORVPHIS.VEND_NAME, [Expr2] AS [Fiscal Year], DatePart("yyyy",[DATE_RECV]) AS Expr2, DatePart("ww",[DATE_RECV]) AS Expr1, PORVPHIS.QTY_RECVD, PORVPHIS.PO_UNT_PRC, [PO_UNT_PRC]*[qty_recvd] AS [Total Price], [Expr1] AS [Fiscal Week], IIf([fiscal week]=[LowWeek] And [Expr3]<>0,[total price],0) AS 1, IIf([fiscal Week]=[LowWeek]+1 And [Expr3]<>0,[total price],0) AS 2, IIf([fiscal Week]=[LowWeek]+2 And [Expr3]<>0,[total price],0) AS 3, IIf([fiscal Week]=[LowWeek]+3 And [Expr3]<>0,[total price],0) AS 4, IIf([fiscal Week]=[LowWeek]+4 And [Expr3]<>0,[total price],0) AS 5, IIf([fiscal Week]=[LowWeek]+5 And [Expr3]<>0,[total price],0) AS 6, IIf([fiscal Week]=[LowWeek]+6 And [Expr3]<>0,[total price],0) AS 7, IIf([fiscal Week]=[LowWeek]+7 And [Expr3]<>0,[total price],0) AS 8, IIf([fiscal Week]=[LowWeek]+8 And [Expr3]<>0,[total price],0) AS 9, IIf([fiscal Week]=[LowWeek]+9 And [Expr3]<>0,[total price],0) AS 10, IIf([fiscal Week]=[LowWeek]+10 And [Expr3]<>0,[total price],0) AS 11, IIf([fiscal Week]=[LowWeek]+11 And [Expr3]<>0,[total price],0) AS 12, IIf([fiscal Week]=[LowWeek]+12 And [Expr3]<>0,[total price],0) AS 13, DatePart("ww",Now())-13 AS LowWeek, IIf([fiscal Week]>=[LowWeek] And [fiscal year]<>DatePart("yyyy",Now()),0,[LowWeek]) AS Expr3, [LowWeek] AS week1, [LowWeek]+1 AS week2, [LowWeek]+2 AS week3, [LowWeek]+3 AS week4, [LowWeek]+4 AS week5, [LowWeek]+5 AS week6, [LowWeek]+6 AS week7, [LowWeek]+7 AS week8, [LowWeek]+8 AS week9, [LowWeek]+9 AS week10, [LowWeek]+10 AS week11, [LowWeek]+11 AS week12, [LowWeek]+12 AS week13, PORVPHIS.DATE_RECV, IIf([Expr4]="AS8819" Or [Expr4]="CO1870" Or [Expr4]="GV2510" Or [Expr4]="MC3105",[VEND_NAME],Null) AS ID, PORVPHIS.VENDOR_ID AS Expr4 INTO Tporv

FROM PORVPHIS

WHERE (((PORVPHIS.VENDOR_ID)="AS8819" Or (PORVPHIS.VENDOR_ID)="CO1870" Or (PORVPHIS.VENDOR_ID)="GV2510" Or (PORVPHIS.VENDOR_ID)="MC3105" Or (PORVPHIS.VENDOR_ID)="IM2680") AND ((DatePart("yyyy",[DATE_RECV])) Between DatePart("yyyy",Now())-1 And (DatePart("yyyy",Now()))) AND ((DatePart("ww",[DATE_RECV])) Between DatePart("ww",Now())-1 And (DatePart("ww",Now()))-13));

I hope some one can help me......you can email me by markphillipsii@bellsouth.net or mphillips@dccabinetry.com

thanks Mark

View 1 Replies View Related

Forms :: Continuous Form With Textfields As Records - List Of Years With Totals Of Hours

Jul 1, 2015

I have a continious form with textfields as records. Its about total course hours that are calculated. There is a field in the records that holds and calculates the hourse that one have done and another field that holds the max hours they may follow for one year.

Every record has h different year.

When the amount of hours in the transmission textfield is negative, they can transmit the hours to te next year. Therefore i have to calculate the Max hours per Year + the transmission hours.

So the calculation is not a problem. Though i don't actually know where i can trigger the calculation. I have tried it with a button on the form, but then the user always have to click to see the right amount of hours for the next year. That's not handy. I am looking for a way to automatically calculate the field Max hours per year. Given that the Max hours per year is a bound field, its bound to a table where i stock the Max hours that i have calculated.

I also tried it with the button that's used for inserting new course hours, but then it calculates with the old values instead of the new ones.

How can i trigger the calculation automatically without using a button.

View 1 Replies View Related

Modules & VBA :: Delete Records From A Table Based On Records In Another

Feb 7, 2014

I have a table InvPrice and Updated Pricing

Need to delete all records from InvPrice that Match UpdatedPricing

InvPrice.StockCode = UpdatedPricing.StockCode
InvPrice.PriceCode = UpdatedPricing.StockCode

I have tried something like this...

Dim dbs As DAO.Database, sql As String, rCount As Integer
Set dbs = CurrentDb
sql = "DELETE * dbo_InvPrice Inner Join (dbo_InvPrice Inner Join UpdatedPricing on dbo_InvPrice.StockCode = UpdatedPricing.StockCode ) ON on dbo_INvPrice.PriceCode = UpdatedPricing.PriceCode "
dbs.Execute sql, dbFailOnError

View 14 Replies View Related

Delete Duplicate Records Or Blank Records

Mar 19, 2007

I want to find duplicate records based on FirstName and LastName and delete the duplicate. Also, I want to delete any records which have a blank FirstName and LastName.

How can I do this?

Thanks,

Dave

View 3 Replies View Related

Archive Older Entries?

Jan 12, 2007

Hi, we have a database for keeping record of our games (unreal tournament games).... Its just a simple database and we enter our results based on the following fields: -

Opponent:
Game Type:
Players:
Maps:
Date:
Result:

the file has started to get quite big and wondered if it would be possible to automatically move entries say that were older than a month old to a new table, or archive table. Im not a big access genious so i hope i have explained enough for you to understand what im trying to do here.

Thank you for your time, much appreciated.

View 1 Replies View Related

SQL - WHERE Record Is Older Than A Year Old.

Apr 18, 2006

Hi Guys, How do I make an SQL statement that returns records that are over a year old. I tried this...

SELECT * FROM tblExample WHERE Date<365

But that does not work.

View 4 Replies View Related

Cannot Delete Records

Jan 8, 2007

I have a query of records that are not related to records is the secondary table. I want to delete these records but when I select the records and click delete I get the confirmation to delete answer to delete them and all the records disappear. When I run the query again, all the records are still there. Does anyone know what is happening? This is an access front end that connects to a SQL server database.

View 1 Replies View Related

Delete Records

Apr 6, 2007

This works perfectly.

SELECT DOCSADM_PROFILE.SYSTEM_ID, DOCSADM_PROFILE.AUTHOR, DOCSADM_SECURITY.THING, DOCSADM_SECURITY.PERSONORGROUP, DOCSADM_SECURITY.ACCESSRIGHTS
FROM DOCSADM_PROFILE INNER JOIN DOCSADM_SECURITY ON DOCSADM_PROFILE.SYSTEM_ID = DOCSADM_SECURITY.THING
WHERE (((DOCSADM_PROFILE.AUTHOR)=21941909) AND ((DOCSADM_SECURITY.PERSONORGROUP)=4038));

Now how do i tell this query to delete these selected records from security table....?

View 6 Replies View Related

Delete Records

Mar 17, 2005

I have a survey form that has the questions on a subform based on the response to one of the survey demographic questions (via a query based on that response). The answers to the questions are on a sub-sub form. How can I get the program to delete the answers that were entered (they are related to the primary survey form with a common ID number) if the user changes the survey response.

In other words, if the user of SurveyID 5 decides that they want to fill out the list of blue questions rather than red questions, how can I delete all the answer blue records for SurveyID 5? Right now, it will display the red questions if you change to red and enter red answers, but the blue answers remain in the database, creating 2 sets of answers for SurveyID 5.

Any suggestions...if this is not too confusing?
Thanks!

View 1 Replies View Related

Cannot Add Or Delete Records

Dec 25, 2004

Hello all:

Form created based on a query. When i go to the form, the add new record and delete record buttons are disabled.

I have checked and re-checked the form, tables, queries and all seems well.

Does anyone know how I can fix this problem?

Many thanks,

Dion

View 2 Replies View Related

Delete Records Except First

Jun 1, 2014

possible to delete all records from one table except the first; Is that possible?

View 7 Replies View Related

Deleting Data Older Than 6 Months

Mar 13, 2007

Hi,

Firstly I rather unsucessfly tried the search function,

I want to automatically delete any enteries older than 6 months, I do NOT want to archieve them, simply delete them. I only have three entries;
Date
Address Line 1
Post Code

I was unsure how i would go about this or even where to begin so some help would be much appreciated.

Kind regards

View 7 Replies View Related

Values Older Than Current & Previous

Jan 29, 2007

Hi,

I'm new to using access SQL , I'll appreciate if someone can provide the where clause of the statement below:

Provide the count of assets with values older than current and previous versions.

This is needed to determine if we can upload these assets manually.

thanks
b2bmike

View 3 Replies View Related

LATEST Date Older Than 45 Days....

Mar 21, 2008

I need to find the LATEST date in field Recdate that is 45 days or older in a query. I have tried <Date()-45, etc. but it returns all dates not just the last one. Does this require a range of dates to do this ? If not, how would I id the last date input ?
Thanks

View 14 Replies View Related

Older Record Disappearing When Filtered

Mar 24, 2012

My database contain these:

- Products Table = [ID].AutoNumber, [Product].Text, [Active].Yes/No
- Orders Table = [ID].AutoNumber, [Product].Number, [Date].Date/Time, [Payment].Text
- Orders Form = [ID], [Product], [Date], [Payment]

I have [Product] in Orders Table and Orders Form as Combo Box for showing Product from Products Table.

And within product field on Orders, I want to make 'Active' product only showing up when choosing from combo box.

I made some records to test in Orders Form. Then I filtered Product from Orders Form with query:

Code:
SELECT Products.ID, Products.Product, Products.Active
FROM Products
WHERE (((Products.Active) Like Yes));
Then I changed some product 'Active' to "No"
And the old record disappearing.

How to make older record not disappearing when I filter some of field not being available to choose (because Active product uncheck)

More in-depth, Attachment Database1.zip

View 4 Replies View Related

Delete Records Problem

Jun 8, 2005

Good evening,

I am experiencing a problem with the delete buttons I have added into my forms. I have 3 different forms that operators use, I added a delete button using the wizard on each form to delete the data if the user makes a mistake. I have allowed deletes in the form properties. My problem is that the button only works on one of the forms. I have checked the code and it is the same on all 3 forms.

The record is not deleted, all that happens is that the vertical bar down the LHS of the form flashes black, and thats about it

Private Sub Command52_Click()
On Error GoTo Err_Command52_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command52_Click:
Exit Sub

Err_Command52_Click:
MsgBox Err.Description
Resume Exit_Command52_Click

End Sub

Any thoughts?

The only difference is that one button is called Command52 and the other one is called Delete

Russ

View 4 Replies View Related

How To Delete Duplicate Records

Apr 30, 2007

Hello,

I have a table that has many duplicate records. I tried importing the table and setting the field to no duplicates but did not work. How can I delete duplicate records. The primary Id id fine I have another field that I can use. it is a BAC number that is repeated many times. Here is the table I need fixed.

Thanks

View 1 Replies View Related

Auto Delete Records?

Jul 29, 2005

I am creating a web database where users submit entries using an online form. When they submit the entry, I am saving the entry date and time in a column called Timestamp. What I need to figure out is if there is a way to create some sort of expiration date, based on the Timestamp, that will automatically delete a record after it is 7 days old. Is there a way to do this? Thanks so much for any help that you can give.

View 5 Replies View Related

Delete Multiple Records

May 9, 2007

how do i delete multiple records in a table, for example if i have a table that as serial_num 123 twice, how do i delete the two records, basically i don't want to delete one record, i want to delete the two records. Thanks.

View 5 Replies View Related