Date de validité [Résolu] - Access

A voir également:Date de validitéDates de validation ✓ - Forum - Excel La date de ce certificat a expiré ou il n’est plus valide - Conseils pratiques - Sites The boot configuration data file doesn't contain valid information for an operating system ✓ - Forum - Windows 10 The windows boot configuration data file does not contain a valid os entry windows 7 ✓ - Forum - Windows Algorithme date valide ✓ - Forum - Programmation

Forum

A voir également:Date de validitéDates de validation ✓ - Forum - Excel La date de ce certificat a expiré ou il n’est plus valide - Conseils pratiques - Sites The boot configuration data file doesn't contain valid information for an operating system ✓ - Forum - Windows 10 The windows boot configuration data file does not contain a valid os entry windows 7 ✓ - Forum - Windows Algorithme date valide ✓ - Forum - Programmation

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

bonsoir, c'est quoi la date de validité d'une base de données Access?

Reply
réponses:
  • auteur

    Bonjour, la date de validité, c'est une date d'expiration, une date à partir de laquelle la base ne fonctionne plus. tout comme les version démo des logiciels. il y a des moments le client dit qu'il va essayer la base pendant 2 semaines alors je souhaite que après les 2 semaines la base se plante.

  • auteur

    si tu as du code VBA dans cette base, tu peux bricoler quelque chose pour que le code refuse de fonctionner, ou même nettoie la base, après une date déterminée.

  • auteur

    quel serait donc ce code vba, aidez moi

  • auteur

    exemple de code, qui ferme la base dès le 12 février 2018:

    Public Function autostop() If Now() > DateSerial(2018, 2, 12) Then     Application.CloseCurrentDatabase End If End Function

    Tu peux créer une macro appelée AutoExec qui va appeler cette fonction.
    Sache toutefois qu'un utilisateur averti peut facilement contourner cette protection.
    Ceci terminera Access, ce qui est un peu plus agressif:
    Public Function autostop() If Now() > DateSerial(2018, 2, 12) Then     Application.Quit End If End Function

    Sois prudent avant de tester cela, tu risques de rendre ta base inutilisable, :-)

  • auteur

    Merci je vais tester. mais le test je copie la base. merci beaucoup

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed