< návrat zpět

MS Excel

Téma: Info systém rss

Zaslal/a priza 11.1.2013 14:47

Zdravím, před časem,jsem se ve škole nemohl dohodnout jestli půjde v excelu udělat kompletní informační systém v jednom souboru,nelenil jsem a přes svátky jsem to zkusil.Po pár dnech psaní kódů jsem přesvědčen že to půjde, bohužel nemám čas a tak to zkusím dát sem na posouzení, případně když mi někdo pomůže tak to určitě uvítám,tady je odkaz na stažení (1.43MB zip.) http://www.uloz.to/xp9s4Yw/pracovni-mylive-demo-key-zip
Heslo pro stažení je : priza
Když mi chtěl někdo pomoci tak mu to samozdřejmě odemknu :-) . 10

Zaslat odpověď >
Strana:  1 2   další »
lopi007(11.1.2013 19:29)#010969
avatar
dost dobrý, akorád bych to dělal v něčem co se dá ochránit. Jinak skvělá práce 9citovat
thums(12.1.2013 0:06)#010970
avatar
jj souhlas, dost dobrý, jinak přes Open...je po legraci...citovat
priza(12.1.2013 0:12)#010971
avatar
o.k. ale po legraci? 4citovat
thums(12.1.2013 7:10)#010972
avatar
To jsem nemyslel špatně, fakt je to to super práce, ale stačí jeden blb a dopadne to takto...viz soubor
Příloha: rar10972_pracovni-mylive-demo-key.rar (76kB, staženo 39x)
citovat
lopi007(12.1.2013 13:07)#010973
avatar
a hlavně se to nedá v tomto stavu bezpečně ochránkt dá se to otevřít 6 7citovat
Milan-D(12.1.2013 14:24)#010974
avatar
Jo, dost dobry a urcite i pracny. Jde se dostat i do kodu:
Private Sub CommandButton1_Click()
Dim Radek
Dim i

For i = 16 To Range("A5000").End(xlUp).Row + 1
Radek = Worksheets("nab").Range("A16:A5000").Find(what:=Worksheets("nab").Cells(i, 1), lookat:=xlWhole).Row
Next i

Worksheets("nab").Cells(Radek, 1) = TextBox1.Text
Worksheets("nab").Cells(Radek, 9) = TextBox2.Text
Worksheets("kryc").Cells(24, 3) = TextBox2.Text

With Worksheets("nab").Cells(Radek, 1)
.Font.Size = 12
.Interior.Color = RGB(204, 255, 255)
End With
With Worksheets("nab").Cells(Radek, 2)
.Font.Size = 12
.Interior.Color = RGB(204, 255, 255)

Tam je jeste prace jak na kostele... Radeji bych neco takoveho tvoril v accessu, ktery je svou povahou na toto podstatne vhodnejsi... Ale i access je pro firemni aplikaci odsouzen k nezdaru 7 . Zijeme v blbe dobe, nestaci vytvorit dobrou aplikaci, cim dal tim vic je dulezite aby byla taky odolna vuci zlomyslnosti a navic pristupna pres web.
Vyhoda excelu je v jeho super pruznosti, ale i kdyz se da pouzivat i jako prehravac mp3, tak pro toto pouziju jine aplikace
Ale klobouk dolu, ze ses do neceho takoveho pustil 5citovat
thums(12.1.2013 23:15)#010976
avatar
milan to řekl hezky...zlomyslnosti...naprostý souhlas...citovat
priza(14.1.2013 9:05)#010992
avatar
--Dík za názory-- a poprosím ještě jednou se zakladním prvkem ActiveX.Lehoulince upravené 1 Odkaz: http://www.uloz.to/xR6jxJu/pracovni-mylive-demo-key-key-xp-7-xlsm
(1,83 MB) key:democitovat
Milan-D(14.1.2013 11:31)#010994
avatar
A jak zni tedy dotaz ohledne ActiveX?citovat
priza(14.1.2013 12:26)#010995
avatar
Hlavně mi jde o to ,jestli se někdo dostane na samotné listy sešitu potažmo do kodu (a jak se tam dostal) a co se týče toho ActiveX -jelikož to nechodilo bez dodatečně instal.prvků nechal jsem v sešitu jen základní balík ovladačů.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje