[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

Falta-lhe o argumento correspondente ao Me.Factura. Não pode ter o sinal igual seguido do operador And
teste= And Estado = -1
Antes do operador And, falta-lhe um espaço

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

Repare na expressão
If DCount("*", "Detalhes_Factura", "teste=" & Me.Factura & "And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Factura) Then
o código apresenta erro aqui:
'teste= And Estado = -1'
Ora, entre o sinal de igual e o operador And existe o argumento Me.Factura enquanto na expressão de erro nada aparece em seu lugar. Significa que a expressão não está certa. Pelo que descreveu agora, será por ter o nome do controlo igual ao do campo. Qqquuuaaannntttaaasss vezes alerto para este gerador de confusões.

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

Vamos por partes
A expressão
If DCount("*", "Detalhes_Factura", "teste=" & Me.Factura & "And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Factura) Then
dá erro?

Exato amigo, é aí que aparece o erro

E a mensagem indica que o erro se encontra aqui:
'teste= And Estado = -1'
Certo?

certo, é aí

Ora, foi o que lhe disse anteriormente.
Compare (a parte da sua expressão onde surge o erro)
'teste=" & Me.Factura & "And Estado=-1'
com
'teste= And Estado = -1'
Consegue ver que a parte " & Me.Factura & " corresponde a nada?

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

Com se chama o controlo que armazena o campo Factura?
Se o campo se chama Factura, o controlo dever-se-ia chamar, por exemplo, TxtFactura

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

Foi isso que eu lhe comuniquei na mensagem que não terá gostado de ler.
Se o campo se chama Factura e controlo se chama Factura, quando refere Factura o que é que o Access deve entender a que se está a referir. Já reparou que os pais não dão nomes iguais aos filhos? Se tivessem mais que um filho com o mesmo nome, a quem se referia quando falasse no nome?

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

Nuno,

Deve utilizar na expressão o nome do controlo.
Suponhamos que o controlo se chama TxtFactura, coloque
If DCount("*", "Detalhes_Factura", "teste=" & Me.TxtFactura & "And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.TxtFactura) Then

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 ?

Também costumo dizer que a maior dificuldade não é trabalhar com Access, a maior dificuldade é expressar-se. O computador entende tudo o que lhe dissermos, mas não aceita ambiguidades.
No seu caso, como designou o controlo por Factura, coloque
If DCount("*", "Detalhes_Factura", "teste=" & Me.Factura & " And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Factura) Then

No entanto, aconselho-o a nomear os controlos de acordo com as boas práticas. Neste caso, deveria ser TxtIDVenda e ficaria a saber que se trata de caixa de texto que armazena o campo IDVenda.

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.

Está a fazer confusão:

DCount("*", "Detalhes_Factura", "teste=" & Me.Factura & " And Estado=-1") = DCount("*", "Detalhes_Factura", "teste=" & Me.Factura)
Nome da tabela
campo da tabela
representa o formulário actual
campo do formulário

É 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.