Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms Programming / November 2006

Tip: Looking for answers? Try searching our database.

Date form and Report

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
artist02 - 21 Nov 2006 10:17 GMT
Hello,

I have 2 queries qryTotal_Production and
qryDowntime:

qryDowntime:

SELECT qryDowntimeUnion.Session, qryDowntimeUnion.Machine,
qryDowntimeUnion.Shift, qryDowntimeUnion.Downtime_Code,
Sum(qryDowntimeUnion.Downtime) AS SumOfDowntime,
Format([Date],"dd-mmm-yyyy") AS [Downtime Date]
FROM qryDowntimeUnion
GROUP BY qryDowntimeUnion.Session, qryDowntimeUnion.Machine,
qryDowntimeUnion.Shift, qryDowntimeUnion.Downtime_Code,
Format([Date],"dd-mmm-yyyy")
HAVING (((qryDowntimeUnion.Downtime_Code) Is Not Null) AND
((Sum(qryDowntimeUnion.Downtime)) Not Like "0"));

qryTotal_Production:

SELECT qryScrapUnion.Session, qryScrapUnion.Machine,
qryScrapUnion.Shift, Sum(qryScrapUnion.Scrap_Kgs) AS SumOfScrap_Kgs,
Format([Date],"dd-mmm-yyyy") AS [Scrap Date]
FROM qryScrapUnion
GROUP BY qryScrapUnion.Session, qryScrapUnion.Machine,
qryScrapUnion.Shift, Format([Date],"dd-mmm-yyyy")
HAVING (((Sum(qryScrapUnion.Scrap_Kgs)) Not Like "0"));

I have  an unbound report called "test" which has some of these
text boxes: i) txtE1 ii) txtProduction. The controlsource of is like this and

works perfectly:
=Nz(DLookUp("[SumOfDowntime]","qryDowntime","[Downtime_Code] = '" & 3 & "'AND
[Machine]= '" & 1 & "'"),0)

1. How can i create a form where a user can input a date and the DLookUp
above creates the
  correct info for that particular date on the report.
2. How can i create a DLookUp on the controlsource of txtProduction based on
qryTotal_Production
  where it presents [SumOfScrap_Kgs] from qryTotal_Production where
  [Scrap Date] = to the the date entered by a user on the form created above.

Thank you in advance!

PS. Iam an access 2002 novice.
Jeff L - 21 Nov 2006 16:26 GMT
1. How can i create a form where a user can input a date and the
DLookUp above creates the correct info for that particular date on the
report.

Your qryDowntime needs to have a date field that can be filtered.  Is
it [Date]? Then your DLookup would look like the following.  I made it
look a little neater:
=Nz(DLookUp("[SumOfDowntime]","qryDowntime","[Downtime_Code] = '3' AND
[Machine]= '1' And [Date] = #" & Forms!YourFormName!DateFieldOnForm &
"#"),0)

2. How can i create a DLookUp on the controlsource of txtProduction
based on qryTotal_Production where it presents [SumOfScrap_Kgs] from
qryTotal_Production where
[Scrap Date] = to the the date entered by a user on the form created
above.

I'm not sure how you are using txtProduction to do a lookup from
qryTotal_Production, so here's a kinda generic DLookup for you:

=Nz(DLookUp("[SumOfScrap_Kgs]","qryTotal_Production", "SomeField = '" &
[txtProduction] & "' And [Date] = #" &
Forms!YourFormName!DateFieldOnForm & "#"),0)

I did notice some potential problems:
1. HAVING Sum(qryScrapUnion.Scrap_Kgs) Not Like "0" should be
HAVING Sum(qryScrapUnion.Scrap_Kgs) > 0.  Like is used to compare
strings and not numbers.

2.  Having a field called Date in your table is not a good idea.  Date
is a reserved word in Access and reserved words should not be used as a
field name.

Hope that helps!

> Hello,
>
[quoted text clipped - 46 lines]
> Message posted via AccessMonster.com
> http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200611/1
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.