Pessoal Boa noite,
Estou criando um formulário de controle de estoque, onde os dados são importados do Excel para o acess. Fiz a importação tranquilamente com sucesso.
Dentro outros campo da tabela tenho um campo que se chama 'situação de estoque' onde se a quantidade do material é 0, significa "SEM SALDO" e quando é maior que 0 é "COM SALDO", bem intuitivo.
Porém gostaria de saber se tem como atualizar este campo da tabela, situação de estoque automaticamente, quanto o valor de estoque for "0" ele muda automaticamente para "SEM SALDO" e quanto for maior que "0" o campo situação de estoque mudar automaticamente para "COM SALDO". Como se fosse um If e else mesmo, tem como colocar isto na tabela??
Ou fiz o seguinte:
Criei um formulario em forma de tabela e inclui a função If e Else abaixo, porém ele só muda o valor que esta com a linha em foco, para alterar todas as linhas tenho que passar linha por linha, tem como abrir o Formulario e aplicar a função If e Else em todos os campos sem precisar passar linha por linha para aplicar a alteração??
Function Atualiza_Situacao()
If txt_QtdEstoque = 0 Then
txt_SitEstoque = "SEM SALDO"
Else
txt_SitEstoque = "COM SALDO"
End If
End Function
Private Sub Form_Current()
Atualiza_Situacao
End Sub
Obrigado a todos que puderem me ajudar
Estou criando um formulário de controle de estoque, onde os dados são importados do Excel para o acess. Fiz a importação tranquilamente com sucesso.
Dentro outros campo da tabela tenho um campo que se chama 'situação de estoque' onde se a quantidade do material é 0, significa "SEM SALDO" e quando é maior que 0 é "COM SALDO", bem intuitivo.
Porém gostaria de saber se tem como atualizar este campo da tabela, situação de estoque automaticamente, quanto o valor de estoque for "0" ele muda automaticamente para "SEM SALDO" e quanto for maior que "0" o campo situação de estoque mudar automaticamente para "COM SALDO". Como se fosse um If e else mesmo, tem como colocar isto na tabela??
Ou fiz o seguinte:
Criei um formulario em forma de tabela e inclui a função If e Else abaixo, porém ele só muda o valor que esta com a linha em foco, para alterar todas as linhas tenho que passar linha por linha, tem como abrir o Formulario e aplicar a função If e Else em todos os campos sem precisar passar linha por linha para aplicar a alteração??
Function Atualiza_Situacao()
If txt_QtdEstoque = 0 Then
txt_SitEstoque = "SEM SALDO"
Else
txt_SitEstoque = "COM SALDO"
End If
End Function
Private Sub Form_Current()
Atualiza_Situacao
End Sub
Obrigado a todos que puderem me ajudar
Última edição por supermax em 22/4/2019, 00:18, editado 1 vez(es)