Alvorens dit te doen elke vorm van programmeren , zul je sample data nodig . Begin om deze gegevens te creëren door het openstellen van Access en het kiezen van de " Nieuw " commando om een nieuwe database te maken . Maak een tabel films door eerst de veldnamen te typen en hun types te selecteren in het tabblad " Tabel1 " . Hier zijn de veldnamen en types aan te gaan :

Tekst veld
: " title " Tekst veld , " regisseur " Number veld , " year_released "

Voer twee data rijen in de tabel , die overeenkomt met die velden die u zojuist hebt gemaakt . ( Dus niet de punt komma of aanhalingstekens . ) Op Twitter

rij 1 : " star wars ", " lucas , " 1977row 2 : " excalibur , " " boorman , " 1980

Sla de databank , het invoeren van " films " voor de naam van de tabel wanneer hierom wordt gevraagd .
Maak een formulier voor Data Entry

Uw event - driven programma vereist een vorm om te werken . Maken door de optie "Create > Form Wizard " te kiezen alle " Beschikbare velden " behalve " ID " te kopiëren naar de " Geselecteerde velden " tekstgebied en vervolgens te klikken op ' Voltooien '.

Access
zal het formulier te openen in vormen View . Klik met de rechtermuisknop ergens op het formulier en selecteer "Design View . "
Evenement toevoegen Procedure

Nu zult u een evenement procedure voor het creëren veld film " Title " . Wanneer de gebruiker probeert om het tabblad weg van dat gebied na het veranderen van het, zal uw programma een message box die haar om te bevestigen of te annuleren haar keuze te geven.

Start
door te klikken op de " titel " tekstvak en klikt vervolgens op de " event " tabblad in het " Eigenschappenvenster . " In de "Voordat Update " rij , klik op de pijl naar beneden en selecteer " Gebeurtenisprocedure , " en klik vervolgens op de knop direct rechts van de pijl naar beneden .
Schrijf Code wilt zien op de bevestiging Prompt < br >

U vindt de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in een procedure die wordt uitgevoerd wanneer de gebruiker de filmtitel verandert en vervolgens drukt op de Tab-toets automatisch in . Plak de volgende programmacode in die procedure , zodat het lijkt als volgt :

Private Sub title_BeforeUpdate
( Cancel As Integer ) Dim respresp = MsgBox ( " Wilt u werkelijk om dit record te veranderen ? " , VbMsgBoxStyle.vbYesNo ) Als ( resp = VbMsgBoxResult.vbYes ) Then Exit SubCancel = TrueEnd Sub
Enable macros

Terug naar Access , en ervoor zorgen dat de macro's worden ingeschakeld voor deze databank door te klikken op de " Inhoud inschakelen " knop . Als het programma niet wordt uitgevoerd, veranderen macro instellingen het Vertrouwenscentrum door het volgende te doen : Kies " Bestand > Opties > Vertrouwenscentrum > Instellingen voor het Vertrouwenscentrum > Instellingen voor macro's , " en klik vervolgens op de " Alle macro's inschakelen " optie
.
Test Your Program

Dubbelklik op de " films " vorm in het venster " All Access Objects " om uw code te testen . Klik in het veld ( film ) " titel " voor ieder stuk, typen of verwijder enkele tekst en druk op de Tab-toets . De prompt verschijnt . Klik op " Nee " om de cursor te houden in de " titel " tekstvak of " Yes " om naar het veld " directeur " .
Experiment

Dit voorbeeld toonde hoe je een reactie voor een type gebeurtenis te maken . Maar je kunt duidelijk zien in de ontwerpweergave vele andere soorten gebeurtenis van het formulier . Experimenteer met verschillende reacties op die gebeurtenissen door het weergeven van aanwijzingen of het wijzigen van de tekst van andere gebieden met uitspraken als de volgende :

directeur
= " "
< br >