Run-time Error 3246 - Operation not supported in transactions

[Dave]

Thanks for all the help yesterday with the code below.

When I try to requery the subform "frmnewpartssubform" I get a runtime error
3246- Operation not supported in transactions.
When I manually type part numbers in I do not get the error and the subform
is required ok

Can any one help me solve this?

Dave

Private Sub partno_BeforeUpdate(Cancel As Integer)
If IsNull(DLookup("[IZPN]", "tblpartsdatabase", "[IZPN] = '" & Me.partno &
"'")) Then
If MsgBox("This is a New Part - Do You Wish To Add?", vbYesNo, "Project
Costing Database") = vbNo Then
Cancel = True
Me.Undo
Exit Sub
Else: CurrentDb.Execute ("INSERT INTO tblnewparts ( partno, xfile,
issue )" & "Values('" & Me.partno & "', '" & Forms!frmprojectstabbed.Form! _
xfile & "', '" & Forms!frmprojectstabbed.Form!issue & "');"),
dbFailOnError
Cancel = True
Me.Undo
Forms!frmprojectstabbed!frmnewpartssubform.Form.Requery

End If
End If

 

[Allen Browne]

This sounds like a timing issue.

If partno is a bound control, then there is an entry in progress. This event
has not been completed when you try to undo it and requery the form.

 

[Dave]

Thanks Allan

It seems to be a timing problem - if I remove the requiry event it works ok
(well apart from a "paste error" message"!!)
I have tried requerying using the After Update Event but get the same error.

Thanks

Dave

This sounds like a timing issue.

If partno is a bound control, then there is an entry in progress. This
event has not been completed when you try to undo it and requery the form.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Thanks for all the help yesterday with the code below.

When I try to requery the subform "frmnewpartssubform" I get a runtime
error 3246- Operation not supported in transactions.
When I manually type part numbers in I do not get the error and the
subform is required ok

Can any one help me solve this?

Dave

Private Sub partno_BeforeUpdate(Cancel As Integer)
If IsNull(DLookup("[IZPN]", "tblpartsdatabase", "[IZPN] = '" & Me.partno
& "'")) Then
If MsgBox("This is a New Part - Do You Wish To Add?", vbYesNo,
"Project Costing Database") = vbNo Then
Cancel = True
Me.Undo
Exit Sub
Else: CurrentDb.Execute ("INSERT INTO tblnewparts ( partno, xfile,
issue )" & "Values('" & Me.partno & "', '" &
Forms!frmprojectstabbed.Form! _
xfile & "', '" & Forms!frmprojectstabbed.Form!issue & "');"),
dbFailOnError
Cancel = True
Me.Undo
Forms!frmprojectstabbed!frmnewpartssubform.Form.Requery

End If
End If