Hello,
The problem has only been occurring since yesterday and no changes were made to either table structure or forms (apart from moving one textbox on a form a couple of centimeters).
I have two databases, front- and back-end. The two forms in question are based on one table each (table1 and table2, say), which have a one-to-one relationship and so share the same PK, called 'KASE'.
The situation is as follows. User1 opens up form1, may or may not change data here, and from form1 can navigate to form2. User1 can edit data on form2 happily etc.
User2 now opens form1, may or may not change data here, and navigate to form2. But when User2 opens form2, h/she cannot edit data. If you try you get 'The recordset is not updateable' message on the menu bar at the bottom of the Access screen.
I know that this recordset should be updateable (I have checked here and the table in question does meet the conditions for an updateable recordset: http://rogersaccessblog.blogspot.co.uk/2009/11/this-recordset-is-not-updateable-why.html). And, why should it suddenly change when it has been working for years?
So far I've rebuilt the front-end (exported all database objects into a new database), compacted and repaired many times and am currently in the process of moving all the data from the back-end into a fresh database also.
Below is the (truncated) code I use from one form to another:
<VBA>
If rCount <> 0 Then
docname = "frmDerivedAdd"
lkCriteria = "[KASE] = " & Forms![frmWhiteFormAdd]![txtKASE] & ""
DoCmd.OpenForm docname, , , lkCriteria, acFormEdit
Forms!frmDerivedAdd!txtOBST = Me.txtOBST
Forms!frmDerivedAdd!txtPAED = Me.txtPAED
Forms!frmDerivedAdd!txtNNtmm = Me.txtNNtmm
Forms!frmDerivedAdd!txtPNTmm = Me.txtPNTmm
DoCmd.Maximize
Me.Visible = False
Exit Sub
End If
If rCount = 0 Then
If Me.Dirty = True Then Me.Dirty = False
docname = "frmDerivedAdd"
DoCmd.OpenForm docname, , , lkCriteria, acFormAdd
Forms!frmDerivedAdd!txtKASE = Me.txtKASE
Forms!frmDerivedAdd!txtOBST = Me.txtOBST
Forms!frmDerivedAdd!txtPAED = Me.txtPAED
Forms!frmDerivedAdd!txtNNtmm = Me.txtNNtmm
Forms!frmDerivedAdd!txtPNTmm = Me.txtPNTmm
DoCmd.Maximize
Me.Visible = False
Exit Sub
End If
</vba>
Has anyone experienced a similar issue? Would be grateful for any suggestions.
TIA.
The problem has only been occurring since yesterday and no changes were made to either table structure or forms (apart from moving one textbox on a form a couple of centimeters).
I have two databases, front- and back-end. The two forms in question are based on one table each (table1 and table2, say), which have a one-to-one relationship and so share the same PK, called 'KASE'.
The situation is as follows. User1 opens up form1, may or may not change data here, and from form1 can navigate to form2. User1 can edit data on form2 happily etc.
User2 now opens form1, may or may not change data here, and navigate to form2. But when User2 opens form2, h/she cannot edit data. If you try you get 'The recordset is not updateable' message on the menu bar at the bottom of the Access screen.
I know that this recordset should be updateable (I have checked here and the table in question does meet the conditions for an updateable recordset: http://rogersaccessblog.blogspot.co.uk/2009/11/this-recordset-is-not-updateable-why.html). And, why should it suddenly change when it has been working for years?
So far I've rebuilt the front-end (exported all database objects into a new database), compacted and repaired many times and am currently in the process of moving all the data from the back-end into a fresh database also.
Below is the (truncated) code I use from one form to another:
<VBA>
If rCount <> 0 Then
docname = "frmDerivedAdd"
lkCriteria = "[KASE] = " & Forms![frmWhiteFormAdd]![txtKASE] & ""
DoCmd.OpenForm docname, , , lkCriteria, acFormEdit
Forms!frmDerivedAdd!txtOBST = Me.txtOBST
Forms!frmDerivedAdd!txtPAED = Me.txtPAED
Forms!frmDerivedAdd!txtNNtmm = Me.txtNNtmm
Forms!frmDerivedAdd!txtPNTmm = Me.txtPNTmm
DoCmd.Maximize
Me.Visible = False
Exit Sub
End If
If rCount = 0 Then
If Me.Dirty = True Then Me.Dirty = False
docname = "frmDerivedAdd"
DoCmd.OpenForm docname, , , lkCriteria, acFormAdd
Forms!frmDerivedAdd!txtKASE = Me.txtKASE
Forms!frmDerivedAdd!txtOBST = Me.txtOBST
Forms!frmDerivedAdd!txtPAED = Me.txtPAED
Forms!frmDerivedAdd!txtNNtmm = Me.txtNNtmm
Forms!frmDerivedAdd!txtPNTmm = Me.txtPNTmm
DoCmd.Maximize
Me.Visible = False
Exit Sub
End If
</vba>
Has anyone experienced a similar issue? Would be grateful for any suggestions.
TIA.
