Welkom op het forum van startpagina!

Dit forum staat op alleen-lezen. Je kan hier informatie zoeken en oude berichten terugvinden, maar geen nieuwe berichten plaatsen.

Naar overzicht van alle forums

macro

  • Henk van schie

    In adresdatabase heb ik een formulier gemaakt met de invulvelden voor NAW gegevens er is een datumveld voor startdatum, en een datumveld voor als er een wijziging plaats vind. De laatste datum wil ik automatisch gevuld hebben als er iets in de database iets word veranderd.

    Hoe kan ik dat bewerkstelligen?

  • ERic B

    Open je formulier in ontwerpmodus

    klik op het donkergrijze gedeelte onder in het formulier met de rechtermuistoets

    Kies eigenschappen

    Kies tabblad Gebeurtenis

    Zet de cursor in het veld voor bijwerken

    Klik op het pijltje rechts

    Kies

    Klik op de puntjes

    Type in : Me.Gewijzigd_op = Date (vervang Me.Gewijzigd_op in de naam van jouw veld)

    Private Sub Form_BeforeUpdate(Cancel As Integer)

    Me.Gewijzigd_op = Date

    End Sub

    Als je niet wilt dat gebruikers het veld kunnen aanpassen :

    Klik in het datumveld

    Klik op je rechtermuistoets

    Kies eigenschappen

    Kies Tabblad Gegevens

    Pas Vergrendeld aan in Ja

    Kies tabblad Overige

    Pas Tabstop aan in Nee

    Klik op tabblad Opmaak en vul achter Notitie in dd-mm-yyyy of een ander formaat wat je wilt

  • RV2

    Even een kleine aanvulling op Eric's input.

    Wat je wilt doen is checken of een rij gewijzigd is.

    Zo ja, wijzigingsdatum invullen.

    Zo nee, niet.

    Of een rij gewijzigd is kun je afvangen met de eigenschap Dirty.

    Daarnaast moet eea alleen weken voor bestaande rijen.

    Dat kun je weer afvangen met de eigenschap NewRecord.

    Qua code wordt dan dan zoiets als:

    If Me.NewRecord = False Then

    If Me.Dirty = True Then

    Me.Wijzigingsdatum = Date

    Else

    End If

    Else

    End If

    RV2

  • Henk van Schie

    Eric B en RV2 Bedankt voor jullie oplossing

    Henk van schie schreef:

    >

    > In adresdatabase heb ik een formulier gemaakt met de

    > invulvelden voor NAW gegevens er is een datumveld voor

    > startdatum, en een datumveld voor als er een wijziging plaats

    > vind. De laatste datum wil ik automatisch gevuld hebben als

    > er iets in de database iets word veranderd.

    > Hoe kan ik dat bewerkstelligen?