RE: excel_makro

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 04. 02. 2000, 13:10 CET


no odpoved je trosku tazsia
ad 1. rozbalovacie menu - ComboBox viacej najdes v helpe MS Forms(ide o data
source metody, vlastnosti)/celkom dobre priklady/
ad 2. na forme si vytvoris tlacitko napr. Aktualizuj kt. bude volat tvoje
makro
Private SubcmdAktualizuj_Click()
call macro pociatocnydatum, konecnydatum
end sub  
/pricom pociatocnydatum, konecnydatum su premenne ktore dostanes z toho
comboboxu
na nastartovanie by to malo pomoct

AleXXX
<klasik><"Lide jsou ruzni, povetsinou ...."></klasik> 


> -----Original Message-----
> From:	Ján Bystrianský [SMTP:JBystriansky@seznam.cz]
> Sent:	Friday, February 04, 2000 9:56 AM
> To:	servis-internet@nawebu.cz
> Subject:	excel_makro
> 
> Ahojte,
> 
> potreboval by som poradit s excel makrom. Toto makro aktualizuje query
> 
> tabulku, ale potrebujem kazdy mesiac zmenit hranice datumu
> 
>      od(2000-02-01) do(2000-02-29)
> 
> na od(2000-03-01) do (2000-03-31),
> 
> da sa to samozrejme spravit cez CRTL_H a vymenit tieto hranice pred
> samotným
> 
> behom makra, ale chcel by som to elegantnejsie cez rozbalovacie pole zo
> 
> zoznamom (aby si uzivatel len vybral (od-do) a spustil aktualizaciu
> tabulky.
> 
> Rozbalovaci zoznam by som aj vedel spravit cez /vlozit userForm, ale ako
> 
> potom dalej?,
> 
> ako udaje z robalovacieho formulara vlozit do tela kodu makra ?
> 
> 
> 
> 
> 
> toto je ciastkovy vypis kodu makra, kde sa ten datum nachadza:
> 
> 
> 
> With Selection.QueryTable
> 
>         .Connection = _"ODBC;DSN=MSS-Fourth
> 
> Shift;UID=***;PWD=****;DBQ=e:\moje dokumenty;CODEPAGE=1250;"
> 
>         .Sql = Array( _
> 
>         "SELECT ITEM_HISTORY.ITEM, ITEM_HISTORY.TRANS_ID,
> ITEM_HISTORY.DATE,
> 
> ITEM_HISTORY.BODY1" & Chr(13)         & "" & Chr(10) & "FROM ITEM_HISTORY
> 
> ITEM_HISTORY" & Chr(13) & "" & Chr(10) & "WHERE
> 
> (ITEM_HISTORY.TRANS_ID='IMTR') AND (ITEM_HISTORY.DATE>={d '2000-02-01'}
> An"
> 
> _
> 
>         , _"d ITEM_HISTORY.DATE<={d '2000-02-29'}) AND (ITEM_HISTORY.BODY1
> 
> Like '%~SC~0000%')" _ )
> 
>          .Refresh False
> 
> 
> 
> 
> 
> Jan Bystriansky
> 
> JBystriansky@seznam.cz
> 
> JBystriansky@post.sk
> 
> 
> 
> 
> 
> -- http://email.seznam.cz 
> -- email zdarma na cely zivot
> 
> 
> ------------------- konference casopisu Internet -----------------------
>     === Mazte, prosim, prebytecne citace z koncu vasich odpovedi ===
> Archiv a instrukce pro odhlaseni/prihlaseni na http://internet.nawebu.cz
> Caste dotazy a odpovedi z konferenci (FAQ) na http://www.kab.cz/faq/
> ------------------------------------------------------------------------



This archive was generated by hypermail 2.1.2 : 03. 09. 2001, 22:42 CEST