access 2003 rocrds not deleted, data is read only

Posted on 2010-09-05
Last Modified: 2012-06-21
I've read numerous forums none of which work.
(Access 2003 with Jet dB)

I have a form with a subform within it.
The form programatically sets the record source for the subform.
Thi works fine. only the selected records are displayed.
However, when I go to manually delete one of the records I get the message "records not deleted, data is read only' in the status bar.
Ive checked the permission on the DB. In fact if I go to the table directly I can delete it OK.
The table I display has no joins. It also has a single field primary key which is also unique.

Here's my sql

Dim strsql As String
strsql = "SELECT record_id, user, batch_num, product, barcode, description, quantity FROM tbl_Data "
strsql = strsql & "WHERE (User='" & CurrentUserName & "')"

Me.tbl_Current_Batch_subform.Form.RecordSource = strsql

CAn anyone help.
It must be something simple or stupid.
Question by:EWHTLC
  • 5
  • 3
  • 3
  • +1

Expert Comment

ID: 33607164
How are you trying to delete the records? Do you get a Read Only message when
starting the database?

Expert Comment

ID: 33607173
LVL 75
ID: 33607205
On the subform form ... what are the following Form properties set to:

Allow Edits
Allow Deletions


Are you using code to Delete?  If so, where and what ?


Author Comment

ID: 33607279
Tony, I've already looked at that answer and it doesn't apply here.

To delete the record I am simply highlighting the selection bar on the left of the row. AS soon press my delete on the keyboard the message is displayed in the status bar.

On the subform. THe allow edits and allow deletions are both set to 'yes'. In fact I've tried all combinations.

There is one peculiar. When I set the record type to dynaset, the records do not get selected on the subform. I have read that it needs to be dynaset to be able to delete.

Any ideas ?
LVL 75
ID: 33607298
"be dynaset to be able to delete."
Definitely. Or Dynaset (Inconsistent Updates)

Sure sounds like the subform's recordsource is Not updatable for some reason.

Can you:

1) Compact & Repair (*** to shrink the size),

2) Zip up the MDB (*** to further shrink the size)

3) Attach the file for upload here (using the 'Attach File function below) ... removing any sensitive data of course.

4**** And please give a clear explanation of exactly how to reproduce the problem or what you are trying to do.

NOTE:  If you have an A2007 ACCDB, please convert to A2003 MDB.
LVL 44

Expert Comment

ID: 33607505
When you say you are setting the recordsource of the subform programatically, do you mean only CurrentUserName changes or in fact the table and fields.  If only the CurrentUserName changes, you should be using tblData directly as the recordsource, and controlling the link using LinkMasterFields and LinkChildFields set to CurrentUserName.
Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

LVL 44

Expert Comment

ID: 33607511
also, if CurrentUserName is the name of the field in both tables and it is also the name of the text box in the main form, that will create a problem.  Change the name of the textbox to txtCurrentUserName.

Author Comment

ID: 33607516
I've zipped it up and attached it.
I've go rid of hat I can
If you open it up for modification (open with shift key)
Ther eare some network links in there

run the startup form (not startform)
username eric password eric
It will then take you into a form with the subform on it.
The subform will contain 4 records.
Select any one of the records and try to delete it.
The message appears in the status bar at the bottom.


LVL 75
ID: 33607539
The Recordset Type is being set to Snapshot somewhere.  That is your issue.

LVL 75
ID: 33607575
What's odd is ... if you set it to Dynaset, then no records are displayed ....

LVL 75

Accepted Solution

DatabaseMX (Joe Anderson - Access MVP) earned 300 total points
ID: 33607591
OK ... you have the Subform Data Entry property set to Yes.  Set to No ... and Recordset Type to Dynaset ... and it works.

LVL 44

Assisted Solution

GRayL earned 200 total points
ID: 33607655
In addition, you can get into trouble if you leave the Microsoft default control name the same as the field name to which it is bound.  Best to prefix it with something indicating the type of control.  You did it in a couple of places in the main form but your subform is problematic.  Have a look at

Author Closing Comment

ID: 33607686
Thanks Guys.
I know it would be simple.
I think I've just been looking at it for too long now and couldn't see the woods for the trees.

Thanks for your time. It now works a treat

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Today's users almost expect this to happen in all search boxes. After all, if their favourite search engine juggles with tens of thousand keywords while they type, and suggests matching phrases on the fly, why shouldn't they expect the same from you…
In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

762 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now