Potrebna mi je pomoć u radu sa formom u MS Accessu

Pozdrav ljudi !
Zapeo sam na jednom mjestu, i ne mogu rijesiti jedan problem, ma koliko pokusavao.
Evo o cemu se radi:

Pravim bazu podataka, koja izmedu ostalog sadrzi tabelu, npr KUPCI, u kojoj se nalaze potrebni podaci o kupcima, npr:
SIFRA KUPCA
NAZIV
ADRESA
GRAD
itd...

E sad, napravio sam formu RACUN, koj sluzi za kreiranje racuna iz podataka u bazi.
Naravno, na racunu mora biti naziv kupca sa ostalim podacima o njemu.

E sad je pitanje, kako da napravim nesto na toj formi, npr. COMBO BOX koji u sebi sadrzi SIFRE KUPACA, i kada odaberem bilo koju sifru iz tog combo boxa, da mi automatski popuni na formi ostale TEXT BOX-ove sa ostalim podacima kupaca, tj.

Ako mi je pod sifrom npr. 0001 kupac pod nazivom Smith
kad odaberem na formi iz combo boxa tu sifru, da mi automatski napise na formi i ostale podatke: naziv, adresu, grad itd.

Znam da je ovo jedino mjesto gdje mogu potraziti pomoc, i da vam ovo nece vjerovatno predstavljati problem, pa vas molim za pomoc, jer vec cupam kosu sa glave, a dosadilo mi je unositi podatke "pjesice".

Hvala vam unaprijed

Potpis

Sancho

I mene to muci bash
Valjda ce nam neko objasniti.

Imate primer u Northwindu forma Orders.

E bas sam tu formu gled'o i nisam nigde video na koji nacin povlaci kompletne podatke iz jednog zapisa na osnovu primarnog kljuca. Ajde nek nam neko kaze u cemu je caka

Pa u Orders tabeli imas lookap polje (CustomerID), koje trazi customera, kao spoljni kljuc...

Ne znam kako stojis sa VBA, ali otprilike bi to islo ovako. (Ako sam te dobro razumio).
Treba da napises malo koda u Change event Kombo boksa. Tada svaki put kad korisnik napravi promenu selekcije u kombo boksu ti lepo taj dogadjaj event "trap" uhvatis u tom kodu pogledas ID ili sifru tog racuna koji je naravno u skrivenoj koloni i izvrsis upit na zadati ID.
Npr.
Private cbo_Change_event
Dim rs as recordset
dim db as database
dim sql as string
dim ID as integer

id = cbo.column(1).value
db = currentdb
sql = "select * from tablaKorisnici WHERE korisnikID =" & ID
set rs = db.openrecordset(sql)
'Sad sve podatke imas u rekordsetu
'sad samo popuni text boxove refrencirajuci imena polja u recordsetu

if not rs.eof then
rs.movefirst
me.txtboxKorisnik_IMe = rs(KorisnikIme).value
me.txtboxKorisnik_Prezime= rs(KorisnikPrezime).value
end if

end if

Evo to je otprilike to
Pisao sam napamet tako da su moguce greske u sintaksi ali sam siguran da je ceo koncept ispravan, i da cela stvar treba da radi kako sam naveo.

Puno srece

Potpis

Jednostavnost! Odlika genijalnosti

To radi ovaj event, popunjava polja ship to na desnoj strani forme,


Private Sub CustomerID_AfterUpdate()
' Update ShipTo controls based on value selected in CustomerID combo box.
Me!ShipName = Me![CustomerID].Column(1)
Me!ShipAddress = Me!Address
Me!ShipCity = Me!City
Me!ShipRegion = Me!Region
Me!ShipPostalCode = Me!PostalCode
Me!ShipCountry = Me!Country

End Sub

ali, u isto vreme zahvaljujući tome što je qryOrders osnova za formu bivaju popunjena i disable polja sa leve strane (ispod cmbCustomerID polja). Ukoliko ti je samo to potrebno, napravi query za svoju formu, umesto tabele.

