Forum - Εμφάνιση ενός μόνο μηνύματος - Κώδικας για να λειτουργεί η Βάση για συγκεκριμένες μέρες

#3 08-10-09, 17:57

Ευχαριστώ πάρα πολύ για την άμεση και λειτουργική απάντηση...
Παραθέτω τον κώδικα όπως τελικά διαμορφώθηκε, για κάθε χρήση...
Μήπως υπάρχει και κάποια σκέψη που να μπει ένα ακόμα if (ίσως με Dlookup στον tblUsers πεδίο UserName ?) που να παρακάμπτει τελείως τον έλεγχο ημερών για τον χρήστη "admin"?

Κώδικας:

Public Function fTrailTest()
Dim dStartDay As Date
'Ελέγχει τον πίνακα
If IsNull(DMax("[FirstDate]", "tblDays")) Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO tblDays VALUES ( Now(),False)"
    DoCmd.SetWarnings True
    Exit Function
Else
    dStartDay = DMax("[FirstDate]", "tblDays")
End If
' Έλεγχος run Code
If DLookup("Locked", "tblDays") = False Then
    ''Ελεγχος για χ=15 μέρες
    If Now() > DateAdd("d", 15, dStartDay) Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("UPDATE tblDays SET Locked=true")
        DoCmd.SetWarnings True
        'Σχετικό μήνυμα και κλείσιμο της access
        MsgBox " Οι x μέρες πέρασαν.", , "Info.."
        DoCmd.Quit
    End If
    'Σχετικό μήνυμα
    MsgBox "Έχεις ακόμα μέρες.", , "Info.."
    DoCmd.OpenForm "frmLalala", acNormal
Else
    MsgBox " Οι x μέρες πέρασαν.", , "Info.."
    DoCmd.Quit
End If
End Function

(Ελπίζω να μην κάνω κατάχρηση της όρεξής σου για βοήθεια)
Thanks

Θέμα: Κώδικας για να λειτουργεί η Βάση για συγκεκριμένες μέρες