[Resolvido]Função com Erro

Boa tarde Amigos

Na função abaixo, quando a quantidade digitada e maior, que o valor do Stock, a função dá  aviso e o foco volta ao campo " txtqty "mas não coloca lá o valor que eu quero  Me.txtqty.Value = 1

Onde estou a errar ?


Private Sub txtqty_BeforeUpdate(Cancel As Integer)
Dim X As Double
X = Me.Produto.Column(4)
Me.EmStock = X
Me.EmStock.Requery

If Me.txtqty > Me.EmStock.Value Then
  MsgBox "A Quant. Registada é Maior Que o Stock Existente em...! " & Me.txtqty.Value - Me.EmStock, vbInformation, "Aviso"
    Me.txtqty.SetFocus
    Me.txtqty.Value = 1 ' aqui não coloca o valor 1
Cancel = True
Else

Call Produto_AfterUpdate
End If
End Sub

Olá Assis, veja o que está a fazer com:

Call Produto_AfterUpdate

Abraço

Teixeira

Tirei a parte Call Produto_AfterUpdate

Mas a pergunta continua a mesma.

Private Sub txtqty_BeforeUpdate(Cancel As Integer)
Dim X As Double
X = Me.Produto.Column(4)
Me.EmStock = X
Me.EmStock.Requery

If Me.txtqty > Me.EmStock.Value Then
MsgBox "A Quant. Registada é Maior Que o Stock Existente em...! " & Me.txtqty.Value - Me.EmStock, vbInformation, "Aviso"
Me.txtqty.SetFocus
Me.txtqty.Value = 1 ' aqui não coloca o valor 1
Cancel = True
End If
End Sub

Olá, terá algum código no evento "ao alterar" desse campo.
Verifique também o tipo de campo e origem dos dados.

Caso não obtenha resultado , crie para teste um campo novo e atribua nesse campo, para verificar se assim faz a alteração.

Abraço

Obrigado Teixeira

Tinha lá um Me. Requery que tirei e resolveu

Olá, obrigado pelo retorno.
Verifique se não faz falta o que retirou noutra parte
Não se esqueça de dar tópico como resolvido.

Abraço

ops