[Resolvido]Comando não funciona access 2007

Bom Dia Galera,

Estou com um problema em meu frm referente a um comando.

On Error Resume Next
Dim strQuantidade As String
'busca na tabela a quantidade de estoque existente
strQuantidade = Val(DLookup("[Quantidade]", "Produto", "[CodigoProduto] = " & Me.CodigoProduto & ""))
'se o estoque estiver a zero ou inferior a zero ou ainda se a quantidade de saida for maior que a do estoque, aborta...
If Val(strQuantidade) = 0 Or Val(strQuantidade) < 0 Or Me.Quantidade.Value > Val(strQuantidade) Then
MsgBox "Quantidade Indisponivel Saldo " & Me.CodigoProduto.Column(3) & "", vbCritical
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdDeleteRecord 'Cancelar Item se for solicitado quantidade maior que a disponibilidade'

Exit Sub

Else
'se tudo estiver bem, retira a quantidade da tabela

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Produto Set [Produto].[Quantidade] = [Produto].[Quantidade] - '" & Me.Quantidade & "' WHERE [Produto].[CodigoProduto] = " & Me.CodigoProduto & ""
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdDeleteRecord 'Cancelar Item se for solicitado quantidade maior que a disponibilidade'


O comando acima esta funcionando normal referente abaixa do estoque.

Porem o comando mais abaixo, que deveria deletar da lista um produto que fosse solicitado uma quantidade maior que a disponibilidade ele não funciona. ressalto que no access.2003 ele funciona 100% mais no access. 2007 ele não funciona.

tenho que mudar alguma linha para ele funcionar no 2007?

DoCmd.RunCommand acCmdDeleteRecord 'Cancelar Item se for solicitado quantidade maior que a disponibilidade'

se alguém puder me ajudar fico muito grato.

Boa Tarde Galera,

alguém poderia me ajudar,

O comando abaixo não funciona no access.2007, só está funcionando no access.2003.

DoCmd.RunCommand acCmdDeleteRecord

abraços

Jairo,

Eu trabalho com o 2007 e posso garantir que esse comando funciona perfeitamente.

Se possível disponibilize o bd para tentarmos ajuda-lo.


Abraços,

Boa Tarde,

Obrigado a todos pelo apoio.

abraços

Jairo

Resolveste?
Qual era o problema?

Abraços,