Dag = Day(date())
If Dag = 1 And cdate(Application("tiden")) <> date() Then
Conn.Execute "Update topplista Set Inp=0, Utp=0,InUt=0"
Application("tiden") = date()
End If
Trådstart#1
Jag har denna kod:
Dag = Day(date)
If Dag = 1 And Application("tiden") <> date Then
Set RS = Conn.Execute("SELECT * From topplista")
Do Until RS.EOF
Conn.Execute("Update topplista Set Inp=0, Utp=0,InUt=0")
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Application("tiden") = date
End If
Men den nollställer hela tiden när det är den 1:a
Vad ska jag ändra? Hur ska det vara istället!?
/Åsa
