Comment timbre à date d'un enregistrement dans Access

Ouvrez Microsoft Access et créer une base de données en cliquant sur " Fichier> Nouveau> Modèles d'échantillons > Événements » puis sur le bouton "Créer". Cliquez sur le " volet de navigation " à gauche de l'écran, puis les « supporter des objets " se dirigeant à dénoncer les "événements " icône de la table . Double -cliquez sur cette icône pour ouvrir le tableau des événements pour la saisie des données.
2

Entrez les deux lignes de données d'échantillon dans le tableau des événements en utilisant le texte suivant, qui correspond aux champs « Titre », « Start Time »et« End Time ». Ne pas entrer les virgules , qui vous montrent où appuyer sur la touche «Tab» . Ne remplacer les champs de avec aujourd'hui et les dates de demain.

Couper l'herbe , , peindre la maison , ,
3

Début de la programmation nécessaire pour éradiquer l'heure de début automatiquement , en créant d'abord un formulaire sur lequel le programme sera exécuté : appuyez sur " Créer> forme . " Faites un clic droit sur ​​l'onglet de la nouvelle forme « d'événement » et sélectionnez « mode Création. "
4

Appuyez sur le bouton " Activer le contenu» sur la barre d'outils pour permettre l'exécution des macros sur cette base de données.
5

clic-droit sur le champ " d'horodatage " et sélectionnez "Propriétés ", puis cliquez sur l'onglet "Evénement" dans la fenêtre " Feuille de propriétés " . Cliquez sur la flèche vers le bas dans le "On obtient le focus " ligne et sélectionnez " [Procédure événementielle ] . " Cliquez sur le bouton avec les ellipses , qui se trouve immédiatement à droite de la flèche vers le bas , pour entrer dans l'environnement de développement intégré Visual Basic (IDE).
6

Coller le code du programme ci-dessous dans le code de l' IDE fenêtre :

Private Sub Start_Time_GotFocus () Dim x As VariantIf ( IsNull ( Start_Time ) ) thenm = Mois ( maintenant () ) d = Day ( Now () ) y = Année ( maintenant () ) x = m & "/" & d & "/" & yStart_Time = xEnd IfEnd Sous
7

retourner à l'accès en appuyant sur " alt- F11 ", puis faites un clic droit sur ​​l'onglet "Evénements" et sélectionnez " former View " pour activer le formulaire d'entrée de données.
8

Tab à travers tous les champs de chaque enregistrement de l'échantillon que vous avez entré jusqu'à ce que les " ID " montre sur le terrain " (New ) . " Tab jusqu'au champ "Start time" et notez l'effet de votre macro, qui a rempli le temps de démarrage à la date actuelle.
9

timbre à date le champ " Heure de fin " en ré- entrer dans l'IDE et coller le code suivant sous le code que vous avez entré précédemment :

Private Sub End_Time_GotFocus ( ) «modification de la 1 à la prochaine déclaration au nombre souhaité de jours après le début datetm = DateAdd ( " d " , 1, Start_Time ) eND_TIME = tmEnd Sous
10

Re - exécuter le formulaire , faire en sorte que le champ " End Time " affiche une date un jour après le champ " heure de début " .