[kon73]

Καλημέρα,

Λοιπόν να αναφέρω μία εισαγωγή στον κώδικα σου εφόσον προστεθεί στον πίνακα TblDays και ένα πεδίο Boolean που θα ονομάζεται Locked με Default τιμή = False. Τώρα γίνεται έλεγχος αν είναι False ώστε να τρέξει ο κώδικας. Μόλις η τρέχουσα ημερομηνία είναι πλέον των 15 ημερών τότε έχουμε Locked=True επομένως και κλειδώνει και την επόμενη φορά που ξανακαλέσουμε τον κώδικα δεν γίνεται έλεγχος για πλέον των 15 ημερών απλά βγάζει το μήνυμα κλεισίματος καθότι το Locked είναι True.

if Dlookup("Locked","Tbldays")=false then
'Ελεγχος για χ=15 μέρες
     If Now() > DateAdd("d", 15, StartDay) Then
          Docmd.RunSql("UPDATE TblDays SET Locked=true")
          'Σχετικό μήνυμα και κλείσιμο της access
          MsgBox "Οι x μέρες πέρασαν.", , "Info.."
      end if
else
     'Σχετικό μήνυμα και κλείσιμο της access
     MsgBox "Οι x μέρες πέρασαν.", , "Info.."
end if

Φιλικά

iliadisk / kon73