E, "drbogi" hcvala ti, napravio sam query, postavio VB kod, i radi, ali... :(, sdesava se nesto cudno. Npr. u tabeli, odnosno query imam npr. 5 firmi, kad odaberem sifru firme jedan, on mi da podatke o njoj, i to je ok, ali kad idem da odaberem sifru 2 i dalje, on mi i dalje osrtavlja podatke od firme jedan, a mna dnu forme imam ona standardna dugmad za navigaciji, i ona na FORMI pokazuju da moram ici na record npr 2 i kad odem na rec 2, kad iz combo-a odaberem sifru 2 on mi da podatke o firmi pod tom sifrom, i tako do kraja.
Dakle ima negdje greska , ali gdje?????

POMOZIII!!!!

Potpis

Sancho

Oba resenja koriste unbound kontrole za podatke o kupcu. Jasno kao dan - odaberes kupca, a onda se njegovi podaci prepisu u unbound polja. Pretpostavljam da neces podatke o kupcu da cuvas u tabeli Racuni, osim Kupac_ID.
Posto su polja unbound, kad predjes na novi rekord, ta polja zadrzavaju stare vrednosti, koje si postavio u prethodnom rekordu. Treba znaci nekako isprazniti ta polja pri prelasku ne novi rekord. Mozes da koristi formin OnCurrent event , ovako otprilike:

Ovaj kod se komlikuje kad hoces da na postojecim rekordima visis podatke o Customerima. Treba na OnCurrent odvojeno posmatrati New i Existing records itd..

Medjutim, postoji resenje koje ne zahteva programiranje uopste. Za svako od zelenih polja postavis po jedan combo box na formu:
cboShipName, cboShipCity, cboShipRegion, cboShipPostalCode itd.
Svi imaju DtaSource = CustomerID (postali su bound polja)
Za njih stavis sve da je RowSourceType=Table/Query i neka budu ovo RowSource properties:
cboShipName RowSource = "SELECT CustomerID, ShipNAme FROM tblCustomers"
cboShipCity RowSOurce = "SELECT CustomerID, ShipCity FROM tblCustomers"
cboShipRegion RowSource= "SELECT CustomerID, Shipregion FROM tblCustomers"
Onda za svaki od ovih combo boxova postavis
Column Count=2,
Column Widths = 0;4
Column widths ce da sakrije prvu kolonu a da prikaze DRUGU, sa informacijom koja tebi treba.
Jos treba da postavis na sve ove combo boxove Locked=TRUE, da ih ne bi koristo za biranje. Glavni, cboCustomer osatvi kakav je bio - iz njega biras svog Customera.

Kad se pomeris na sledeci rekord, ako je novi rekord, svi cbo ce biti prazni (ono sto ti treba ;). Kad potavis formu na neki postojeci rekord, videces sve podatke za odgovarajuceg Customera.

Broj linija programskog koda = 0.

Ako ti trebaju podaci o ustomeru na print kopiji racuna, mozes da uradis isto. Combo boxovi se na papiru vide kao text boxovi. A mozes da u report source query dodas kolone koje ti trebaju (JOIN query) i odstampas ih u nekoj header sekciji racuna.

Nemoj slucajno da pomislis da stampas formu direktno. Odmah cemo da te vratiom u beznadezne pocetnike.

;-)

EZidar, tvoji odgovri me uvijek oraspoloze, a sto je najsmjesnije, kad god mi odgovoris, ja skontam i jos jedan nacin :)

Naime, uradio sam to da sam uzeo combo box pridruzio ga vrijednosti ID kupca, a zatim postavio tex boxove boundovane na zeljene recordse.

pri postavljanju comba, wizard meje pitao da li zelim da combo odreduje ostale podatke koji odgovaraju ID odr. seta, i ja kliknuo YES hahahaah.

I fakat, sad kad god odaberem vrijednost iz cmboa, on mi odabere u boundovanim tex box sve ostale vrijednosti tog recorda, a sto je najbolje, report je jednostavan, bez calc contr, i sli, vec obican.

U svakom slucaju, tvoja me rijesenja uvijek nadahnjuju.
Hvala jos jednom!

Potpis

Sancho

Pa mislim da nema potrebe da budeš ciničan, čovek je hteo da ti pomogne i fakat potrošio vreme da ti napiše. Sad ni ja baš iz prve nisam uspeo da shvatim u čemu je tvoj problem. U svakom slučaju nije lepo biti nezahvalan, a dobro je što si rešio problem pa ubuduće i ti možeš nekome pomoći kada mu zapne.
Nemoj da se ljutiš, a ako sam pogrešno protumačio tvoj post, izvinjavam se unapred.

Havla ti drBogi u svakom slucaju na paznji.

Mislim da ipak nema frke nikave i nema ljutnje. Nisam dobio utisak da je Sancho cinican ili bilo sta lose. Post sam shvatio pre kao pohvalu Covek je primenio upravo ono resenje koje sam naveo, s jednim velikim unapredjenjem - upotrebio je wizard i tako mnogostruko skratio potrebno vreme. Ako je do tog resenja Sancho dosao sam, jos je bolje. Cilj ovog foruma nije da se ljudima ponude gotova definitivna resenja, nego ideje i da ljudi iz njih nesto nauce ili se podstaknu na razmisljanje i istrazivanje. U ovom se slucaju upravo to desilo i ja sam srecan zbog toga

Sancho ocigledno u sred nekog znacajnog stvarnog projekta i u tom procesu nailazi na probleme koje ponekad podeli s nama i onda od toga na kraju svi imamo koristi. Na kraju projekta, sancho ce znati mnogo vise nego ranije, ne zbog foruma, nego zbog iskustva, pa ce prestati da pita tako cesto ali ce verovatno poceti da odgovara na postove i pomaze drugima. Postace pravi majstor. A to smo upravo i hteli ovim forumom, zar ne?