Foutmelding bij kiezen van datumveld/kalender "Compileerfout"

[Friend]

Beste forummers, laat ik deze dan ook maar gelijk plaatsen, misschien dat het allemaal met elkaar te maken heeft. Ben dus vandaag overgegaan ivm nw computer naar Access 2010 (was Access 2003). Heb nu accute hoofdpijn. Alles werkte naar tevredenheid ....
Als ik nu mijn datum veld kies/aanklik kregen we altijd zo mooi het kalendertje om de datum te kiezen alleen nu krijg ik het volgende :

Private Sub Form_Open(Cancel As Integer)
'On Error GoTo Form_Open_Err
    Dim bEnabled As Boolean
    
    'Initialize to the existing date, or today if null.
    If IsDate(gtxtCalTarget) Then
        Me.txtDate = gtxtCalTarget.Value
    Else
        Me.txtDate = Date
    End If
    
    'Lock the Ok button if the text box is locked or disabled.
    bEnabled = (gtxtCalTarget.Enabled) And (Not gtxtCalTarget.Locked)
    With Me.cmdOk
        If .Enabled <> bEnabled Then
            .Enabled = bEnabled
        End If
    End With
   
    'Set the title
    If Len(Me.OpenArgs) > 0& Then
        Me.Caption = Me.OpenArgs
    End If
    
    'Set up the calendar for this month.
    Call ShowCal

Form_Open_Exit:
    Exit Sub

Form_Open_Err:
    MsgBox Err.Description, vbCritical, "frmKalender.Form_Open"
    Resume Form_Open_Exit
End Sub

De foutmelding zit dan hier :

 Me.txtDate = [COLOR="darkorange"]Date[/COLOR]    End If

Melding is : Compileerfout kan het project of de bibliotheek niet vinden

Wie geeft mij het tweede hoofdpijnpilletje voor dit drama?

Alvast heel hartelijk bedankt.

Friend

 

[dnties]

Lijkt mij dat er een syntax fout staat:
If Len(Me.OpenArgs) > 0& Then
Me.Caption = Me.OpenArgs
End If

Misschien vergis ik me, maar had je niet zoiets willen maken als:
If Len(Me.OpenArgs) > 0 AND <een andere voorwaarde> THEN
Me.Caption = Me.OpenArgs
End If

Hopelijk heb ik het goed, en heb je er (dus) wat aan.

Succes,

Tijs.

 

[Friend]

Beste dnties, excuus voor mijn late reactie op jouw inzet om het probleem op te lossen. Zoals de code geplaatst is lijkt het misschien of de fout zit bij :

If Len(Me.OpenArgs) > 0& Then
Me.Caption = Me.OpenArgs
End If
[HTML]
Het probleem zit echter in het vba script onder de verwijzingen naar een kalenderobject. Zoals ik het begrepen heb wordt dit niet meer ondersteund in Acces 2010. Ik heb dit dan ook uitgevinkt. Inmiddels heb ik de datapicker functie ontdekt en die gebruik ik nu. Krijg nu ook de foutmelding niet meer.:) Hartelijk dank voor je reactie. :thumb: Friend