[Resolvido]Como detetar 2 campos ao mesmo tempo no mesmo "Select Case" ?

Boa tarde amigos
Tenho dois campos num formulário "FaltasLocal" e "FaltasAdversario", e tenho este este código no formulário e funciona.

E quando uma equipe Local tem 5, 10 ou 15 faltas informa ... correto.

A outra equipe faz uma falta que por exemplo também é a 5ª . Informa que as dus equipas tem 5 faltas mas deveria informar só a que atingiu a 5ª.

Seria possivel fundir os 2 "Select Case FaltasLocal" e Select Case FaltasAdversario num só ?


Private Sub Form_Current()
  Select Case FaltasLocal
           Case Is = 5
               MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
           Case Is = 10
                MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
           Case Is = 15
                MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
       End Select

               Select Case FaltasAdversario
           Case Is = 5
               MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
           Case Is = 10
                MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
           Case Is = 15
                MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
       End Select
End Sub


Obrigado

Fiquei em dúvida Assis:

Se as duas equipes tem 5 faltas cada, então deverá informar que ambas tem 5 faltas!
Agora se uma equipe tem 5 faltas e a outra não, seu código apenas irá mostrar uma
mensagem!

Ou você queria fundir as duas mensagens em uma?

Marcelo

Tem sempre uma equipe que chega primeiro a 5ª falta, dava a informação

Quando a outra equipe também atingir a 5ª só dava a informação para esta.

Assim como nos outros casos ?????

Obrigado Marcelo

Ainda estou confuso, desculpe-me...

Poderia tentar criar um campo SIM/NÃO na tabela do formulário com o nome de Msg
Ponha esse campo no formulário e deixe-o oculto.

Daí faríamos assim:

Código:

Private Sub Form_Current()
       Select Case FaltasLocal
           Case Is = 5
               If Me.Msg.Value = False Then
                      MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
                      Me.Msg = True
               End If
           Case Is = 10
               If Me.Msg.Value = False Then
                      MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
                      Me.Msg = True
               End If
           Case Is = 15
               If Me.Msg.Value = False Then
                    MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
                    Me.Msg = True
               End If
       End Select

       Select Case FaltasAdversario
           Case Is = 5
                If Me.Msg.Value = False Then
                      MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
                      Me.Msg = True
                End If
           Case Is = 10
                 If Me.Msg.Value = False Then
                      MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
                      Me.Msg = True
                 End If
           Case Is = 15
                If Me.Msg.Value = False Then
                      MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
                      Me.Msg = True
                End If
     End Select
End Sub



Marcelo
Vamos ver se me fasso entender.
Tenho duas listbox.
Uma tem o nome da equipe local
A outra tem o nome da equipe adversária.

Seleciono a primeira listbox e escolho numa combo a ação "falta" .
Cliko num botão e gravo. Tem um campo que acumula as faltas para a equipe local. Quando chegar a 5, 10, e 15 tem que dar o Aviso.

Quando seleciono a segunda listbox faz o mesmo processo para a equipe adversária.
Queria fazer o mesmo, tipo de gravação, com a mesma informação, sem ter nada a ver com a outra equipe.

Obrigado

Assis, poderia por aqui seu aplicativo, daí vendo seria mais fácil para saber o fazer.

Marcelo
Mais logo eu coloco a BD é que agora estou no IPad
Obrigado

Com a dica do Marcelo David

Ficou assim e resolvido

If Me.ListaLocal.ItemsSelected.Count = 1 Then
Select Case FaltasLocal
Case Is = 5
MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
Exit Sub
Case Is = 10
MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
Exit Sub
Case Is = 15
MsgBox "Equipa " & EquipaLocal.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
Exit Sub
End Select
End If

If Me.ListaAdversaria.ItemsSelected.Count = 1 Then
Select Case FaltasAdversario
Case Is = 5
MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 5ª Falta!", vbInformation, "Atenção"
Case Is = 10
MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 10ª Falta!", vbInformation, "Atenção"
Case Is = 15
MsgBox "Equipa " & EquipaAdversaria.Column(1) & " atingiu a 15ª Falta!", vbInformation, "Atenção"
End Select
End If

Grato pelo retorno!