Ändra status!

Tjenare!

Detta är nog ingen match för er killar. Läget är såhär att jag har några ligor i tabellen tblLiga där ligan har statusen on eller off.

Nu vill jag att om sista datumet har paserat dagens datum så skall statusen vara off, om dagens datum är större än sista datumet så skall statusen vara on.

Här kommer en kod, dessvärre fungerar den inte.

strSQL = "SELECT TOP 1 datum FROM tblSpel ORDER BY datum DESC"
Set objDate = Conn.Execute(strSQL)
If Date() > CDate(objDate("datum")) Then
   strSQL = "UPDATE tblLiga, tblSpel SET tblLiga.status = 'off' WHERE tblSpel.datum = (SELECT TOP 1 datum FROM tblSpel ORDER BY datum DESC) AND tblSpel.ligaid = tblLiga.ligaid"
  Conn.Execute(strSQL)
End If
Set objDate = Nothing

Rs.Close : Set Rs = Nothing
Conn.Close : Set Conn = Nothing

Vad finns det för relation mellan tblliga och tblspel?

I tblLiga finns status medan i tblSpel står alla datum.

För att sätta off

strSQL = "UPDATE tblLiga SET status = 'off' " & _
" WHERE not exists (SELECT 1 FROM tblSpel " & _
" where tblSpel.ligaid = tblLiga.ligaid " & _
"  and date() < Datum )"
  Conn.Execute strSQL

För att sätta on

strSQL = "UPDATE tblLiga SET status = 'off' " & _
" WHERE exists (SELECT 1 FROM tblSpel " & _
" where tblSpel.ligaid = tblLiga.ligaid " & _
"  and date() > Datum )"
  Conn.Execute strSQL

fungerar galant..