[ jmunja @ 10.02.2011. 22:26 ] @
Možeš li mi pomoći oko rešenja za ovaj moj problem .
Počeo sam po malo da učim VBA i EXCEL ali sam se upetljao i ne mogu da nađem rešenje za ovo .
Evo o čemu se radi :
Treba da u ComboBox-u otvorim bazu podataka i da iz liste očitam podatak RedBroj i sa njim da mi se
pojavi i drugi podatak OsnovnoSredstvo . Kada izvršim selektovanje broja potrebno je izvršiti popunu
u formi : OsnovnoSredstvo , InventarniBroj ; Prostorija ; Pozicija ; Tip opreme i FabričkiBroj .
Podaci u TextBox : Datum popravke ; Opis popravke ; Utrošen materijal ; Popravku izvršio i Utrošeno vreme
popunjavam sam .
Unošenje podataka u arhivu sam uradio kao i brisanje unetih podataka.
Možda je ovaj moj zahtev preglomazan ali se nadam da češ ga rešiti .
Unapred hvala !
Pozdrav jmunja .
[ neptuncokg @ 10.02.2011. 23:33 ] @
Nisam siguran da sam najbolje razumeo, ali evo pokusaja. Pogledaj primer. Preradio sam ti malo dogadjaj "cboBroj_Change", i osobine combobox-a (RowSource, ColumnWidths i ColumnCount). Pogledaj sve to malo pa javi da li je to sto si hteo. Pozdrav
[ jmunja @ 11.02.2011. 05:48 ] @
To je to što sam hteo , ali sada prilikom pokušaja unosa podataka javlja grešku :
Run-time eror 381 .
Could not get the Column property .
Invalid property array index .
Sada ću i ja pokušati da pronađem o čemu se radi , ali bih te pitao još nešto . Da li može , kada se otvori prozor forme , Excel da se spusti u tul bar i obrnuto
kada se zatvori forma da se prozor excela ponovo vidi .
Hvala i pozdrav .
[ jmunja @ 11.02.2011. 07:03 ] @
Grešku koja se javljala kada sam hteo da unesem podatke sam rešio tako što sam izbrisao Me.cboBroj.Value = "" , ali bih Te zamolio da mi daš odgovor za moje drugo pitanje .
Pozdrav !
[ neptuncokg @ 11.02.2011. 11:59 ] @
Pokusaj da negde ubacis sledeci kod (naprimer u "Workbook.Open"() : Application.WindowState = xlMinimized 'minimizira radnu svesku
a u dogadjaj dugmeta Izlaz, posle Unload Me - Application.WindowState = xlMaximized
[ jmunja @ 11.02.2011. 13:21 ] @
Prvo , hvala na odgovoru . Pokušao sam da ubacim i ovaj detalj ali mi ne uspeva . Verovatno ću da se tim pozabavim malo kasnije .
Pozdrav !
[ neptuncokg @ 11.02.2011. 16:28 ] @
A sto ponovo ne prilozis fajl, da vidimo kako ne radi...
[ jmunja @ 11.02.2011. 17:41 ] @
Evo šaljem Ti fajl koji je malo prepravljen .
Pozdrav !
[ neptuncokg @ 11.02.2011. 22:35 ] @
Ja nazalost ne mogu da pristupim tvojim makroima. (Pravougaonik1.click, Pravougaonik2_Click)

U modulu1 imas kod za formu (?):

Private Sub UserForm_Click()
Sub ShowUserForm()
Unospodataka.Show
End Sub

Sta je "Sub ShowUserform()" ??

Zaista ne razumem o cemu se radi. Mozda zato sto ja radim pod Excelom-2003.
Mozda neko drugi pomogne. Pozdrav
[ jmunja @ 12.02.2011. 05:40 ] @
Ako nemožeš da otvaraš ovaj zadnji primer Ti pokušaj sa primerom koji si mi poslao samo izbaci Me.cboBroj.Value = "". Sada da Ti kažem da je Pravougaonik1 poziv za otvaranje forme Unospodataka ( Sub ShowUserform()" ) dok je Pravougaonik2 hiperlink za otvaranje stranice arhiva . To u excelu 2007 radi .
Pozdrav i hvala za uloženi trud .
[ Jpeca @ 12.02.2011. 10:31 ] @
U događaju inicijlazacije forme postavi

Code:
Application.WindowState = xlMinimized


Da se korisnička forma ne bi minimizovala postavi svojstvo forme ShowModal na False

Prilikom zatvaranja forme (događaj Terminate) postavi
Code:
Application.WindowState = xlMaximized

[ jmunja @ 12.02.2011. 14:07 ] @
Hvala . To je to .
Pozdrav !