iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	31.01.2011 17:32
Predmet:Re: Server i Access baza Znam da su aÅ¾urirani u tablici, ali ja sam mislio da se odmah vidi i na Stablu u sTREE, ako moÅ¾e.

zxz	31.01.2011 20:24
Predmet:Re: Server i Access baza Dok zavrsim ovaj komad stuba.

pmiroslav	31.01.2011 20:27
Predmet:Re: Server i Access baza Ja sam sa ovim oduÅ¡evljen, gledam i nemogu se nadiviti. Od kada sam počeo raditi ovu aplikaciju satalno sam razmiÅ¡ljao da imama stablo Å¡eme montaÅ¾e, ali naravno sam to nisam znao napraviti. Svaka čast.

pmiroslav

31.01.2011 20:27

Predmet:Re: Server i Access baza

Ja sam sa ovim oduÅ¡evljen, gledam i nemogu se nadiviti.
Od kada sam počeo raditi ovu aplikaciju satalno sam razmiÅ¡ljao da imama stablo Å¡eme montaÅ¾e, ali naravno sam to nisam znao napraviti.
Svaka čast.

pmiroslav	01.02.2011 15:33
Predmet:Re: Server i Access baza U postu 166 sam te pitao kako upisati Defaultni IDstroja to si mi odgovorio i to radi, međutim isti problem je i za karegoriju, Ja sam danas svaÅ¡ta isprobavao ali nisam uspio.
Prilozi: Kategorija.jpg (Velicina datoteke:100.29 KB)

pmiroslav

01.02.2011 15:33

Predmet:Re: Server i Access baza

U postu 166 sam te pitao kako upisati Defaultni IDstroja to si mi odgovorio i to radi, međutim isti problem je i za karegoriju,
Ja sam danas svaÅ¡ta isprobavao ali nisam uspio.

Prilozi:
Kategorija.jpg (Velicina datoteke:100.29 KB)

zxz	01.02.2011 16:02
Predmet:Re: Server i Access baza Napravi neki komandni taster na glavnoj formi. U Caption napisi "ZapiÅ¡i" Na on klik tog tastera stavi sledeci kod. PreuzmiIzvorni kôd (Visual Basic): Private Sub Imetastera_Click() Dim I As Integer On Error Resume Next I = sTREE.Object.SelectedItem.Index MeniD_AfterUpdate sTREE.Nodes(I).Selected = True sTREE.Nodes(I).Expanded = True End Sub

zxz

01.02.2011 16:02

Predmet:Re: Server i Access baza

Napravi neki komandni taster na glavnoj formi. U Caption napisi "ZapiÅ¡i"
Na on klik tog tastera stavi sledeci kod.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Imetastera_Click()
Dim I As Integer
On Error Resume Next
I = sTREE.Object.SelectedItem.Index
MeniD_AfterUpdate
sTREE.Nodes(I).Selected = True
sTREE.Nodes(I).Expanded = True
End Sub

pmiroslav	01.02.2011 18:30
Predmet:Re: Server i Access baza Zahvaljujem, ovo je OK. A znč li kako da pri upisu novpg dijela dodam i Default za Kategoriju. Ja sa gledao kako si ti napravio za iDstroja pa sam pokuÅ¡ao slično: U subproceduri Sub sTree_Click probao sam dodati Dim Kategorija As Integer kategorija = DLookup("kat", "indeks", "slaganje=" & M1) Forms![Frm_Strojevi]![Frm_Izmjene].Form.Kat.DefaultValue = & Kategorija Ali ovo mi ne radi.

pmiroslav

01.02.2011 18:30

Predmet:Re: Server i Access baza

Zahvaljujem, ovo je OK.
A znč li kako da pri upisu novpg dijela dodam i Default za Kategoriju.
Ja sa gledao kako si ti napravio za iDstroja pa sam pokuÅ¡ao slično:
U subproceduri Sub sTree_Click probao sam dodati

Dim Kategorija As Integer
kategorija = DLookup("kat", "indeks", "slaganje=" & M1)
Forms![Frm_Strojevi]![Frm_Izmjene].Form.Kat.DefaultValue = & Kategorija

Ali ovo mi ne radi.

zxz	01.02.2011 18:51
Predmet:Re: Server i Access baza Nisam te bas najbolje razumio. Strojeve elemente dodajes u subformi i to sam ti napravio da ti se po defaultu pise idstroja te ga mozes napraviti nevidljivim u subformi. Tree kontrola kupi podatke iz tabele indeks i ona nema veze sa tim. samo sluzi za izbor i za prikaz u tree kontroli. Tvoji podaci su u tbl_zbirna. Ti hoces da prepises kat grupe napr stroj a podgrupa moze biti bilo sta sklop podsklop cvor te kat isto tako moze biti 3,4 itd. Kada hoces u sklop napr. dodati cvor kat sklopa je 2 a cvora 4 Jedino mozes ovo napraviti kada ima rekorda da ti pokaze. U formi izmjene na on current stavi ovo: PreuzmiIzvorni kôd (Visual Basic): Private Sub Form_Current() On Error Resume Next Dim Kat As Integer Dim Rs As Recordset Set Rs = Me.RecordsetClone Rs.MoveLast Me.Kat = Rs!Kat End Sub

zxz

01.02.2011 18:51

Predmet:Re: Server i Access baza

Nisam te bas najbolje razumio.
Strojeve elemente dodajes u subformi i to sam ti napravio da ti se po defaultu pise idstroja te ga mozes napraviti nevidljivim u subformi.
Tree kontrola kupi podatke iz tabele indeks i ona nema veze sa tim. samo sluzi za izbor i za prikaz u tree kontroli.
Tvoji podaci su u tbl_zbirna.

Ti hoces da prepises kat grupe napr stroj a podgrupa moze biti bilo sta sklop podsklop cvor te kat isto tako moze biti 3,4 itd.
Kada hoces u sklop napr. dodati cvor kat sklopa je 2 a cvora 4
Jedino mozes ovo napraviti kada ima rekorda da ti pokaze.
U formi izmjene na on current stavi ovo:

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Form_Current()
On Error Resume Next
Dim Kat As Integer
Dim Rs As Recordset
Set Rs = Me.RecordsetClone
Rs.MoveLast
Me.Kat = Rs!Kat
End Sub

zxz

01.02.2011 18:58

Predmet:Re: Server i Access baza

	Racun Br:234
Naziv Artikla	Jed. Mjere	Kolicina	Cijena
Slaganje podataka	kom.	1	pola stuba,piva
Izmjena podataka	kom.	1	Polas stuba,piva
PDV	%	30	Ucesce u autocad forumu

Ukupno:Stub,2piva i ucesce u autocad forumu