kalender weg

Status
Niet open voor verdere reacties.
J

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.682
ik heb op een formulier een datumveld aangemaakt.
Als ik er in ga staan en ik klik krijg ik een kalendertje... perfect dus
nu schrijf ik in "eigenschappen" bij het klikken:

Code: 
Private Sub payday_Click()
    Dim strSQL As String
    Dim iDatum As Long
    Dim tmp
    iDatum = CLng(CDate(Me.payday.Value))
    strSQL = "SELECT TOP 1 [Datum],[OFFEUSTHER] FROM [DATA] "
    strSQL = strSQL & "WHERE [Datum] = CDate(" & iDatum & ") "
    strSQL = strSQL & "ORDER BY [Datum] DESC"
    With CurrentDb.OpenRecordset(strSQL)
        If .RecordCount > 0 Then
            Me.payday.Value = .Fields(0).Value
            If IsNull(Me.Therapeuten) = True Then
                Me.Filter = "[Datum] = CDate(" & CLng(.Fields(0)) & ") AND [OPMERKING]='Behandeling'"
            Else
                Me.Filter = "[Datum] = CDate(" & CLng(.Fields(0)) & ") AND [OFFEUSTHER] = '" & Me.Therapeuten & "' AND [OPMERKING]='Behandeling'"
            End If
            Me.FilterOn = True
            Me.Detail.Visible = True
            Me.InsideHeight = 10000
            Me.Requery
        Else
            Me.payday.Value = Date
            Me.Filter = ""
            Me.FilterOn = False
            Me.Detail.Visible = False
        End If
        .Close
    End With
    Form.Refresh
        If IsNull(Me.Therapeuten) = True Then
            Me.DATUM_betalingen.Value = " Prestaties op " & Me.payday.Value
        Else
            Me.DATUM_betalingen.Value = " Betalingen op " & Me.payday.Value & " aan " & Me.Therapeuten.Column(1)
        End If
    Me.Knop33.SetFocus
End Sub

eens ik deze eigenschap toewijs, ben ik het kalendertje kwijt
Schrap ik de eigenschap, dan krijg ik de kalender terug

Wat doe ik hier mee?

Met dank
 
Ik kan het (met gestripte code) niet reproduceren. Komt wellicht omdat ik een databaseveld gebruik. Ik zal nog eens met een niet-gebonden veld kijken wat er gebeurt.
 
Ook bij een niet-gebonden veld gaat het goed. Al gebruik ik maar een deel van de code; het filter maak ik niet. Maar dat zou niet zoveel uit mogen maken.
 
JEPEDEWE,

Probeer de code eens bij nabijwerken van het datum veld.

Het datum veld wordt nu gelijk gevuld en door verplaatsen van de focus gaat zo snel dat je de kalender niet ziet.

Gr. Cor
 
Laatst bewerkt:
Haal in ieder geval deze regel weg:
Code: 
Me.Knop33.SetFocus
Want die zorgt ervoor dat de focus niet meer op je datumveld ligt, en derhalve is sowieso de kalenderknop weg. Die is er namelijk alleen als het datumveld actief is. En dat is in jouw code dus niet meer het geval. Dan kun je volgens mij wel degelijk de Click event gebruiken. Dat doe ik namelijk ook.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan