[Resolvido]Valores Sim/Não

Boas Amigos,
estou iniciando a minha viagem no MsAccess e no Vb e estou com algumas dificuldades, que penso que ninguém melhor do que vocês me poderão ajudar a ultrapassar

A primeira é a seguinte, tenho na minha BD um formulário que tem um campo de selecção "Sim/Não" do tipo "caixa de selecção", o seu nome é "Estado" e está na tabela "Itens_Encomenda" (não sei se será necessário dizer quais as tabelas, caso seja por favor digam!)

O que eu pretendia, era que a checkbox "Estado", actualiza se o seu estado automaticamente
(por exemplo, ficava com o visto se Quantidade > Valor_Total ) o que quer dizer que poderá fazer a factura,
e caso (Quantidade < Valor_Total), lançaria uma mensagem de erro de forma a contactar o fornecedor do material em falta..

A "Quantidade" que eu me refiro é a quantidade que temos em stock do material que escolheu para a sua encomenda, e o "Valor_Total" será a muliplicação de profundidade * largura* comprimento (que já se está feito)...

O código que eu tentei e não funcionou foi este

"
Private Sub Quantidade_AfterUpdate()

If (Quantidade > Valor_Total) Then
[Estado] = -1
Else
If (Quantidade < Valor_Total) Then
[Estado] = 0

End If


End Sub
"

Desde já deixo o meu muito obrigado !

Os maiores cumprimentos

Supondo que todos os campos estejam no form:

If Me.Quantidade > Me.Valor_Total Then
Me.Estado = -1
Else
Me.Estado = 0

Agora.. se for para atualizar todos os itens da tabela quando um campo tiver o valor > que o outro campo...


Private Sub Form_Load()
CurrentDb.Execute "UPDATE SuaTabela SET Estado=-1 WHERE Campo1 > Campo2;"
End Sub

colocando esse código o estado fica me sempre com o visto :s

quer a quantidade seja menor ou maior que o valor_total ..

Cumprimentos

Mt obg

Amigão... evite ano fórum usar mensagens de MSN, abreviadas etc... assim não dá para compreender o que deseja..

Porfavor repita a sua questão acima de forma correta para que eu possa entender..

Saudações

Se entendi o que quis dizer.. a resposta é não..

Apenas atualiza o campo estado na linha ondë: Campo1 > Campo2

Testei agora...

http://dl.dropbox.com/u/26441349/Nunon85_03_08_11.rar

Há tambem uma listBox onde apresenta os produtos com o Status SIM

Peço desculpa, era muito obrigado :p

Eu coloquei, no campo Valor_Total (que será aquele que contém o cálculo) na parte do "Depois do acontecimento".. Coloquei no sítio correto ?

Veja o exmeplo que te enviei e retorne...

Mandei lhe uma MP, você poderia vê la ?

Já vi o que me enviou, é mesmo aquilo que eu procuro mas com uma pequena alteração se lhe puder transmitir

Obrigado

Por favor, utilizem este espaço para postarem as dúvidas. As MP's, não se destinam a isso.

Qual alteração que pretende amigão...


Sou todo ouvidos...

Vamos la Amigão... quais alterações pretende...

quer que a chkBox fique marcada quando? em que situação?

Veja Amigão... fiz várias Alterações conforme creio que deva ser...

1 - Campo Stok e Preços ambos devem estar na tabela materiais e não em tabelas separadas, pois fazem parte das informações do material e sua quantiade em Stok
2 - Exclui as tabelas e coloquei os campos na tabela materiais
3 - Criação de uma lstBox com base na tabela materiais
4 - Duplo click na listBox insere o material na tabela Itens_Encomenda
5 - após atualizar do campo Valor_Total, executa diversas rotinas
5.1 - Atualização do campo Estado
5.2 - Atualização do Stok na tabela Materiais
5.3 - Reatualização do Campo Stok na tabela Itens_Encomenda.

Estude e veja se lhe saiu a gosto...
qualquer coisa Apite.

http://dl.dropbox.com/u/26441349/Nuno85_03_08_11.rar

Saudações

Era mesmo isso amigão !

Mas agora surgiu me um problema, estive a alterar de forma a me guardar também o preço unitário e tá me dando um erro, este foi o código que alterei


Private Sub ListMaterial_AfterUpdate()
CurrentDb.Execute "INSERT INTO Itens_Encomenda(ID_Material, Material, Stock, Preço) VALUES('" & ListMaterial.Column(0) & "','" & ListMaterial.Column(1) & "','" & ListMaterial.Column(2),'" & ListMaterial.Column(3) & "')"
Me.SubFormItensEncomenda.Requery
End Sub

A negrito está o que alterei, o erro que diz está na Syntax mas não sei onde ...

Cumprimentos

falta uma aspas no final da coluna 2

CurrentDb.Execute "INSERT INTO Itens_Encomenda (ID_Material, Material, Stock, Preço) VALUES('" & ListMaterial.Column(0) & "','" & ListMaterial.Column(1) & "','" & ListMaterial.Column(2) & "','" & ListMaterial.Column(3) & "')"

e não se esqueça que só utiliza as aspas simples se for texto.

bombou

Muito obrigado !

O Fórum agradece o Retorno...
Saudações...

Tenho de retornar o quê ? Não percebi

Tenho uma dúvida, criei um formulário (Encomenda_Factura) mas quando selecciono o Cliente ele me dá uma mensagem de erro, que anteriormente não me dava, já tentei fazer tudo de novo mas continua dando errado :S

Segue em anexo, o formulário é o "teste".

Edit: O link não funcionava
http://www.speedyshare.com/files/29731561/teste.accdb

Os maiores cumprimentos

Apenas disse que agradecemos por ter retornado dizendo que Bombou!!!...

E uma expressão comum no fórum pos retornou dizendo que o problema foi solucionado...

Nova dúvida.. Novo tópico amigão...

Se postar mais de uma duvida por tópico termina por confundir que esta acompanhado...

Saudações

Ahh não sabia, estamos sempre aprendendo

Irei criar então !!

Cumprimentos