command not working

  • Thread starter Thread starter Memo
  • Start date Start date
M

Memo

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?
 
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???
 
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];
 
Because of the GROUP BY in the second query, it's not going to be updatable,
but it couldn't have been updatable previously.

Have either of the tables involved ([Review Sheet] and Documentation) become
read-only?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Memo said:
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];
Douglas J. Steele said:
Presumably the recordsource is a query. What's the SQL of that query?
Click to expand...
Click to expand...
 
How do I determine if either table is read only?

Douglas J. Steele said:
Because of the GROUP BY in the second query, it's not going to be updatable,
but it couldn't have been updatable previously.

Have either of the tables involved ([Review Sheet] and Documentation) become
read-only?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Memo said:
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];
Douglas J. Steele said:
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?
Click to expand...
Click to expand...
Click to expand...
 
Open the table and try to write to it.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Memo said:
How do I determine if either table is read only?

Douglas J. Steele said:
Because of the GROUP BY in the second query, it's not going to be
updatable,
but it couldn't have been updatable previously.

Have either of the tables involved ([Review Sheet] and Documentation)
become
read-only?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


Memo said:
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?
Click to expand...
Click to expand...
Click to expand...
 
Back
Top