Object of klasse ondersteunt gebeurtenis niet

[Nierdonor]

Hallo,
ik krijg plotseling bij het openen van een database de volgende melding:
"De expressie Bij openen die u hebt opgegeven als instelling voor de gebeurteniseigenschap, heeft de volgende fout veroorzaakt: Object of klasse ondersteunt gebeurtenissenreeks niet" (zie eventueel bijlage van de volledige foutboodschap).
Ik heb dit nog nooit eerder gehad, en ben de enige die met dit programma en die databsae werkt.
Wat is er aan de hand, en hoe kan ik dit verhelpen?
Ik heb het vermoeden dat het wordt veroorzaakt door de laatste Office-update.

Graag hulp!

Rudi.

 

[OctaFish]

Als je dit soort meldingen krijgt, is het altijd lastig daar direct een vinger op te leggen. Vaak heb je dan net een functie toegevoegd die een bibliotheek niet kan vinden, of, zoals blijkbaar bij jou, een update gedraaid.
Je kunt drie dingen proberen:
1. <Extra>, >Database hulpprogramma's>, <Comprimeren en herstellen>
2. Met <Alt>+<F11> naar het VBA scherm, <Foutopsporing>, <db Compileren>
3. In het VBA scherm: <Extra>, <Verwijzingen> controleren of de juiste bibliotheken zijn geladen. Zie bijgaande afbeelding om te zien welke je ongeveer nodig hebt bij normaal gebruik.

Met de laatste optie checkt Access of er fouten in de VBA van je db zitten, en zal daar stoppen, zodat je de fout eventueel kunt herstellen.
Verwijder eventueel de bibliotheken die niet in de afbeelding staan, als je tenminste zeker weet dat ze niet gebruikt zijn. Als je bijvoorbeeld via Outlook mailtjes stuurt, heb je de Outlook library wel nodig... Controleer vooral ook de plek van de ADO en DAO bibliotheken, want dat luistert nogal kritisch.

Als niks werkt, probeer dan de db te posten, zodat we zelf kunnen kijken.

 

[Nierdonor]

Hallo OctaFish,
ik krijg steeds deze foutmelding: Compileerfout. Er wordt End Sub verwacht.
Het betreft deze module:
Option Compare Database
Option Explicit

Private Sub Postadres_Change()
Function Beginhoofdletter(Str)

' De beginletter van het veld omzetten in een hoofdletter.
' Laat de andere letters onveranderd.
Dim strTemp As String
strTemp = Trim(Str)
Beginhoofdletter = UCase(Left(strTemp, 1)) & Mid(strTemp, 2)

End Function

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

Wat gaat hier fout, wat in het verleden nooit een probleem is geweest?

Rudi.

 

[OctaFish]

In de code die je aanlevert zit inderdaad een fout met een ontbrekende End sub:

Private Sub Postadres_Change()
End Sub

Function Beginhoofdletter(Str)

' De beginletter van het veld omzetten in een hoofdletter.
' Laat de andere letters onveranderd.
Dim strTemp As String
strTemp = Trim(Str)
Beginhoofdletter = UCase(Left(strTemp, 1)) & Mid(strTemp, 2)

End Function

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub