[ Ivek33 @ 29.08.2005. 09:00 ] @
Molim Vas za pomoc,
Pocetnik sam u radu sa Accessom 2000.
Imam problem kako napraviti jednostavnu bazu sa dva podatka
( trebam 2 forme, unos podataka i pretrazivanje ).
Izradio sam tablicu u Excelu sa dva stupca. Stupac 1=artikal stupac2=cijena
U accesu sam je importirao i izradio FORMU-A za unos podataka u bazu
Forma se sastoji od dva polja za unos podataka i gumba SUBMIT ???
U FORMU-B sam postavio dva polja i gumb TRAZI. Ovdje trebam unijeti
samo jedan podatak ( npr: VINO u rpvo polje) i klikom na gumb TRAZI da mi izbaci u
drugom polju rezultat tj. cijenu tog vina.
Kako izraditi proceduru za gumb "trazi" i da li sam dobro postavio zadatak.
Ima li netko source za ovaj code, ili savjete kako ovo izraditi, treba mi oko 3000 slogova?
Hvala
[ Kire2005 @ 01.09.2005. 13:29 ] @
Ako sam dobro razumeo tebi treba ovo:

Ubaci u formu jos jedno pole.
U primeru Text pole za pretrazivene je imenovano txtSearch i da napomenem da pole treba biti nepovezano (Control Surce)
U dugme TRAZI za Event Click ubaci ovo :

--------------------------------------------------------------------------------
Private Sub TRAZI_Click()

Dim strListRef As String
Dim strSearch As String

If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "Nisi uneo podatak za pretrazivanje!", vbInformation, "PAZNJA"
Me![txtSearch].SetFocus
Exit Sub
End If

DoCmd.ShowAllRecords
DoCmd.GoToControl ("Artikal")
DoCmd.FindRecord Me!txtSearch

Artikal.SetFocus
strListRef = Artikal.Text

txtSearch.SetFocus
strSearch = txtSearch.Text

If strListRef = strSearch Then
MsgBox "Artikal : " & strSearch & " je pronadjen i bice prikazan!", vbInformation, "PRETRAZIVANJE"
Artikal.SetFocus
txtSearch = ""

Else
MsgBox "Artikal: " & strSearch & " - nije pronadjen!", vbInformation, "PRETRAZIVANJE"
txtSearch.SetFocus
End If
End Sub

--------------------------------------------------------------------------------------------------
Drugi nacin je da ubacis u Formu Combo Box za pretrazivanje sto mislim da je bolje.

Sretan Rad
[ motto cooltywator @ 01.09.2005. 14:10 ] @
ako sam dobro razumeo ovo mozes da resis pomocu parametarsog upita npr

select vino, cena
from table1
where (((table1.vino)= [unesite ime vina]));

i automatski ce da ti ispise ime i cenu vina

[ Ivek33 @ 02.09.2005. 17:45 ] @
e j**es mene neznalicu za rad na forumu. Ovo mi je prvi put da se javljam na ovom forumu a ni na drugima nisam bas hodajuci lik.
Zidar me savjetovao pa sada idem probati.
Ivek33
[ Ivek33 @ 02.09.2005. 17:53 ] @
Heh... vidi proslo je , bravo ja i Zidar moj savjetodavac
Zip file je tu.
[ Ivek33 @ 07.09.2005. 19:49 ] @
Hej ljudi!
Da li je neko skinuo ovaj zip file i vidio sto sam je to brljao, pa da pomogne?
[ Zidar @ 07.09.2005. 20:43 ] @
Bez ljutnje, ali ti imas jos dosta da ucis dok ne stignes do programiranja formi za pretrazivanje. Probaj ovo
http://www.ss-krapina.hr/nastava/access/index.html
a i u TOP temi "Korisni Linkovi" imas dobrih sajtova za ucenje.

Srecno :-)
[ Ivek33 @ 08.09.2005. 08:55 ] @
Hi,
Ma nema ljutnje, za to i postoji forum.
Pocetnik jesam ali ova baza bi trebala biti toliko jednostavna ( bar mislim ) da dva polje nisu problem.
Ponesto znam ali zelio bih vidjeti source ovog rjesenja pa tako da mogu iz toga vidjeti sto treba i kako raditi.

U svakom slucaju hvala, skinuo sam cijeli site koji si naveo pa sam sada zasukao rukave i skuhao litru kave , pripremio dvije kutije cigareta i deri peri, pa kako bude :-)

Thanks