[ darkog @ 31.05.2006. 10:43 ] @
Na formi imam dva option dugmeta (1.kupci stanje, 2.Dobavljaci stanje) i jedan list box u kojem hocu da prikazem sve kupce ako je izabrana opcija kupci stanje ili sve dobavljace ako je izabrana opcija dobavljaci stanje.
Kako da na osnovu izabranog dugmeta u list boxu prikaze odgovarajuce zapise?
[ Zidar @ 31.05.2006. 21:09 ] @
Tvoja dugmad su deo nekog frame objekta. Trebalo bi da za frame object an after update stavis nesto ovako:

SELECT CASE framObject
CASE 1
me!lstBox.rowsource = "SELECT * FROM Kupci"
CASE 2
me!lstBox.rowsource = "SELECT * FROM Kupci"
END Select
[ darkog @ 01.06.2006. 08:46 ] @
Da to sam resio i radi dobro ali pojavio se jos jedan mali problem.Kako da unutar koda tj. SELECT naredbe napisem nesto ovako: IIf([VrstaKlijenta]=1,[Prezime] & " " & [Ime],[Firma]) AS [Naziv klijenta].Problem mi je sintaksa u SELECT naredbi zbog navodnika
Kratko objasnjenje: Imam jednu tabelu klijenti u kojoj su pravna (vrstaKlijenta=2) i fizicka lica (vrstaKlijenta=1) i ne bih to da menjam.
Kako da ubacim u kod funkciju IIF?
Nadam se da sam dovoljno jasan
[ Zidar @ 01.06.2006. 13:41 ] @
Ne vidim razlog da IIf([VrstaKlijenta]=1,[Prezime] & " " & [Ime],[Firma]) AS [Naziv klijenta] ne radi. Mozda da promenis dvostruke navodnike u jednostruke?

A moze i ovako. Neka se tvoj kveri gde imas IF zove qryFinal. Pre njega napravis UNION kveri, ovaklo nesto:
qryUNION:
SELECT Ime & " " & Prezime AZ NAzivKlijenta FROM Klijenti WHERE KlijentID=1
UNION
SELECT Firma AZ NAzivKlijenta FROM Klijenti WHERE KlijentID=2

Onda lepo izberes

SELECT NazivKlijenta FROM qryUNION

i izbegao si IF.


[ Pike79 @ 01.06.2006. 15:40 ] @
Pozdrav svima!
Darkog da li mozes da postavis deo ove aplikacije da bih video kako je resen ovaj problem posto mi se ucionio zanimljivim!

Pozdrav!
[ darkog @ 04.06.2006. 19:05 ] @
Jbg nemam kuci net pa sad stigoh...
Probao sam resiti jos neke sitnice oko aplikacije al nesto ne ide, pa se nadam da cemo zajednickim snagama.Kako da postavim samo (problematican) deo aplikacije a da to radi bez ostatka baze?

[Ovu poruku je menjao darkog dana 04.06.2006. u 20:20 GMT+1]
[ darkog @ 04.06.2006. 19:32 ] @
Nesto ovako sam postavio na AfterUpdate OptionDugmeta:

Code:
Private Sub LstIzborKriterijuma_DblClick(Cancel As Integer)
Dim stLinkCriteria As String

If IsNull(Me.LstIzborKriterijuma.Column(0)) Then
MsgBox "Izaberite kriterijum izvestaja", vbOKOnly, "Upozorenje!"
Cancel = True
GoTo kraj
End If

Select Case Me![optIzbor]

Case 1

stLinkCriteria = Me.LstIzborKriterijuma.Column(0)  
DoCmd.OpenReport "rptKupciStanje", acPreview, , stLinkCriteria

Case 2
stLinkCriteria = Me.LstIzborKriterijuma.Column(0)
DoCmd.OpenReport "rptDobavljaciStanje", acViewPreview, , stLinkCriteria
End Select
Exit Sub
kraj:
End Sub

Ali nesto ne radi kako treba.
LstIzborKriterijuma.Column(0) je polje KupacID (DobavljacID) kao uslov kriterijuma.
Svasta sam pokusavao ali ne ide. Znam da uslov (kriterijum) pretrage nije dobro napisan ali ne znam sta kako da ga napisem
LstIzborKriterijuma je nazim Liste koja sadrzi dobavljace ili kupce u zavisnosti sta je odabrano u optionDugmetu.
Znaci kad kliknem na kupca (dobavljaca) sa liste hocu da mi prikaze izvestaj samo njegovog stanja.
[ darkog @ 07.06.2006. 23:33 ] @
Hvala svima resio sam