Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Course Of The Month
3 days, 10 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Update ACCESS 2010 table field based on value in another field with VBA
Posted on 2014-11-12
I have a table with a field DealDateContract. There are two additional fields in the table that need to be updated with information based on the date in this field, but I can't get the below to work. Am not sure if there is a QUATER function in ACCESS 2010.
Public Sub YearQuarterSort()
'UPdates quarter and quarter sort columns in tblReportSource table
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("t
With rst
rst.MoveFirst
Do While Not rst.EOF
.Edit
If IsDate(.DealDateContract) Then
!YrQtr = Year(.DealDateContract) & "-Q" & Quarter(.DealDateContract)
!YrQtrSort = Year(.DealDateContract) & "-Q" & Quarter(.DealDateContract)
.Update
Loop
rst.Close
Set rst = Nothing
End With
End Sub
Public Sub YearQuarterSort()
'UPdates quarter and quarter sort columns in tblReportSource table
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("t
With rst
rst.MoveFirst
Do While Not rst.EOF
.Edit
If IsDate(.DealDateContract) Then
!YrQtr = Year(.DealDateContract) & "-Q" & Quarter(.DealDateContract)
!YrQtrSort = Year(.DealDateContract) & "-Q" & Quarter(.DealDateContract)
.Update
Loop
rst.Close
Set rst = Nothing
End With
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2-
2
5 Comments
Active today
There is no Quarter function, but you can use:
DatePart("q", .DealDateContract)
/gustav
DatePart("q", .DealDateContract)
/gustav
Active today
And you could reduce to:
!YrQtr = Format(.DealDateContract, "yyyy\-\Qq")
!YrQtrSort = Format(.DealDateContract, "yyyy\-\Qqmmdd")
/gustav
!YrQtr = Format(.DealDateContract, "yyyy\-\Qq")
!YrQtrSort = Format(.DealDateContract, "yyyy\-\Qqmmdd")
/gustav
Active 1 day ago
Storing values that can be easily calculated in a query is poor practice not to mention violating first normal form and the second one isn't even useful since you should be sorting by the date field itself.
Thank you. This is better than what I inherited. And Yes, Pat, you are correct, but I am dealing with a legacy system and trying to do as much as I can without having to re-write the entire thing, which I do not have time to do. I mostly am trying to get this thing to work for a six-month life cycle. Where I can, I normalize, but sometimes the source process is so convoluted I just have to go with it!
Sandra
Sandra
One final comment and actually this I going to be another question on suggestions how to resolve, but rather than creating a partner table with partner names, this previous programmer put three-letter acronyms in column headers so now have to figure out how to report on partner data dynamically determining which columns to use as well as the types are not consistent so I cannot even parse out the client name and then column information. Now the client wants to add two more partners so now I need to add columns rather than simply add their names to a partner list with associated types of business processes.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening. This article shows how to create and use them.
Make the most of your online learning experience.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
- Document Management
- Document Imaging
- Programming
- Adobe Acrobat
- Scripting Languages
- Printers and Scanners, OCR, *Scripts, *PDF, *text file
Suggested Courses
Course of the Month3 days, 10 hours left to enroll
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.