Veld | .... wat is DAT???

[JEPEDEWE]

Voor het openen van een formulier schreef ik volgende code:

Private Sub Form_Open(Cancel As Integer)
    Me.weeknummer = Format([Forms!loonberekening!ActiveXBestEl21], "ww")
    Me!Knop8.SetFocus
End Sub

weeknummer is een tekstvak in de formuliervoet....

ik krijg een erg rare foutmelidng waar ik niets kan bij bedenken... ik voeg er een jpg bestandje bij
Bedankt voor de hulp
JP

 

[OctaFish]

Dit (ActiveXBestEl21) is neem ik aan een calendar control?

 

[JEPEDEWE]

WASZ een calendar control...
onder 2010 werkt die handel niet meer dus heb ik de "calendar control" weggezwierd en vervangen door een datumveld op de form... (ik vond dat wel jammer maar kreeg het anders niet goed)
de naam heb ik behouden om niet teveel aan de code te moeten veranderen
Als ik een code-stop toevoeg kan ik perfect de waarde van het veld uitlezen en dat is blijkbaar ook correct.
CU

 

[OctaFish]

Ik zou overigens de hele weeknummering veranderen, want met deze code klopt hij niet... Althans: je krijgt een verkeerd nummer.

 

[JEPEDEWE]

Ok OK... maar welke code stel je dan voor en.... hoe los ik mijn probleem nu op?

 

[OctaFish]

Het weeknummer kun je met een simpele functie maken:

Function WeekNum(Datum As Date) As Integer
    WeekNum = Format$(Datum, "ww", vbMonday, vbFirstFourDays)
    'Functie gebruikt in een query:
    'WeekNummer:WeekNum([Datumveld])
    'Functie gebruikt op een formulier:
    'Besturingselement: =WeekNum([Datumveld])
End Function

Om te bepalen wat er precies fout gaat, moet je met Foutopsporing eerst aangeven waar er een fout wordt gevonden. Goede kans dat de gevonden fout niks te maken heeft met je datum, maar met iets heel anders. In dat geval moet je eerst je db compileren, om de fouten op te sporen en te verhelpen. Het zou bijvoorbeeld aan een ontbrekende bibliotheek kunnen liggen. Op basis van de foutmelding is er eigenlijk niks te zeggen...

 

[Tardis]

Niet zo moeilijk om te zien waar het misgaat.
Foutmelding wordt veroorzaakt door de gebroken haakjes in je code.
Laat deze weg.
Je code wordt dan

Private Sub Form_Open(Cancel As Integer)
    Me.weeknummer = Format(Forms!loonberekening!ActiveXBestEl21, "ww")
    Me!Knop8.SetFocus
End Sub

Tardis