Well, there is 2 query in this db here is the sql for both.
SELECT Documentation.RequestNumber, Documentation.DateNeed,
Documentation.TimeNeed, Documentation.AdminAssigned, [Review
Sheet].[Start
Time], [Review Sheet].[End Time], [Review Sheet].Duration,
Documentation.CustomerName, Documentation.DueDiligence,
Documentation.NoteNumber, Documentation.TransType,
Documentation.[Customer
Type], [Review Sheet].[Highlighted Points], [Review Sheet].[Approved to
print], [Review Sheet].ApprovedDate, [Review Sheet].[Self Reviewer],
Documentation.[Reviewed By], Documentation.[Reviewed Date], [Review
Sheet].[Special Case], [Review Sheet].[Review 2nd-Check]
FROM [Review Sheet] RIGHT JOIN Documentation ON [Review Sheet].[Access
Log
#] = Documentation.RequestNumber
WHERE (((Documentation.TransType)<>"Amort. Schedule"))
ORDER BY Documentation.CustomerName;
and here is the other
SELECT Documentation.[Reviewed By], Count(Documentation.[Reviewed By])
AS
[#Reviewed], [Hours] & ":" & [Minutes] AS [Time], Sum([Review
Sheet].Duration) AS [Total Minutes], Int([Total Minutes]/60) AS Hours,
Format((([Total Minutes]/60)-Int([Total Minutes]/60))*60,"00") AS
Minutes,
Format([Total Minutes]/[#Reviewed],"00") AS AvgMinPerRev
FROM Documentation LEFT JOIN [Review Sheet] ON
Documentation.RequestNumber
=
[Review Sheet].[Access Log #]
WHERE (((Documentation.DueDiligenceOnly)=False) AND
((Documentation.[Reviewed Date]) Between [Enter Beginning Date] And
[Enter
End Date]) AND (([Review Sheet].Duration)>0))
GROUP BY Documentation.[Reviewed By]
HAVING (((Documentation.[Reviewed By]) Is Not Null))
ORDER BY Documentation.[Reviewed By];
:
Presumably the recordsource is a query. What's the SQL of that query?
--
Doug Steele, Microsoft Access MVP
(no e-mails, please!)
Douglas - the form and the command were working properly yesterday
and
today
the command is not, when I debug it send me to the command code
listed
below.
The office recently put through a ms patch do you think that could
have
broken the code. Not only that but I have a regularl text box and
now
it
won't allow me to enter any data???
:
The implication is that the Recordset of the form is based on a
query
that's
not updatable.
Unless you can fix that, there's nothing you can do.
See what Allen Browne has at
http://www.allenbrowne.com/ser-61.html
for
some
things to check.
--
Doug Steele, Microsoft Access MVP
(no e-mails, please!)
Hi a db I inhereted has a form with a start time and an end time
commad,
botth are not working. VB message "run-time
error -2147352567(80020009)
This
Recordset is not updateable"
Private Sub cmdtime_Click()
Me.StartTime = Time()
Me.Revieweddate = Date
End Sub
Can anyone help me with this?
