This Recordset is not updateable - Error

[anoble1]

I have asked this question in the past but I can't figure this one out. It is a little different. I have a checkbox that keeps giving me the error.
I have 2 attachments.
Any help?

Is it because I am doing the filter in VBA?

Private Sub Form_Load()
'Filter this form to show the feeder selected
Forms!frmMain!frmAll.Controls("PO").SetFocus
Me.RecordSource = "SELECT tblInformation.*, tblDivision.BranchName, tblInformation.PO FROM tblInformation INNER JOIN tblDivision ON tblInformation.Branch = tblDivision.BranchNumber WHERE (((tblInformation.PO)='" & Forms!frmMain!frmAll.Controls("PO").Text & "'));"

[NeoPa]

Hi.

I don't think it's because you're doing it in VBA. It seems clear that it's because you have multiple tables without JOINs. See Reasons for a Query to be Non-Updatable for a better understanding of what makes a recordset non-updatable. The fourth item on the list describes your situation exactly.

[anoble1]

I guess I am not understanding. I don't have 3 or more tables and only 1 link here.

[NeoPa]

Sorry. Let me look at that again. I misread the SQL all scrunched up into a single line. I should know better. I should have reformatted before commenting.

Now I look more carefully it seems you have referred to a field in your WHERE clause that's included twice in the SELECT clause (tblInformation.PO). I often find it helps to take the resultant SQL string and create a QueryDef object with it and see what it reports when trying to run it. In this case, as a QueryDef object will automatically add an ALIAS for the second occurrence you may not see the same behaviour, but it's worth a try. I expect the solution is simply to remove the second instance of tblInformation.PO from your SELECT clause.

Other SQL debugging tips can be found at How to Debug SQL String.