Ola, fiz varias consultas e não consegui resolver o problema. O erro ocorre quando se tenta editar e salvar mantendo o formulario de consulta aberto. Manter aberto é importante para voltar para a lista de consulta apos editar o registro desejado.
Private Sub idProduto_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CadastroProdutosEdit"
stLinkCriteria = "[idProduto]=" & Me![idProduto]
If [idProduto] <> "" Then
'DoCmd.Close Se o formulario de origem é fechado o erro nao ocorre.
If CurrentProject.AllForms("CadastroProdutosEdit").IsLoaded = False Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End If
Private Sub idProduto_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CadastroProdutosEdit"
stLinkCriteria = "[idProduto]=" & Me![idProduto]
If [idProduto] <> "" Then
'DoCmd.Close Se o formulario de origem é fechado o erro nao ocorre.
If CurrentProject.AllForms("CadastroProdutosEdit").IsLoaded = False Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End If