[Resolvido]Preenchimento de Campo Dependendo de Valores

Boa noite

Tenho um Form com os seguintes Campos

"Equipa" "GolosCasa" "EquipaFora" "GoloFora" "Pontos"


E eu queria que ao preencher os campos "GoloCasa" e "GoloFora" os pontos apareciam automáticamente.

Mais ou menos isto:

If Me.GolosCasa = Me.GoloFora then Me.pontos = "1"

If Me.Equipa = "Guima" and Me.GolosCasa > Me.Golo Fora then Me.pontos = "3"

If Me.Equipa = "Guima" and Me.GolosCasa < Me.Golo Fora then Me.pontos = "0"

If Me.EquipaFora = "Guima" and Me.GolosCasa > Me.Golo Fora then Me.pontos = "0"

If Me.EquipaFora = "Guima" and Me.GolosCasa < Me.Golo Fora then Me.pontos = "3"

Boa Noite Amigão

Chamo-lhe um projecto falhado, mas essa parte acho que funciona. Sirva-se no frmfixtures.

Abraço

http://dl.dropbox.com/u/8157744/Master2.zip

Bom dia Amigo Vieira

Obrigado pelo exemplo que enviou, mas para mim não resultou mas deu para tirar outras ideias.
Não resultou, porque eu não tenho interesse no controlo a equipa adversária.

Então resolvi assim

Private Sub Form_Current()
Select Case Me.Equipa.Value = "MinhaEquipa"
Case Me.GoloCasa > Me.GoloFora
Me.Pontos = 3
Case Me.GoloCasa < Me.GoloFora
Me.Pontos = 0
Case Me.GoloCasa = Me.GoloFora
Me.Pontos = 1
End Select
End Sub

Obrigado pelo retorno e forte abraço