I just debugged it and no errors. I checked for missing references and I do not see any.
Jim Wagner
On Thursday, April 7, 2016 12:30 PM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Jim-
I just tried that in one of my sample databases, substituting a different field name:
Age: DateDiff("yyyy",[EmpBirthDate],Date())+CInt(Format(Date(),"mmdd")<Format([EmpBirthDate],"mmdd"))
Works fine.
Do you have any VBA code in your database? If so, does it compile and save OK? If not - especially if there's an unresolved library reference - that could be the problem.
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
On Apr 7, 2016, at 9:16 PM, Jim Wagner luvmymelody@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
John,
I must be doing something wrong, because CInt did not work either. same error
Age of Employee: DateDiff("yyyy",[DOB],Date())+ CInt(Format(Date(),"mmdd")<Format([DOB],"mmdd"))
Jim Wagner
On Thursday, April 7, 2016 12:06 PM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Hmm. Int should work in a query. CInt should work OK - and I know that's supported in queries.
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
On Apr 7, 2016, at 8:52 PM, Jim Wagner luvmymelody@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
John,
I changed the expression to the query for age and I get an Undefined function 'Int' in expression error
Jim Wagner
On Thursday, April 7, 2016 11:38 AM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Jim-
DateDiff("yyyy", [DOB], Date())+ Int( Format(Date(), "mmdd") < Format( [DOB], "mmdd") )
The second one is close. Why did you remove the quotes around Jim Wagner? Try this:
=DLookUp("[Employees Years of Service]","qryYearsOfService","FullName = 'Jim Wagner'")
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
On Apr 7, 2016, at 8:21 PM, Jim Wagner luvmymelody@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
I am trying to do a dlookup on a form and have come to a head and a wall. I have a query Named qryYearsOfService. The query calculates the years of service. But the form gave me a #Name? error so I tried it another way and the next expression gave me an gets a #Error error. I must be missing something so simple here. Any help will be of great assistance to me.
Thank You
Jim Wagner
qryYearsOfService
SELECT tblInformation.FullName, tblInformation.DOB, DateDiff("yyyy",[tblInformation]![DOB],Now()) AS [Age of Employee], tblInformation.YearsOfServiceDate, DateDiff("yyyy",[tblInformation]![YearsOfServiceDate],Now()) AS [Years Worked], [Age of Employee]+[Years Worked] AS [Employees Years of Service]
FROM tblInformation;
On the form I have several text boxes that neither work.
Text Boxes on form
this onea #Name? error
txtYearsOfServiceTotal
=DLookUp(["Employees Years of Service"]!["qryYearsOfService"],"FullName = 'Jim Wagner'")
This one gets a #Error error
Text369
=DLookUp("[Employees Years of Service]","qryYearsOfService","FullName = Jim Wagner")
Jim Wagner
__._,_.___
Posted by: Jim Wagner <luvmymelody@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (7) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? The Yahoo Mail app is fast, beautiful and intuitive. Try it today!
.
__,_._,___
Tidak ada komentar:
Posting Komentar