Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Datum uit calender aan textbox koppellen

  1. #1
    Senior Member Atwist's avatar
    Geregistreerd
    24 januari 2006
    Locatie
    Duitsland
    Vraag is opgelost

    Datum uit calender aan textbox koppellen

    Probeer een calender aan een textbox te koppellen.
    Dit probeer ik door op de textbox te klikken dan zou de calender moeten openen en kan ik een keuze maken van de datum zodat deze in de textbox verschijnt.

    De calender is van SNB dus daar kan het niet aanliggen, het loopt vast op
    Code:
    Dim sn(41) As New CL_00
    .
    Ben met Excel nog niet zo ver dat ik het probleem zelf kan oplossen.

    Hoe krijg ik dit werkend.

    Code:
    Private Sub TextBox20_Enter()
    Frmkalender.Show
    End Sub
    VBA van de "Frmkalender"

    Code:
    Dim sn(41) As New CL_00
    Private Sub UserForm_Initialize()
        For Each it In F_00.Controls
           Set sn(it.TabIndex).v_label = it
        Next
        
        SC_01 = 0
        
        Top = ActiveCell.Top + 32 + 3 * ActiveCell.EntireRow.RowHeight
        Left = (ActiveCell.Offset(, 1).Left + 12) * Zoom / 100
    End Sub
    
    Private Sub SC_01_Change()
        With SC_01
           .Tag = DateAdd("m", SC_01.Value, Date)
           M_00.Caption = Format(.Tag, "mmmm yyyy")
           .Tag = DateSerial(Year(.Tag), Month(.Tag), 1)
           .Tag = 1 + CDate(.Tag) - Weekday(.Tag, 2)
        End With
        
        For Each it In F_00.Controls
            it.Tag = CDbl(CDate(SC_01.Tag) + it.TabIndex)
            it.Caption = Format(it.Tag, "d")
            it.ForeColor = &HC0C0C0 + &H40C0C0 * (Month(it.Tag) = Month(M_00.Caption))
            it.BackStyle = Abs(it.Tag / 1 = Date)
        Next
    End Sub
    Met vriendelijke groet,

    Andreas

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Heb je de Klassemodule wel goed staan?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Senior Member Atwist's avatar
    Geregistreerd
    24 januari 2006
    Locatie
    Duitsland
    CHIPS dat was het probleem.

    Dank je wel OctaFisch voor de schop in de goede richting.
    Met vriendelijke groet,

    Andreas

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren