• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kalender in userform

Status
Niet open voor verdere reacties.
Sytse1

Sytse1

Gebruiker
Lid geworden
9 aug 2007
Berichten
584
Office versie
miDer
Beste SNB,
Ik heb je kalender in een userform gezet en natuurlijk werkt het uitstekend.
De kalender heb ik gedupliceerd om er een - vanaf datum tot een - tot datum van de maken.
Waar ik jammer genoeg niet uitkomt is het volgende:
De gekozen datum wordt in Userform T_01 Textbox gezet.
De door mij gekopieerde kalender zou de gekozen datum in T_02 Textbox moeten zetten.
Ik heb getracht dit in de vba code te achterhalen echter zonder succes.
De tweede kalender wordt keurig opgeroepen middels de T_02 Textbox, alleen de gekozen datum wordt in T_01 gezet.

Het lijkt mij dat na een keuze in de kalender deze na het plaatsen van de datum in de textbox de kalender afgesloten wordt.
Jouw klasse module CL_00 het ik gedupliceerd en CL_01 genoemd. De gekopieerde kalender Kalender2
De VBA code van beide kalenders is hetzelfde.

Wellicht kan je mij op weg helpen.
Bij voorbaat dank,
Sytse
 
Mag alleen snb reageren? Waarom stel je de vraag dan hier en niet op zijn site? Plaats het document dan kunnen andere helpers er mogelijk een reactie op geven.
 
VenA, ik heb het kalenderbestand van SNB bijgesloten.
Mijn vraag aan SNB is omdat ik dit bestand van SNB op deze site heb gedownload.
 

Bijlagen

  • Userform kalender_snb.xlsb
    34,8 KB · Weergaven: 55
Ik zie weinig van de beschreven aanpassingen in het het bestand.

Dit is in iedergeval fout.
Code: 
UserForm[COLOR="#FF0000"]4[/COLOR].T_01
de 4 moet een 1 zijn.
 
Nu wel de goede bijlage
 

Bijlagen

  • Userform kalender_snb.xlsb
    30,7 KB · Weergaven: 45
Het gaat om deze regel in de klassemodule:

Code: 
       UserForm1.ActiveControl = Format(v_label.Tag, "dd-mm-yyyy")
 

Bijlagen

  • __Userform kalender_snb_vantot.xlsb
    29,6 KB · Weergaven: 73
Laatst bewerkt:
Snb, bedankt voor je reactie.
Ik ga je bijgesloten kalender bekijken.
 
Laatst bewerkt:
SNB, bedankt het werkt uitstekend.
Ik snap echter nog steeds niet waarom bij mij de kalender aanroep van uit T_02 de datum toch in T_01 werd gezet.
 
Als je alles maar half of niet aanpast dan werkt het niet.

In Kalender2
Code: 
Dim sn(41) As New CL_[COLOR="#FF0000"]01[/COLOR]
Code: 
Top = UserForm[COLOR="#FF0000"]1[/COLOR].Top
       Left = UserForm[COLOR="#FF0000"]1[/COLOR].Left + UserForm[COLOR="#FF0000"]1[/COLOR].Width + 12
In Userform1
Code: 
Private Sub T_02_Enter()
kalender[COLOR="#FF0000"]2[/COLOR].Show
End Sub
 
Je hebt gelijk. Ik had T_01 moeten aanpassen aan ActiveControl.
 
Het bestand illustreert tegelijkertijd dat het kalenderuserform is een onbeperkt aantal situaities te gebuiken is (net zoals de klassemoduele overigens).
Een tweede userform en/of een tweede klassemodule zijn overbodig.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan