C.C.Roffelsen

Bedankt Stegisoft voor je reactie. Zoals jij zegt dat ik het makkelijker kan doen werkt het vlgs mij niet zoals ik het mutatieregister wil gebruiken. Ik wil dat veld gebruiken om alle mutaties die er in het record wordt gedaan te noteren. Zoals jij zegt, nl.: Me.MutRegister = Me.AchterNaam dan worden alle vorige mutaties overschreven met wat op dit moment de inhoud is van Achternaam. En dat is niet de bedoeling. Met: Private Sub AchterNaam_Dirty(Cancel As Integer) If IsNull(AchterNaam) Then Me.AchterNaam = "Leeg" End If Me.MutRegister = Me.MutRegister & Date & ": AchterNaam: '" & Me.AchterNaam & "'" 'Zet Datum, Veldnaam en inhoud van het veld in het Mutatieregister. Me.MutDatum = Date 'Zet de mutatiedatum in het veld: MutDatum. End Sub wordt in het eigenschapvenster; Bij gewijzigd: bovenstaande gebeurtenisprocedure uitgevoerd. En bij; Na bijwerken: Private Sub AchterNaam_AfterUpdate() 'Zet de eerste letter om in een Hoofdletter. Me.AchterNaam = Left(UCase(Me.AchterNaam), 1) & Right(Me.AchterNaam, Len(Me.AchterNaam) - 1) 'Zet de nieuwe waarde in het Mutatieregister. Me.MutRegister = Me.MutRegister & " gewijzigd in: '" & Me.AchterNaam & "'" & vbCrLf & "" End Sub Bijv.: Als ik de achternaam: Werkman wijzig in Werkmans komt er in het mutatieregister te staan: 8-2-2010: AchterNaam: 'Werkman' gewijzigd in: 'Werkmans' Maar als ik daarna van dezelfde record het adres wijzig dan moet ook dat in het mutatieregister worden opgenomen onder de mutatie van de AchterNaam. Nu is het probleem dat ik niet precies weet hoe ik dat in één functieprocedure of twee procedures moet neerzetten. Let wel: het veld waarop de mutatie plaats vindt als ook de oude inhoud daarvan met daarachter eventueel in een volgende procedure: gewijzigd in: met de nieuwe inhoud van dat veld. Het spijt me dat ik zo uitgebeid ben geweest maar ik hoop dat ik het probleem nu wel goed duidelijk heb gemaakt. Het kan zijn dat ik het eenvoudiger kan doen, want zo bedreven ben ik niet hierin. Maar zo eenvoudig als jij het voorstelt werkt het volgens mij niet. Ik wacht op je reactie?

Stegisoft, Kan je iets uitvoeriger zijn. Want ik weet ook wel dat je zoiets in een module moet neerzetten. Maar ik heb wat moeite met het maken van de functie-format.

Beste mensen, Ik heb het volgende probleem: Ik wil de wijzigingen die in een formulier worden gemaakt neerzetten in een mutatieregister. Ik doe dat voor elk veld nu zo: Private Sub AchterNaam_AfterUpdate() 'Zet de eerste letter om in een Hoofdletter. Me.AchterNaam = Left(UCase(Me.AchterNaam), 1) & Right(Me.AchterNaam, Len(Me.AchterNaam) - 1) 'Zet de nieuwe waarde in het Mutatieregister. Me.MutRegister = Me.MutRegister & " gewijzigd in: '" & Me.AchterNaam & "'" & vbCrLf & "" End Sub Private Sub AchterNaam_Dirty(Cancel As Integer) If IsNull(AchterNaam) Then Me.AchterNaam = "Leeg" End If Me.MutRegister = Me.MutRegister & Date & ": AchterNaam: '" & Me.AchterNaam & "'" 'Zet Datum, Veldnaam en inhoud van het veld in het Mutatieregister. Me.MutDatum = Date 'Zet de mutatiedatum in het veld: MutDatum. End Sub Nu wil ik daar een functie voor maken die ik in elk formulier kan gebruiken. Kan iemand me op weg helpen? Alvast bedankt! Kees Roffelsen:ciao:

Bedankt stegisoft! Groet Kees

Bedankt kweezie wabbit! Weet je ook de oplossing van mijn tweede probleem? Dat het veld "voorletters", automatisch wordt gevuld als ik het veld: "voornamen" vul. Bijv.: "voornamen": Cornelis Charles, "voorletters": C.C. Alvast bedankt!

Bedankt stegisoft! Ik heb de oplossing zelf al gevonden. Ik heb een funktie gemaakt voor het annuleren: DoCmd.RunCommand acCmdUndo en die in een knop op het formulier gezet Daarna in de velden op het formulier die gewijzigd kunnen worden in het eigenschappenvenster bij gebeurtenis, bij gewijzigd in VBA gezet: Me.MutDatum = Date Verder wordt de mutatie in een mutatieregister gezet met: Me.MutRegister = Me.MutRegister & Date & ": AchterNaam: '" & Me.AchterNaam & "'" Maar ik heb een nieuwe uitdaging: Ik wil als ik het veld: Achternaam bewerk en daar een achternam in wil zetten, dat gewoon in kleine letters doen en dat het systeem de eerste letter automatisch omzet in een hoofdletter. Wie weet de oplossing? Verder wil ik dat het veld: voorletters, automatisch wordt gevuld als ik het veld: voornamen vul. Bijv.: "voornamen": Cornelis Charles, "voorletters": C.C. Weet iemand hoe ik dat moet doen? Als ik zelf de oplossing vind dan zal ik natuurlijk dit hier meedelen. Groet: Kees

Ik ben bezig om in Access een database te ontwerpen. Nu wil ik als op een formulier een veld gewijzigd is dat in MutDatum de mutatiedatum wordt geplaatst. MutDatum is ook een veld op dat formulier. Maar ik wil pas een wijziging van de mutatiedatum als er ook werkelijk een wijziging heeft plaatsgevonden. Bovendien wil ik een mogelijkheid om de wijziging te kunnen resetten en dat dan ook de oude mutatiedatum weer in MutDatum wordt geplaatst. Ik hoop dat mijn vraag duidelijk is. Wie kan mij helpen:stupid: