quinta-feira, 25 de maio de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

UM CONTROLE - DUAS INFORMAÇÕES
Autor:  Ananias L R Duarte (ananiasd@correios.com.br)
Publicado:  25/08/2004
Visitas: 5004
 
UM CONTROLE - DUAS INFORMAÇÕES

Um formulário, principal, mostra os dados gerais de um determinado Animal, inclusive o sexo. Por sua vez, um segundo formulário mostra a prole desse Animal, sendo que esse segundo formulário possui apenas duas colunas: ctl_Filhos e ctl_Pais. A consulta (qry) base desse Formulário é: Select Nome, idPai, NomePai, idMãe, NomeMãe FROM Tab_Animais;

No controle ctl_Filhos serão mostrados os nomes dos filhos do Animal e no controle ctl_Pais serão mostrados os nomes dos pais ou das mães, respectivamente, caso o sexo do Animal seja Fêmea ou Macho. Mas como isso será feito se na propriedade OrigemDoControle do ctl_Pais pode-se indicar apenas um campo?! Fácil, basta lembrarmos que as propriedades dos controles são manipuláveis!

No Procedimento de Evento No Atual do frmFichaAnimal, desenvolva o seguinte código:

Private Sub frmFichaAnimal _Current()
If Me.Sexo = "M" Then
If EstáCarregado("frmProle") Then
Forms!frmProle.Filter = "idMãe = " & Me.idAnimal
Forms!frmProle.FilterOn = True
Forms!frmProle!ctl_Pais.ControlSource = "NomePai"
Forms!frmProle!ctl_Pais.Caption = "Pai"
End If
Else
If EstáCarregado("frmProle") Then
Forms!frmProle.Filter = "idPai = " & Me.idAnimal
Forms!frmProle.FilterOn = True
Forms!frmProle!ctl_Pais.ControlSource = "NomeMãei"
Forms!frmProle!ctl_Pais.Caption = "Mãe"
End If
End If
End Sub
Repare que usamos o campo idPai para filtrar apenas os filhos do idAnimal, quando esse Animal for macho e, o campo idMãe para filtrar apenas os filhos do idAnimal, quando esse Animal for uma fêmea.

Por outro lado, quando o Animal for um macho a propriedade OrigemDoControle do controle ctl_Pais passar a ser NomeMãe e, se for uma fêmea a propriedade OrigemDoControle do controle ctl_Pais passar a ser NomePai.

Observe que o Caption (legenda) do controle ctl_Pais muda, também, de acordo com o sexo do idAnimal .

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco