Option group vezan za list Box

Option group vezan za list Box 31.05.2006. u 10:43 · pre 248 meseci #1

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?

Re: Option group vezan za list Box 31.05.2006. u 21:09 · pre 248 meseci #2

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

Re: Option group vezan za list Box 01.06.2006. u 08:46 · pre 248 meseci #3

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

Re: Option group vezan za list Box 01.06.2006. u 13:41 · pre 248 meseci #4

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.

Re: Option group vezan za list Box 01.06.2006. u 15:40 · pre 248 meseci #5

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!

Potpis

Bez muke nema nauke!!!

Re: Option group vezan za list Box 04.06.2006. u 19:05 · pre 248 meseci #6

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]}

Re: Option group vezan za list Box 04.06.2006. u 19:32 · pre 248 meseci #7

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.

db1.zip61.42k

Re: Option group vezan za list Box 07.06.2006. u 23:33 · pre 248 meseci #8

Hvala svima resio sam

Srodne teme