Solved

Recordset not updateable ......

Posted on 2011-09-22
7
269 Views
Last Modified: 2012-05-12
See attached.
Click frmDatasheet
Double on one of the circular option buttons on the left.  This chooses a customer.

I have put a STOP in the code to assist.
Now F8 through the code.
It will crash with a recordset error on the line "DateViewed = Now()"

WHY ? This worked earlier in the day.
KeyService2.accdb
0
Comment
Question by:Patrick O'Dea
  • 4
  • 3
7 Comments
 
LVL 61

Expert Comment

by:mbizup
ID: 36583145
Not sure if this is your issue, but the file you uploaded appears to be corrupt.
0
 

Author Comment

by:Patrick O'Dea
ID: 36583409
Hi again,
Hopefully this is not corrupt.
I have simplified things.
Click on frmCUstomers
F8 until you get a recordset error (only a few F8)

Why this error?

frmCustomers maintains the tblCustomers - fairly straight forward stuff
KeyService2.accdb
0
 
LVL 61

Expert Comment

by:mbizup
ID: 36583482
Can't open that one either - unrecognized database format, and the upload is zero bytes.
0
Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

 
LVL 61

Expert Comment

by:mbizup
ID: 36583564
Okay - I got a little further with your first uploaded DB by switching to an Access 2010 computer.

I now get to a password prompt.
0
 

Author Comment

by:Patrick O'Dea
ID: 36583574
Yes , I see the zero sized one.
I have uploaded again and this is 3MB (I can see it in EE screen!)

Password is 1234
KeyService2.accdb
0
 
LVL 61

Accepted Solution

by:
mbizup earned 500 total points
ID: 36584157
Your recordsource query for frmCustomers looks odd  - I'm not sure if this is deliberate or not, but it is the culprit:

SELECT tblCustomers.CustomerID, tblCustomers.CustomerName, tblCustomers.CustomerPhone, tblCustomers.CompanyName, tblCustomers.Add1, tblCustomers.Add2, tblCustomers.Add3, tblCustomers.PostCode, tblCustomers.DateReported, tblCustomers.ExpectedCompletion, tblCustomers.RevisedCompletion, tblCustomers.GeneralComments, tblCustomers.WindowCount, tblCustomers.FaultyWindowCount, tblCustomers.InstallationDate, tblCustomers.ReportedBy, tblCustomers.Status, tblCustomers.CallBackDate, tblCustomers.DateCompleted, tblCustomers.SiteVisitRequired, tblCustomers.CompletionCertNumber, tblCustomers.EngineerorSubcontractor, tblCustomers.Locked, tblCustomers.DateLocked, tblStatus.AllowLock, tblCustomers.Merchant, tblCustomers.Locker, tblCustomers.DateViewed, tblCustomers.email, tblCustomers.PaymentMethod, tblCustomers.CreditCardNumber, tblCustomers.[3Digit], tblCustomers.NameOnCard, tblCustomers.ExpiryDate, tblCustomers.CalloutCharge, tblCustomers.PaymentReceived, tblCustomers_1.ChargeableToCustomer
FROM tblCustomers AS tblCustomers_1, tblCustomers INNER JOIN tblStatus ON tblCustomers.Status = tblStatus.StatusID;

You have tblCustomers and an alias for tblCustomers (tblCustomers_1), with one field being selected from the alias (ChargeableToCustomer).

That doesn't *seem* necessary, and revising it like this makes it updateable:

SELECT tblCustomers.CustomerID, tblCustomers.CustomerName, tblCustomers.CustomerPhone, tblCustomers.CompanyName, tblCustomers.Add1, tblCustomers.Add2, tblCustomers.Add3, tblCustomers.PostCode, tblCustomers.DateReported, tblCustomers.ExpectedCompletion, tblCustomers.RevisedCompletion, tblCustomers.GeneralComments, tblCustomers.WindowCount, tblCustomers.FaultyWindowCount, tblCustomers.InstallationDate, tblCustomers.ReportedBy, tblCustomers.Status, tblCustomers.CallBackDate, tblCustomers.DateCompleted, tblCustomers.SiteVisitRequired, tblCustomers.CompletionCertNumber, tblCustomers.EngineerorSubcontractor, tblCustomers.Locked, tblCustomers.DateLocked, tblStatus.AllowLock, tblCustomers.Merchant, tblCustomers.Locker, tblCustomers.DateViewed, tblCustomers.email, tblCustomers.PaymentMethod, tblCustomers.CreditCardNumber, tblCustomers.[3Digit], tblCustomers.NameOnCard, tblCustomers.ExpiryDate, tblCustomers.CalloutCharge, tblCustomers.PaymentReceived, tblCustomers.ChargeableToCustomer
FROM tblCustomers INNER JOIN tblStatus ON tblCustomers.Status = tblStatus.StatusID;

That makes it 'work', and I don't think it changes your expected functionality.

0
 

Author Closing Comment

by:Patrick O'Dea
ID: 36589157
Thanks , perfect solution.  I should have spotted it !
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

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.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Access 2016 - Labels prompt to print 4 31
Create report using crosstab query 11 29
date criteria to pull up records for the last 3 months 39 40
aggregate query? 20 49
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question