Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#11 28.06.2013 06:15
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
fino hvala
ramic
↑  ↓

#12 01.07.2013 07:14
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
na ulazu lijekova na polju interna
pokusao sam ali na F5 pretragu imam run time 3129
nešto nevalja na SQLSTR
ali me zaustavi na sqlstr (stavio sam je u jedan model Const SQLSTR :::) u pozivu forme ulaza lijekova na polju interna ovaj iskaz mi je prazan
SQL = SQLSTR je prazan
ovdje me zaustavi Qdf.SQL = SQL
↑  ↓

#13 01.07.2013 12:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: prikaz stanja naformi
Hehe vidio sqam ja to ali ti si vec napisao "fino hvala
ramic"
Naime Zaboravio sam napisati SQLStr sadrzaj.
Mozes u neki modul kao konstantu napisati:
Global Const SQLSTR = "SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, " _
& "proizvodi.participacija, proizvodi.zavod " _
& "FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) " _
& " ON crveno.PROIZVOD = proizvodi.PROIZVOD"

Ili ako ti se ovo ne svidja mozes i u tag neke kontrole ili forme.
Mislim da ti je ovo zgodnije.
samo dodasi treba da radi sve pod uslovom ako si u hwerw kod ulaza promijenio putanju uslova.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 02.07.2013 20:49
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
PO POZIVU FORME PRETRAGA NA POLJU lstResults IMAM, IZ BILO KOGA POLJA INTERNE,SVE RECORDE KNJIZENJA TIH PROIZVIODA A NE PROIZVODE (1A SE PONAVLJA 100 PUTA ITD)
I U SQL ISKAZU QUERY QPRETRAGA SKINUO SAM KLAUZULU WHERE JER SE ODNOSI SAMO NA ULAZ

STAVIO
SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.proizvod = proizvodi.PROIZVOD
ORDER BY proizvodi.PROIZVOD;

UMJESTO
SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.proizvod = proizvodi.PROIZVOD
WHERE (((crveno.apoteka)=[Forms]![IZLAZ]![Apoteka]))
ORDER BY proizvodi.PROIZVOD;
↑  ↓

#15 05.07.2013 08:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: prikaz stanja naformi
Dali to sad radi ili ne?
Da ne gledam ponovo.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 05.07.2013 13:15
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
ne zato sto u pretragama pokazuje sve recorde(ulaza,izlaza,povrata) a ne bazu proizvoda

u Queriju pretrage sam pokusao sa relacijama tabela ali ne ide
↑  ↓

#17 05.07.2013 13:26
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
ne radi dobro forma pretrage
↑  ↓

#18 07.07.2013 12:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


Predmet:Re: prikaz stanja naformi
Moze se jos toga dovesti u red ali bi mi trebalo vise vremena a i ubija me ovo sirenje formi na max prilikom rada.
Zato se koristi meni funkcija i kada ides preko nje onda je to napisano samo na jednom mjestu a ne ovako rastrkano.
Znaci napravi se jedna procedura u kojoj se setuje ime forme i onda tu pises i opstale osobine setovane forme.

Idemo ovo tvoje.
-Kopiraj ili preimenuj tvoju formu frmUlaz u frmPokreni.
-Poslije mozes izbrisati forme frmulaz i frmIzlaz.
-Zasto dvije kada moze jedna forma..
-na vrh tvoga modula a ispod Option Compare Binary Funkcije (Moze i neki drugi) stavi ovo:
Global K As Integer

Forma LOGO.
Tamo imas tastere:
-Recepti esencijalna
-Ulaz lijekova
-Pocetno stanje
-Povrat robe.

Svi ovi nabrojani su za ulaz robe sem ovoga recepti esencijalna sto znaci da se moze koristiti jedna forma samo u polje vrsta u tabeli ulaza pisat ce se koja je vrsta i to bolje brojcano sa kodnom:
Napr:
1-Ulaz standardni
2-Pocetno stanje
3-Povrat

To isto mozes rijesiti jednom globalnom var. kao sto sam ja stavio K.
Znaci bilo bi:
Global VrstaUlaza as integer

Izmjene ne ovoj formi:
Private Sub Command1_Click()
DoCmd.OpenForm "frmPokreni", acNormal 'frmizlaz
K = 0
End Sub
Private Sub Command2_Click()
DoCmd.OpenForm "frmPokreni", acNormal 'frmulaz
K = 1
End Sub
Forma FrmPokreni:
Samo se mijenja ovaj kod a ostalo mozes ostaviti isto sto je bilo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub APOTEKA_Click()
  2. Dim NazivF As String
  3.  
  4. If K = 0 Then
  5. NazivF = "Izlaz"
  6. ElseIf K = 1 Then
  7. NazivF = "Ulaz"
  8. End If
  9.  
  10.     DoCmd.OpenForm NazivF, acNormal, "", "[APOTEKA]=[Forms]![frmpokreni]![APOTEKA]", , acNormal
  11.     DoCmd.GoToRecord , , acLast
  12. End Sub

Query:
Napravi Query QPretrageI sa ovim sadrzajem:
PreuzmiIzvorni kôd (SQL):
  1. SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
  2. FROM crveno INNER JOIN (proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra) ON crveno.PROIZVOD = proizvodi.PROIZVOD
  3. WHERE (((crveno.apoteka)=[Forms]![IZLAZ]![Apoteka]))
  4. ORDER BY proizvodi.PROIZVOD;
I Query QPretrageU sa sledecim sadrzajem:
PreuzmiIzvorni kôd (SQL):
  1. SELECT proizvodi.INTERNA, proizvodi.PROIZVOD, proizvodi.ime, DOBAVLJAC.dobavljac, proizvodi.CIJENA, proizvodi.participacija, proizvodi.zavod
  2. FROM proizvodi INNER JOIN DOBAVLJAC ON proizvodi.sifra = DOBAVLJAC.sifra
  3. ORDER BY proizvodi.PROIZVOD;
Forma PRETRAGA
Mijenja se ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. If K = 0 Then
  2. Me.lstResults.RowSource = "QpretrageI"
  3. ElseIf K = 1 Then
  4. Me.lstResults.RowSource = "QpretrageU"
  5. End If

Na polju lstResults Rowsource ostavi prazno.

Nadam se da nisam nista zaboravio.
Moglo bi se tu jos stosta doraditi ali iziskuje vrijeme.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 11.07.2013 08:06
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Postovi:231


Predmet:Re: prikaz stanja naformi
fino hvala savjeti su ok
sve ću probati pa se čujemo
pozdrav
ramic
↑  ↓

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 49 pm.