Uporaba kontrole Calendar

[Matija]

Pozdravljeni!

Pri uporabi kontrole Calendar imam majne težave. Ko zamenjam mesec ali leto na kontroli, bi rad, da se mi po spremembi meseca ali leta ta sprememba odrazi tudi na Calendar1.Value, ki jo uporabljam v kodi. Sedaj moram po zamenjavi (meseca ali leta) še enkrat klikniti na kontlo z miško.

Hvala in lep pozdrav
Matija

[admin]

Pozdravljeni,

povedati boste morali o kateri 'calendar' kontroli je govora, saj slednja ni med klasičnimi VBA kontrolami.

[Matija]

To je kontrola Calendar Control 8.0
Našel sem jo v VBA urejevalniku. Z desnim gumbom kliknem na Toolbox in v oknu, ki se odpre po kliku na "Adittional controls ..." odkljukam omenjeno kontrolo. Če lahko na kakšen način pošljem sliko kontrole bo mogoče bolj jasno.

Lep pozdrav
Matija

[admin]

Mi boste morali o kontroli povedati malce več (vsaj njeno popolno ime). Jaz namreč na mojih računalnikih ne najdem kontrole z imenom 'Calendar Control 8.0'.

Je pa tudi povsem možno, da te kontrole nimam, saj so ti elementi odvisni od instaliranih programov na vašem računalniku.

[Matija]

Na vizitki kontrole piše:
Microsoft Accessov kontrolnik za koledar, različica 10.0
Copyright 1995-1999 Microsoft Corporation
Razvito v družbi Kwery Corporation, Bellevue, WA
Razvijalci: Stan Leszynski, Dave Yarnall, Curt Miller

Upam, da bo to kaj pomagalo; različica je odvisna od različice MS Office.

Lep pozdrav
Matija

[admin]

OK, še vedno pa mi niste povedali, kaj piše na izboru v oknu 'Additional controls' Katero kontrolo ste izbrali? Microsoftovih je tam malo morje.

[Matija]

V "pisarni 2003" piše "Kontrolnik za koledar 11.0;
spodaj pa se po izbiri kontrolnika izpiše:
Location C:\Program Files\Microsoft Office\Office11\MSCAL.OCX

Najbrž so različice odvisne od izdaje MS Office.
Sam uporabljam to kontrolo na različnih računalnikih in kot ste že opazili je enkrat Calendar 8.0, drugič Kontrolnik za koledar 10.0, vendar gre za eno in isto kontrolo.

Upam, da nama bo uspelo "priti skupaj" .

Hvala za trud in lep pozdrav
Matija

[admin]

Super,

zdaj sva pa skupaj. Sem izbral omenjeno kontrolo in jo preizkusil, sedaj pa ne vem kje je vaš problem. Meni deluje vse OK. Če z miško izbiram datume, se mi lastnost Value ustrezno popravlja enako velja za tipkovnico in tudi za kodo; npr:

Koda: Izberi vse

  
  Calendar1.Day = 13

  MsgBox Calendar1.Value

Kaj točno vas torej muči?

[Matija]

Pri zamenjavi meseca ali leta bi rad, da se na koledarju avtomatsko izbere dan, ki je bil zadnji izbran in sevada nov mesec (leto). Sedaj se po zamenjavi meseca (leta) ne zgodi nič, no zamenjajo se dnevi na koledarju (spodaj) vrednost - Calendar1.Value - pa ostane nespremnjena.
Na primer: trenutni datum je 5. 2. 2007 - zamenajm mesec v april in nova izbira bi morala biti 5. 4. 2007.
Upam, da sem bil razumljiv, kaj hočem.

Hvala in lep pozdrav
Matija

[cedra]

Zdravo

Poizkusite to:

Koda: Izberi vse

Private Sub Calendar1_Click()

'Tu vpišite ime makra v  katerem imate v kodi omenjen "Calendar1.Value"
'Če je makro vezan na kak gumb, recimo takole:
CommandButton1_Click
End Sub


'npr:

Private Sub CommandButton1_Click()
'Pod ukazom za CommandButton1 je nekje v kodi ukaz "Calendar1.Value
End Sub

In to bi moralo delovati tako kot želite

Upam,da sem bil razumljiv

lp,

cedra

[Matija]

To ni tisto kar želim, jaz bi se rad odzval na dogodek "NewMonth" in "NewYear" v koledarju ampak mi ne uspe.

Hvala in lep pozdrav
Matija

[cedra]

Zdravo,

Malo sem še pogledal po gradnikih in našel "Microsoft Date and Time Picker control 6.0" in ta dela tako kot vi želite; dan pri spremembi meseca in leta ostane označen, kar pri Koledarju temu ni tako!
Pa še prostora ne zaseže veliko!

Primer:

Koda: Izberi vse

Private Sub DTPicker1_Change()

Cells(3, 1) = DTPicker1.Value

End Sub

Mislim, da bo to tisto kar iščete

lp,

cedra

[Matija]

Hvala za pomoč!
Se bom še malo "poigral" s to kontrolo. Upam, da mi ne bo potrebno preveč popravljati kode.

Lep pozdrav
Matija

[admin]

Hm, Matija, kontrola, ki ste si jo izbrali vam očitno zares ne more nuditi funkcionalnosti, ki jo iščete, saj je njen namen drugačen. Res je najbolje, da si izberete kakšno drugo .