A když na tom řádku stisknete F8 stane se co?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA - automatické přidání položky do formuláře
Nevim, zda to ma vyznam, ale ten Frame je pridany dynamically (kodem). To co pisete dava smysl a jiste jsem to zkousel, ale kupodivu to neslo a hodilo chybu.
Jedine timto zpusobem activecontrol.activecontrol se to podarilo obejit.
Tohle me napadlo taky, nez jsem se probadal k tomu active.active...
Jak rikam, nemam zkusenosti, jen jsem si zkousel a uzivatel mel dalsi pozadavky... nechtel jsem se tim moc zabyvat... A nekde jsem cetl ze se Frame pokud mozno z daleka vyhybat.
sydcitovat
frNeco jsem tam zkoušel dát a nezprovoznil jsem to - bohužel jsem lama a zdvojení ActiveControl mě nenapadlo, ani nevím jak bych se k tomu dostal.
ScrollBar jsem zkoušel přímo do formuláře taktéž - bez výsledku.
Ještě jednou děkuji za pomoccitovat
Spise to bylo mysleno ohledne dynamickeho pridani, a ze pak je problem s nekterymi Eventy pro controls, kt. jsou soucasti Frame... Jinak je to asi uzitecny, o tom zadna.
Ja kdyz jsem o tom premyslel, tak v tomto pripade se tedy posouva cely form a tudiz i CommandButtons. A ja chtel, aby byly na pevno, na ocich (jako uzivateli by mi vadilo posouvat pak nekam pro potvrzovaci tlacitko) - proto jsem pouzil Frame.. Ale i to by se taky asi dalo nejak vyresit..
Jinak diky za feedback...
sydcitovat
MS Excel
Téma: VBA - automatické přidání položky do formuláře 
Zaslal/a xawerius 13.10.2016 10:56
Zdravím, vytvořil jsem si jednoduchou evidenci skladových zásob. Tlačítko "Zapsat změnu" vše funkční bez problémů. Ale následně vznikl požadavek na přidávání položek což jsem udělal tak, že se přidá sloupec a zapíše se počáteční hodnota.
Ale nevím jak novou položku přidat do formuláře pro změnu stavu (naskladnění, použití). Jde nějak kódem jednoho formuláře změnit kód toho druhého?
Mohl by někdo poradit?
Označí se mi Sub OnlyNumbers()
V případě, že tam zapíšu chybu - např. frmEvidence namísto frmEvidence1 (používám na rozdíl od příkladu 2) vyhodí mi to chybu, že není definovaná proměnnácitovat
V případě, že tam zapíšu chybu - např. frmEvidence namísto frmEvidence1 (používám na rozdíl od příkladu 2) vyhodí mi to chybu, že není definovaná proměnnácitovat
Jinak to po najetí na "TextBox" ukazuje v bublině "frmEvidence1.ActiveControl = nothing"citovat
Protoze jsme presunuli TextBoxes do Frame, tak je treba pozmenit (trochu krkolomne) proc OnlyNumbers:
Sub OnlyNumbers()
If TypeName(frmEvidence.ActiveControl.ActiveControl) = "TextBox" Then
With frmEvidence.ActiveControl.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Pouze cisla...", , "Pozor"
.Value = vbNullString
End If
End With
End If
End Sub
Vyzkousejte a dejte vedet.
Dik
sydcitovat
Sub OnlyNumbers()
If TypeName(frmEvidence.ActiveControl.ActiveControl) = "TextBox" Then
With frmEvidence.ActiveControl.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Pouze cisla...", , "Pozor"
.Value = vbNullString
End If
End With
End If
End Sub
Vyzkousejte a dejte vedet.
Dik
sydcitovat
Zkoušel jsem tam nějak dostat ten frame, ale zdvojit ActiveControl mě nenapadlo. Děkuju
Ještě jeden poznatek - když nebyly textboxy ve framu, měl jsem v OnlyNumbers frmEvidence1 a frmEvidence2 a šlapalo to jak mělo.
Po zdvojení ActiveControl to vyhazovalo neznámou toho druhého formuláře. Takže jsem vytvořil ještě jeden eventHandler a onlynumbers jsem vytvořil také dvě - z každého formuláře vyvolávám jiný eventHandler a tím i onlyNumbers - asi by to šlo elegantněji, ale funguje to jak má a já jsem spokojen.
Ještě jednou díky.citovat
Ještě jeden poznatek - když nebyly textboxy ve framu, měl jsem v OnlyNumbers frmEvidence1 a frmEvidence2 a šlapalo to jak mělo.
Po zdvojení ActiveControl to vyhazovalo neznámou toho druhého formuláře. Takže jsem vytvořil ještě jeden eventHandler a onlynumbers jsem vytvořil také dvě - z každého formuláře vyvolávám jiný eventHandler a tím i onlyNumbers - asi by to šlo elegantněji, ale funguje to jak má a já jsem spokojen.
Ještě jednou díky.citovat
Já do těch příloh nekoukal - ale z toho co vidím jen poznámka
místofrmEvidence.ActiveControl.ActiveControlkde frm předpokládám je formulář je lépe použítfrNeco.ActiveControlpřípadně z externího modulufrmEvidence.frNeco.ActiveControlkde frNeco je název toho vašeho frame.
Je to detail, ale pokud víte přesně co chcete, je vždy lépe to definovat, než potom hledat výjimky - vždy musíte myslet na to, že časem kód můžete měnit a něco doplnit a potom ty automatické záležitosti (zde ActiveControl) mohou dělat neplechu.
A ještě jedna poznámka - frame asi vůbec nebylo potřeba - i formulář má ScrollBars ;)
Ale pokud to funguje...citovat
místofrmEvidence.ActiveControl.ActiveControlkde frm předpokládám je formulář je lépe použítfrNeco.ActiveControlpřípadně z externího modulufrmEvidence.frNeco.ActiveControlkde frNeco je název toho vašeho frame.
Je to detail, ale pokud víte přesně co chcete, je vždy lépe to definovat, než potom hledat výjimky - vždy musíte myslet na to, že časem kód můžete měnit a něco doplnit a potom ty automatické záležitosti (zde ActiveControl) mohou dělat neplechu.
A ještě jedna poznámka - frame asi vůbec nebylo potřeba - i formulář má ScrollBars ;)
Ale pokud to funguje...citovat
eLCHa napsal/a:
frmEvidence.frNeco.ActiveControlkde frNeco
Nevim, zda to ma vyznam, ale ten Frame je pridany dynamically (kodem). To co pisete dava smysl a jiste jsem to zkousel, ale kupodivu to neslo a hodilo chybu.
Jedine timto zpusobem activecontrol.activecontrol se to podarilo obejit.
eLCHa napsal/a:
A ještě jedna poznámka - frame asi vůbec nebylo potřeba - i formulář má ScrollBars ;)
Tohle me napadlo taky, nez jsem se probadal k tomu active.active...
Jak rikam, nemam zkusenosti, jen jsem si zkousel a uzivatel mel dalsi pozadavky... nechtel jsem se tim moc zabyvat... A nekde jsem cetl ze se Frame pokud mozno z daleka vyhybat.
sydcitovat
já frame používám roky a nikdy žádný problém.ořezávám podle něj formulář a má to pak hezčí okraje ;))
pravda je, že ho nikdy nepřidávám dynamicky - pouze jeho děti. je to takový prvek, který vím, že tam bude a tak nemá cenu ho dávat kódem...citovat
pravda je, že ho nikdy nepřidávám dynamicky - pouze jeho děti. je to takový prvek, který vím, že tam bude a tak nemá cenu ho dávat kódem...citovat
syd napsal/a:
eLCHa napsal/a:frmEvidence.frNeco.ActiveControlkde frNeco
Nevim, zda to ma vyznam, ale ten Frame je pridany dynamically (kodem). To co pisete dava smysl a jiste jsem to zkousel, ale kupodivu to neslo a hodilo chybu.
Jedine timto zpusobem activecontrol.activecontrol se to podarilo obejit.
syd
frNeco jsem tam zkoušel dát a nezprovoznil jsem to - bohužel jsem lama a zdvojení ActiveControl mě nenapadlo, ani nevím jak bych se k tomu dostal.
ScrollBar jsem zkoušel přímo do formuláře taktéž - bez výsledku.
Ještě jednou děkuji za pomoccitovat
eLCHa napsal/a:
já frame používám roky a nikdy žádný problém.ořezávám podle něj formulář a má to pak hezčí okraje ;))
Spise to bylo mysleno ohledne dynamickeho pridani, a ze pak je problem s nekterymi Eventy pro controls, kt. jsou soucasti Frame... Jinak je to asi uzitecny, o tom zadna.
xawerius napsal/a:
...ScrollBar jsem zkoušel přímo do formuláře taktéž - bez výsledku.
Ještě jednou děkuji za pomoc
Ja kdyz jsem o tom premyslel, tak v tomto pripade se tedy posouva cely form a tudiz i CommandButtons. A ja chtel, aby byly na pevno, na ocich (jako uzivateli by mi vadilo posouvat pak nekam pro potvrzovaci tlacitko) - proto jsem pouzil Frame.. Ale i to by se taky asi dalo nejak vyresit..
Jinak diky za feedback...
sydcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články