ACC2000: Hoe gebruiker gevraagd om de wijzigingen in de Record in een formulier opslaan

Artikel ID: 197103 - Bekijk de producten waarop dit artikel van toepassing is.
Matig: Basic macro, codering en interoperabiliteit vaardigheden vereist.

Alles uitklappen | Alles samenvouwen

Samenvatting

Wanneer u verplaatsen naar de volgende record op een formulier of een formulier Microsoft sluit Access slaat alle wijzigingen die u hebt aangebracht in de huidige record. In dit artikel ziet u hoe een gebeurtenisprocedure voor VoorBijwerken (BeforeUpdate) te gebruiken vraagt u om te controleren of de opslag bewerking voordat Microsoft Access blijven.

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Meer informatie

WAARSCHUWING: Als u de stappen in dit voorbeeld wijzigt u de voorbeeld data base Noordenwind. mdb. Mogelijk wilt u back-up van het bestand Noordenwind. mdb en volgt een kopie van de data base.

In dit voorbeeld wordt de gebeurtenisprocedure voor VoorBijwerken (BeforeUpdate) in het formulier Klanten de gebruiker gevraagd om de wijzigingen te bevestigen voordat Microsoft Access slaat de record:
  1. Open de voorbeeld data base Noordenwind. mdb en open het formulier in de ontwerpweergave.
  2. Van het formulier instellenVoorBijwerken (BeforeUpdate)eigenschap op de volgende gebeurtenisprocedure:
    Private Sub Form_BeforeUpdate(Cancel As Integer)
    
       ' This procedure checks to see if the data on the form has
       ' changed. If the data has changed, the procedure prompts the
       ' user to continue with the save operation or to cancel it. Then
       ' the action that triggered the BeforeUpdate event is completed.
    
       Dim ctl As Control
    
       On Error GoTo Err_BeforeUpdate
    
       ' The Dirty property is True if the record has been changed.
       If Me.Dirty Then
          ' Prompt to confirm the save operation.
          If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
                  "Save Record") = vbNo Then
             Me.Undo
          End If
       End If
    
    Exit_BeforeUpdate:
       Exit Sub
    
    Err_BeforeUpdate:
       MsgBox Err.Number & " " & Err.Description
       Resume Exit_BeforeUpdate
    End Sub
    					
  3. Op deFout opsporingmenu, klikt u opNoorden wind compileren.
  4. Op deBestandmenu, klikt u opNoorden wind opslaan.
  5. Op deBestandmenu, klikt u opSluiten en terugkeren naar Microsoft Access.
Nu wanneer u een wijziging aanbrengt in een record en klikt u op verplaatsen naar een andere record of het formulier sluit, wordt u gevraagd te bevestigen dat u wilt u de huidige record op te slaan. Als u klikt opNee, wordt de record opnieuw ingesteld en de bewerking wordt voortgezet als normaal.

Eigenschappen

Artikel ID: 197103 - Laatste beoordeling: zaterdag 26 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2000 Standard Edition
Trefwoorden: 
kbdtacode kbhowto kbmt KB197103 KbMtnl
Automatische vertaling
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:197103

Geef ons feedback