[Resolvido]Controlar campo Sim/Não entre diferentes formulários

Boa noite amigos, gostava que caso possível me possam dar mais uma ajudinha

Tenho uma dúvida, relativamente a controlar um campo do tipo sim/não em diferentes formulários.

O meu caso:



Resumindo, dentro do formulario Factura tenho um campo denominado "Pronta" que só quero que fique activo, caso todos os campos do "Estado" (podem ser muitos, pois variam do numero de itens da factura) estejam activos também, Penso que a imagem retrata bem a dúvida que tenho.

Toda a ajuda é bem vinda

A minha DB: http://www.speedyshare.com/files/29855311/Factura_nua.mdb

Agradeço desde já toda a ajuda até agora prestada por todos vocês a um iniciante neste mundo

Um abraço

Não vi ainda o arquivo, mas uma forma de se fazer isso, sendo que deve ter um campo comum a todos os registros do subformulário, creio que poderia ser assim:

If DCount("*", "Tabela", "Código=" & Me.Código & " And CampoSimNão=-1") = DCount("*", "Tabela", "Código=" & Me.Código) Then
Me.CampoSimNãoDoForm = -1
Else
Me.CampoSimNãoDoForm = 0
End If

Amigo eu penso que ele está funcionando mais ao menos, isto foi o que eu alterei


Private Sub Pronta_GotFocus()

If DCount("*", "Detalhes_Factura", "teste=" & Me.Factura & "And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Factura) Then
Me.Pronta = -1
Else
Me.Pronta = 0
End If

End Sub

O detalhes_factura é a tabela onde guardo os itens da encomenda, sendo "teste" o campo que é o meu identificador, e o Estado é o campo sim/não.

Mas ele está me dizendo que falta um operador .

O Erro é "Erro de sintaxe (operador em falta) na expressão de consulta 'teste= And Estado = -1'

Grato

Bom dia, obrigado pela sua resposta.

O argumento do Me.Factura como assim ? o campo Factura, é o campo identificador do form Factura, não entendi bem o que quiz dizer .

O espaço estava lá, ao passar para aqui é que apaguei o sem querer ..

Abraços

está aqui alguma confusão

O campo que eu quero que ele altere chama -se "Pronta", que irá variar do campo "Estado" no Detalhes_Encomenda.

O "Pronta" pertence ao formulário "Factura" cujo ID é o campo "Factura"

O "Estado" pertence ao formulário Detalhes_Encomenda, cujo ID é o campo "teste".

Se isto for o que tinha pensado fui eu que não percebi, o que me transmitiu, desculpe

Exato amigo, é aí que aparece o erro

certo, é aí

Mas o Me.Factura não irá ter o valor da factura actual ?

A tabela Factura, o campo identificador chama se Factura tambem.. Não pode ?

Alterei o campo, denominei-o de Id_Venda, alterei o código :

"If DCount("*", "Detalhes_Factura", "teste=" & Me.Id_Venda & " And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Id_Venda) Then"

Continua com erro, desta vez, dá erro no Método de entrada

Não sei se importa para o caso, mas tanto o campo teste como o Id_Venda são ambos Numeração automática

Envie o BD Nuno

Saudações

Segue a minha BD : http://www.speedyshare.com/files/29874076/Factura_nua_-_C_pia.mdb

Amigo Alexandre, o nome de controlo que fala penso que seja o campo identificador do formulário onde se encontra o campo "Pronta" correto ?

Ele esta a fazer para um subform Alexandre...

If DCount("*", "Detalhes_Factura", "teste=" & Me.Id_Venda & " And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Id_Venda) Then
Me.Pronta = -1'

As caixas texto estão em um subform.....Dai o código não encontrar...

Para isto...

Forms!NomeForm.NomeSubFOrm.Form!ID_Venda

mesma fórmula para os demais..

Saudações

Bem... O relacionamento e os campos estão mal..

Tentarei ajustar isto aqui e envio

Ignorem a Msg quanto ao subForm

Fiz alguns ajustes nas tabelas, nos campos do relacionamento...

Veja isto e assimile Nuno.. para não ficar a voltas com este problema...
Relacionamento é algo que já passou desta fase de aprendizado...

Observe que na sua tabela detalhes havia campos do Relacionamento em branco.. isso não pode.


A única coisa que esta a dar problema é que não está aceitando modificar o valor da ChkBox Pronta..

Logo mais vejo isso

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


Saudações

Apenas substitua o evento no módulo do form para

Ao Carregar:

Private Sub Form_Load()
If DCount("*", "Detalhes_Factura", "ID_Venda=" & Me.txtFactura & " And Estado=-1") = DCount("*", "Detalhes_Factura", "ID_Venda=" & Me.txtFactura) Then
Me.Pronta.Value = -1
Else
Me.Pronta = 0
End If
End Sub



Saudações

Transformei em uma pequena função, adicionei botões no form e em cada botão chamo a função

Call AtualizaChkBox e no evento ao carregar tambem..

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

Saudações

Oi amigo, eu só tinha alterado os campos, para tentar corresponder às ajudas do amigo Alexandre, daí ter alterado ...

Coloquei este seu código no Form Factura, mas não está funcionando ...

Aquele campo "Facturatxt" não existe em nenhuma das minhas tabelas, não teria de ser um campo de alguma delas amigo ?

Edit: Não tinha visto este sua alteração amigo, vou observar.

É como o AMigo alexandre o disse.. Estás a fazer confusão.. eu alterei os nome da caixa texto e nome de campos na tabela..

Não podes simplesmente utilizar o mesmo código sem fazer as devidas alterações...
Abra o exemplo acima e entenda..

Saudações

Amigo Harysohn e Alexandre,
Já percebi onde estava errando !

Há alguma forma de alterar o código de forma a ele actualizar quando recebe o foco o campo "Pronta" ? é que ele só está actualizando o campo quando volto atrás no registo, não mo actualiza "imediatamente" não sei se me faço entender

Obrigado mais uma vez !

E manda o foco para o campo pronta em que momento?

O código é como está ai.. apenas veja qual o melhor evento a aplicá-lo...

Voce pode aplicar o código no subform.. quando o campo Sim/não recebe o foco, ou mesmo após o código que o atualiza, mais para isso o código muda um pouco pois tem que especificar o endereço do campo no form

Forms!NomeForm!SeuCampoIDNoForm

Pois, não tem mesmo forma de fazer de outra forma, a não ser que eu "inventasse" um outro campo, mas isso era trabalho desnecessário.

Obrigado amigos ! Está resolvido, afinal era simples !

Harylson onde foi voce arranjar aqueles icons todos catitas para os botões ?

Consulte nosso Amigo Mr.Google

http://www.iconesbr.net/

Alem deste há vários

Bom trabalho.