Muokattu-ominaisuus

Koskee seuraavia

Lomakeobjekti

Raporttiobjekti

Voit Muokattu-ominaisuuden avulla määrittää, onko nykyistä tietuetta muokattu sen viimeisen tallennuksen jälkeen. Voit esimerkiksi halutessasi tiedustella käyttäjältä, olivatko tietueen muutokset tarkoituksellisia, ja jos näin ei ole, sallia käyttäjän siirtyä seuraavaan tietueeseen muutoksia tallentamatta. Totuusarvo, jolla on luku- ja kirjoitusoikeudet.

lauseke.Muokattu

lauseke Pakollinen. Lauseke, joka palauttaa jonkin Koskee seuraavia -luettelon objekteista.

Huomautuksia

Muokattu-ominaisuus käyttää seuraavia asetuksia.

Asetus

Visual Basic

Kuvaus

Tosi

Tosi

Nykyistä tietuetta on muutettu.

Epätosi

Epätosi

Nykyistä tietuetta ei ole muutettu.

Tämä ominaisuus on käytettävissä Lomakenäkymässa ja tietotaulukkonäkymässa.

Tämä ominaisuus voidaan määrittää tai lukea käyttämällä makroia tai Visual Basic for Applications (VBA) -koodia.

Kun tietue on tallennettu, Microsoft Office Access 2007 määrittää Muokattu-ominaisuuden asetukseksi Epätosi. Kun käyttäjä tekee muutoksia tietueeseen, ominaisuuden asetuksena Tosi.

Esimerkki

Seuraavassa esimerkissä on otettu käyttöön btnUndo-painike, kun tietoja on muutettu. Tekstiruudun ohjausobjektien AfterUpdate -tapahtumasta kutsutaan UndoEdits ()-alirutiini. Kun käyttöön otettua btnUndo-painiketta napsautetaan, ohjausobjektin alkuperäinen arvo palautetaan käyttämällä OldValue-ominaisuutta.

Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub
Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×