olá, agradeço a vossa ajuda antecipadamente.
encontrei aqui no fórum um exemplo de rotina do mestre Marcelo David que impede dar baixa estoque negativo.
e fiz algumas adaptações consoante as minhas necessidade e esta a dar erro ao clicar no botão salvar do Frm_Pedido erro: "invalid use of null. estou a dias a tentar ultrapassar sem êxito.
Private Sub txtQuantPedido_BeforeUpdate(Cancel As Integer)
Dim i As Integer
If IsNull(Me!txtCodigoArtigo) Then 'Para evitar conflitos, verifico se o produto foi informado
MsgBox "Artigo não informado!", vbExclamation, "Falta dados" 'Caso não tenha sido informado, desfaça as ações
Me.Undo
Cancel = True
Else 'Se o produto estiver informado corretamente
i = DLookup("Estoque", "Cst_Estoque", "CodigoArtigo=" & Me!txtCodigoArtigo) 'Guardo a quantidade atual do estoque do produto na variável i
If i < Me!txtQuantPedido Then 'Verifico se a quantidade do estoque é menor que a informada na compra
'Informo que não há estoque suficiente com detalhes
MsgBox "Não é possível proceder a saida desse artigo na quantidade especificada." _
& vbNewLine & "Quantidade atual em estoque: " & i & "" & vbNewLine & "Quantidade informada para " _
& "Levantamento: " & Me!txtQuantPedido & "" & vbNewLine & "Diferença: " & Me!txtQuantPedido - i & "", vbExclamation, "Estoque insuficiente!"
Me.Undo 'Desfaço as alterações
Cancel = True 'cancela a atualização do registro
End If
End If
End Sub
tambem estei com funcao Nz esta a mostrar estoque zero (mas existe estoque) assim:
i = Nz (DLookup("Estoque", "Cst_Estoque", "CodigoArtigo=" & Me!txtCodigoArtigo))
alguem pode dar uma olha onde esta o erro.
encontrei aqui no fórum um exemplo de rotina do mestre Marcelo David que impede dar baixa estoque negativo.
e fiz algumas adaptações consoante as minhas necessidade e esta a dar erro ao clicar no botão salvar do Frm_Pedido erro: "invalid use of null. estou a dias a tentar ultrapassar sem êxito.
Private Sub txtQuantPedido_BeforeUpdate(Cancel As Integer)
Dim i As Integer
If IsNull(Me!txtCodigoArtigo) Then 'Para evitar conflitos, verifico se o produto foi informado
MsgBox "Artigo não informado!", vbExclamation, "Falta dados" 'Caso não tenha sido informado, desfaça as ações
Me.Undo
Cancel = True
Else 'Se o produto estiver informado corretamente
i = DLookup("Estoque", "Cst_Estoque", "CodigoArtigo=" & Me!txtCodigoArtigo) 'Guardo a quantidade atual do estoque do produto na variável i
If i < Me!txtQuantPedido Then 'Verifico se a quantidade do estoque é menor que a informada na compra
'Informo que não há estoque suficiente com detalhes
MsgBox "Não é possível proceder a saida desse artigo na quantidade especificada." _
& vbNewLine & "Quantidade atual em estoque: " & i & "" & vbNewLine & "Quantidade informada para " _
& "Levantamento: " & Me!txtQuantPedido & "" & vbNewLine & "Diferença: " & Me!txtQuantPedido - i & "", vbExclamation, "Estoque insuficiente!"
Me.Undo 'Desfaço as alterações
Cancel = True 'cancela a atualização do registro
End If
End If
End Sub
tambem estei com funcao Nz esta a mostrar estoque zero (mas existe estoque) assim:
i = Nz (DLookup("Estoque", "Cst_Estoque", "CodigoArtigo=" & Me!txtCodigoArtigo))
alguem pode dar uma olha onde esta o erro.
- Anexos
- teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (821 Kb) Baixado 17 vez(es)