freestuff.gr áñ÷éêÞ óåëßäá
 FAQFAQ    ÁíáæÞôçóçÁíáæÞôçóç   Ëßóôá ÌåëþíËßóôá Ìåëþí   ÏìÜäåò ÌåëþíÏìÜäåò Ìåëþí   <b>ÅããñáöÞ ÌÝëïõò</b>ÅããñáöÞ ÌÝëïõò 
 ÐñïößëÐñïößë   ÅðéëïãÝò ìÝëïõò ÅðéëïãÝò   Ôá bookmarks ìïõ Ôá bookmarks ìïõ   ÐñïóùðéêÜ ìçíýìáôáÐñïóùðéêÜ ìçíýìáôá 
  äéáöÞìéóç  

Êáëþò Þñèáôå óôï forum ìáò! Ãéá íá óõììåôÜó÷åôå óôéò óõæçôÞóåéò èá ðñÝðåé íá åßóáóôå ìÝëïò. Ãßíåôå ìÝëïò ôþñá!.
 

List box population


 Forum index » Äçìéïõñãßá Web Sites, Ãñáöéêþí & Ðñïãñáììáôéóìüò » SQL êáé SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
ÅéóáãùãÞ íÝïõ ÈÝìáôïò   ÁðÜíôçóç óôï ÈÝìá Óåëßäá 1 áðü 1 [15 Ìçíýìáôá]      Bookmarks Tags: listpopulationbox Mark the topic unread :: Ðñïçãïýìåíï èÝìá :: Åðüìåíï èÝìá
ÁðïóôïëÝáòÌÞíõìá
kostello


ÌÝëïò áðü: 18 Ìáç 2007
Ìçíýìáôá: 13

View users profile
ÌÞíõìáÓôéò: 03 Óåð 2008 13:38    ÈÝìá: List box population ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Kalispera se oloys. Exw to eksis problhma.

Exw 2 pinakes: KatigoriesProiontwn kai Proionta
O pinakas KatigoriaProiontwn exei tis ekseis eggrafes: kafedes, anapsiktika, xymoi ktl.
Twra, kathe mia apo autes tis eggrafes einai kai enas pinaka. Diladi:
kafedes: espresso, nes, ellinikos,filtrou
anapsiktika: cocacola, fanta, sprite ktl...

Exw 2 list boxes. To ena list box ginete populated me tis eggrafes tou pinaka KatigoriaProiontwn. Diladi to ena listbox exei: kafedes, anapsiktika, xymoi ktl

Thelw to allo list box na pairnei tis eggrafes tou antistoixou pinaka gia kathe katigoria proiontos pou epilega apo to prwto list box.
Diladi otan kanw klik sto : kafedes na mou emfanizete sto allo list box: espresso, nes, ellinikos ktl.

Thelw auto na ginete eite me ena klik panw se ena item tou listbox1 eite na epilegw ena item kai meta na pataw ena koumpi pou na mou emfanizei auta pou thelw sto listbox2.

Exw psaksei olo to net den vriskw tipota. Kserw oti ginete me tin methodo selectedtem alla mou vgazei error i access.

Logika den prepei na xrisimopoiisw tin eksis logiki?
If listbox1.selecteditem = "kafedes" then
sql query pou na kanei populate to listbox2 me ta values tou pinaka kafedes.

I mipws kalutera na to kanw me case?

Any help would be much appreciated!
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 03 Óåð 2008 17:46    ÈÝìá: Re: List box population ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Ößëå Kostello,

Ôï listbox ãõñßæåé Ýíá index Array ìå áñ÷Þ ôï 0. Ãéá íá ãßíù ðéï êáôáíïçôüò èá ðñÝðåé íá äþóåéò óôçí êáôçãïñßá ðñïúüíôùí óïõ êáé Ýíá áêüìá ðåäßï ð÷ ListBoxID ðïõ èá áñ÷ßæåé áðü ôï 0.
Äåí ãõñßæåé ôï ListBox äçëáäÞ string Þ values åêôüò áðü Index.

To ListBox èá ôï ÷ñçóéìïðïéÞóåéò ðñïöáíþò ãéá öéëôñÜñéóìá ôùí åããñáöþí óïõ Þ ùò Bound ðåäßï ðïõ èá Ý÷åé ôéìÝò ; Ôï äåýôåñï ListBox ìå âÜóç ôï ðñþôï êáé ôïí áñéèìü ListBox ìðïñåß üíôùò íá öéëôñÜñåôáé ùò ðñïò ôï ôé èá åìöáíßæåé (ÐÜíôá ìå êþäéêá VBA áõôü)

Áí èÝëåéò óôåßëå ìïõ ôçí âÜóç óïõ êáé óôï åéóÜãù üðùò èÝëåéò êáé óôï åðéóôñÝöù ìå åðåîçãÞóåéò ðïõ öõóéêÜ èá ôéò äçìïóéåýóù êáé óôï åäþ Forum.

ÖéëéêÜ
kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
dva_dev
Script Master

ÌÝëïò áðü: 16 Óåð 2005
Ìçíýìáôá: 256+

View users profile
ÌÞíõìáÓôéò: 04 Óåð 2008 00:04    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

(Äåò óôï ðáñÜäåéãìá ðïõ õðÜñ÷åé óå rar.)

ÖôéÜ÷íåéò ðñþôá ôïõò ðßíáêåò t1, t2, Ý÷ïõí ïñéóôåß primary keys êáé Ý÷åé ìðåß ôï ó÷åôéêü relation þóôå íá ìðïñïýí íá óõó÷åôéóôïýí ïé êáôçãïñßåò.

ÌåôÜ öôéÜ÷íåéò ìéá öüñìá, êáé âÜæåéò äýï listboxes (List4, List2).

Óôï List4 äßíåéò rowsource ôïí ðßíáêá t1 (ìïñöïðïéåßò ëßãï þóôå íá ìçí åìöáíßæåé ôï primary key áëëÜ ìüíï ôçí ðåñéãñáöÞ) êáé bound column ôçí óôÞëç 1 (ï áñéèìüò ôçò óôÞëçò ðïõ åßíáé ôï id).

Óôï List2 äßíåéò rowsource "select <üëá ôá ðåäßá Þ üðïéá èÝëåéò> from t2 where t2.parentid = ç åðéëåãìÝíç ôéìÞ áðü ôï Üëëï listbox" ïðüôå áëëÜæïíôáò ç åðéëåãìÝíç åããñáöÞ ìðïñåßò íá öÝñåéò ôéò áíôßóôïé÷åò åããñáöÝò åäþ.
Ôï rowsource ìðïñåß íá ãßíåé "SELECT t2.id, t2.parentid, t2.descr FROM t2 WHERE (t2.parentid=Forms!Form1!List4)

Åôóé êÜèå öïñÜ ðïõ áëëÜæåé ç åðéëåãìÝíç åããñáöÞ óôï list4, ôï list2 èá ìðïñåß íá áíáíåùèåß.
Ôï ìüíï ðïõ ëåßðåé åßíáé íá ôïõ ðïýìå áêñéâþò áõôü ôï ðñÜãìá.
Ðçãáßíåéò óôï list4 êáé óôï event After Update ðáò íá ãñÜøåéò ëßãï êþäéêá (þóôå íá ãßíåé êÜôé ôÝôïéï):
êþäéêáò:
Private Sub List4_AfterUpdate()
    Me.List2.Requery
    Debug.Print "Selected Value: " & CStr(List4.Value)
End Sub


Ç ðñþôç ãñáììÞ åßíáé áõôü ðïõ ÷ñåéÜæåôáé, ç äåýôåñç åßíáé áðëþò ãéá debugging êáé ìðïñåß íá äåßîåé ðïéÜ åßíáé ç åðéëåãìÝíç ôéìÞ óôï Listbox List4.

kon73 áíÝöåñå:
Äåí ãõñßæåé ôï ListBox äçëáäÞ string Þ values åêôüò áðü Index

Ãéá ôçí åðéëåãìÝíç ôéìÞ ìðïñåßò íá ÷ñçóéìïðïéÞóåéò ôï Property Value (ð.÷. List4.Value) ôï ïðïßï åßíáé variant êáé ìðïñåß íá êñáôÞóåé üôé äåäïìÝíá åßíáé êáé ç bound column óôï listbox.
Óôï List4 ç bound column 1 åßíáé text (ôï rowsource åßíáé ôï t1 ïðüôå öÝñíåé üëá ôá ðåäßá ôïõ ðßíáêá t1 ìå ôç óåéñÜ ðïõ åßíáé äçëùìÝíá: id:text, descr:text)
Áíôßèåôá óôï List2 ç bound column 1 åßíáé number (ôï rowsource öÝñíåé ôá ðåäßá id:number, parentid:text, descr:text)



Sample1.rar
 Description:

Download
 Filename:  Sample1.rar
 Filesize:  6.82 KB
 Downloaded:  567 Time(s)

kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 04 Óåð 2008 01:57    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Åäþ ðñÝðåé íá ãßíåé ìßá äéåõêñßíçóç. ¸íá ListBox óõíÞèùò ÷ñçóéìïðïéåßôáé ãéá ôçí äõíáôüôçôá ôïõ íá ìðïñåßò íá åðéëÝãåéò ðïëëÜ ìáæß ùò Simple Þ ùò Extended óôï MultiSelect property åêåß ôï Bound óôï Control Source ÷Üíåé ôçí ÷ñçóéìüôçôÜ ôïõ.
ÅðïìÝíùò óôçí ðåñßðôùóç ðïõ èÝëåé êÜðïéïò íá åðéëÝîåé ðåñéóóüôåñï áðü ìßá åðéëïãÞ ãéá íá äåéò ôéò ôéìÝò ðïõ Ý÷ïõí åðéëåãåß Þ ãéá íá åìöáíßóåé óôï äåýôåñï ListBox üëåò ôéò ðïëëáðëÝò åðéëïãÝò ôïõ ðñþôïõ ListBox èÝëåéò ôï Index êáé ôï property ItemData åêåß áíáöÝñïìáé üôé ôï ListBox èÝëåé indexes.


Ôï ëïéðüí ôï åñþôçìá ôï åß÷á êáôáëÜâåé ùò ðïëëáðëÝò åðéëïãÝò ãé'áõôü êáé Üëëùóôå ñùôïýóá ãéá bound Þ ãéá áðëü öéëôñÜñéóìá åããñáöþí.
Ôï óýíçèåò ãéá ìßá êáé ìüíï åðéëïãÞ ãßíåôáé ìå ComboBox åêôüò êáé áí åðéëÝîïõìå ôï ListBox ìå none óôï Property MultiSelect óå ðåñßðôùóç ðïõ ìáò áñÝóåé ðåñéóóüôåñï ôï ListBox áíôß ôïõ ComboBox.

Ç Ëýóç âÝâáéá ðïõ äßíåé o dva_dev óßãïõñá áðáíôÜ óôï ðñüâëçìá ôïõ ößëïõ kostello áðëÜ åãþ óêÝöôçêá êÜôé ðéï ðïëýðëïêï.
ÅéäéêÜ âÝâáéá üôáí èÝëïõìå óôï Bound ôïõ ListBox íá äéáôçñåß ôéò ðïëëáðëÝò åðéëïãÝò üðïõ Ý÷ïõìå êÜíåé, åêåß ôï Ý÷ù åöáñìüóåé ìå êþäéêá ðïõ áðïèçêåýåé ôá indexes ìå êüììá êáé ôá äéáâÜæåé Ý÷ïíôáò ùò äéá÷ùñéóôéêü ôï êüììá.

Ìå ôçí óåéñÜ ìïõ ôï ëïéðüí êÜíù ôï åñþôçìá õðÜñ÷åé êáíÝíáò Üëëïò ôñüðïò þóôå íá äéáôçñåß ôéò ðïëëáðëÝò åðéëïãÝò ðïõ Ý÷ïõìå êÜíåé óå ListBox ;

ÖéëéêÜ
kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
dva_dev
Script Master

ÌÝëïò áðü: 16 Óåð 2005
Ìçíýìáôá: 256+

View users profile
ÌÞíõìáÓôéò: 05 Óåð 2008 14:24    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

kon73 áíÝöåñå:
...õðÜñ÷åé êáíÝíáò Üëëïò ôñüðïò þóôå íá äéáôçñåß ôéò ðïëëáðëÝò åðéëïãÝò ðïõ Ý÷ïõìå êÜíåé óå ListBox ;

Ðñßí 1-2 ÷ñüíéá ðïõ åß÷á ÷ñåéáóôåß êÜôé áíôßóôïé÷ï ìå ðïëëáðëÝò åðéëïãÝò åß÷á áðïöýãåé íá áðïèçêåýù ôéò åðéëïãÝò óå string (óáí comma separated values - csv) ãéáôß åßíáé ðïëý äýóôñïðá, áöïý áðáéôïýóáí ìåãÜëç ðñïóï÷Þ óôç äéá÷åßñéóç ôïõò, áëëÜ êõñßùò åðåéäÞ åßíáé åõáßóèçôá óôïí ôýðï ôùí äåäïìÝíùí. Ìå ôá íïýìåñá ôá ðÜíå ó÷åôéêÜ êáëÜ, áëëÜ ìå string values; Áí ðåñéÝ÷ïõí “ðåñßåñãïõò ÷áñáêôÞñåò” üðùò åéóáãùãéêÜ, ôåëåßåò, êüììáôá, áëëáãÝò ãñáììþí… Áóôá íá ðÜíå, Üìá åßíáé íá óïõ âãÜëïõí ôçí ðßóôç, íá ìÝíåé ôï âýóéíï!
Êáé óôï êÜôù êÜôù ãéáôß íá êÜèïìá åãþ êáé íá áã÷þíïìáé ãéá ôï ðùò ðñÝðåé íá ãßíåé ç áðïèÞêåõóç/áíáæÞôçóç/... áöïý üëá áõôÜ õðÜñ÷ïõí Ýôïéìá, êáé óßãïõñá áõôüò ðïõ ôá Ýöôéáîå ìÜëëïí ôá êÜíåé êáëýôåñá áðü åìÝíá;

Ïðüôå ìéá áðÜíôçóç ðïõ ìïõ öáßíåôáé ðñïöáíÞò, áöïý ãéá ìßá (1) åããñáöÞ ìðïñåßò íá Ý÷åéò ðïëëÝò (Í) åðéëïãÝò:
Áíôß íá ôá áðïèçêåýåéò óå Ýíá ðåäßï óáí string, áò êÜíåéò ôïí êüðï íá öôéÜîåéò Ýíáí áêüìá ðßíáêá óõíäåäåìÝíï ðñüò ôïí ðñþôï ìå ó÷Ýóç 1-Í. Åôóé ãëõôþíåéò áñêåôïýò åëÝã÷ïõò, äåí ðåñéïñßæåóáé óôïí ôýðï äåäïìÝíùí, äåí ðåñéïñßæåóáé ðñïò ôï ðåñéå÷üìåíï, äåí ðåñéïñßæåóáé ðñïò ôïí áñéèìü ôùí åðéëïãþí (ìðïñåß íá åßíáé 1 Þ 10 Þ 1000000), Ý÷åéò êþäéêá äïêéìáóìÝíï, êáé ôï êõñéüôåñï... áí äåí äïõëåýåé Ý÷åéò êÜðïéïí Üëëï õðïøÞöéï íá êáôçãïñÞóåéò!
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 05 Óåð 2008 15:38    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

ðáñÜèåóç:
Ìå ôá íïýìåñá ôá ðÜíå ó÷åôéêÜ êáëÜ, áëëÜ ìå string values;


ÁãáðçôÝ ìïõ Ößëå dva_dev. Ç êáôá÷þñçóç åíüò ListBox äåí èá êáôá÷ùñåß ôá äåäïìÝíá áõôïýóéá. ð÷ Ý÷åéò äåäïìÝíá Strings óôï ListBox . Áõôü ðïõ êáôá÷ùñåßò óôï ìïíáäéêü ðåäßï bound åßíáé ôï Index ôïõ ListBox. ÄçëáäÞ Ý÷ïõìå Ýíá ListBox ("ÊáöÝäåò","ÁíáøõêôéêÜ","ÐïôÜ").
Åäþ äåí êáôá÷ùñïýìå ôá Strings óôï String ðåäßï áëëÜ ôá Indexes äçëáäÞ 0,1,2 êïê.

ðáñÜèåóç:
Áí ðåñéÝ÷ïõí “ðåñßåñãïõò ÷áñáêôÞñåò” üðùò åéóáãùãéêÜ, ôåëåßåò, êüììáôá, áëëáãÝò ãñáììþí… ¶óôá íá ðÜíå, Üìá åßíáé íá óïõ âãÜëïõí ôçí ðßóôç, íá ìÝíåé ôï âýóéíï!
Êáé óôï êÜôù êÜôù ãéáôß íá êÜèïìá åãþ êáé íá áã÷þíïìáé ãéá ôï ðùò ðñÝðåé íá ãßíåé ç áðïèÞêåõóç/áíáæÞôçóç/... áöïý üëá áõôÜ õðÜñ÷ïõí Ýôïéìá, êáé óßãïõñá áõôüò ðïõ ôá Ýöôéáîå ìÜëëïí ôá êÜíåé êáëýôåñá áðü åìÝíá;


ÅðïìÝíùò åäþ äåí Ý÷ïõìå êáôá÷þñçóç ðåñéÝñãùí ÷áñáêôÞñùí áöïý êáôá÷ùñþ ôï Index.
¸ôóé ïðïéïäÞðïôå êáé íá åßíáé ôï Áëöáñçèìéôéêü ðïõ Ý÷åé ôï ListBox Þ áñéèìüò ìå ïðïéïäÞðïôå ôýðï åãþ êáôá÷ùñþ ôï Index ôïõ óôï ListBox. ÁðëÜ ôá äåäïìÝíá èá ðñÝðåé íá äéáâÜæïíôáé áðü Ýíáí ðßíáêá ðïõ èá Ý÷åé 2 óôÞëåò Ýíá ôï Ðåäßï ðïõ èá åìöáíßæåôáé óôï ListBox êáé ìßá óôÞëç ðïõ èá åßíáé ôï ID ôïõ Index.

ðáñÜèåóç:
Ïðüôå ìéá áðÜíôçóç ðïõ ìïõ öáßíåôáé ðñïöáíÞò, áöïý ãéá ìßá (1) åããñáöÞ ìðïñåßò íá Ý÷åéò ðïëëÝò (Í) åðéëïãÝò:
Áíôß íá ôá áðïèçêåýåéò óå Ýíá ðåäßï óáí string, áò êÜíåéò ôïí êüðï íá öôéÜîåéò Ýíáí áêüìá ðßíáêá óõíäåäåìÝíï ðñüò ôïí ðñþôï ìå ó÷Ýóç 1-Í. Åôóé ãëõôþíåéò áñêåôïýò åëÝã÷ïõò, äåí ðåñéïñßæåóáé óôïí ôýðï äåäïìÝíùí, äåí ðåñéïñßæåóáé ðñïò ôï ðåñéå÷üìåíï, äåí ðåñéïñßæåóáé ðñïò ôïí áñéèìü ôùí åðéëïãþí (ìðïñåß íá åßíáé 1 Þ 10 Þ 1000000), Ý÷åéò êþäéêá äïêéìáóìÝíï, êáé ôï êõñéüôåñï... áí äåí äïõëåýåé Ý÷åéò êÜðïéïí Üëëï õðïøÞöéï íá êáôçãïñÞóåéò!


Ç áðïèÞêåõóç ðïõ ìïõ áíáöÝñåéò óå 2 ðßíáêåò äçëáäÞ ôçí áíôéëáìâÜíïìáé ùò åîÞò. ¸íáò ðßíáêáò ðïõ èá Ý÷åé Ýíá ðåäßï ID ôçò åããñáöÞò êáé èá åßíáé óõíäåäåìÝíï ìå Ýíá ðßíáêá ìå 2 óôÞëåò, Ýíá ID êáé Ýíá ðïõ èá Ý÷åé ôéò åðéëïãÝò ðïõ åðéëÝ÷èçêáí áðü ôï ListBox.

Ôï ListBox èá åßíáé ïõóéáóôéêÜ bound óôïí ðßíáêá ôïí äåýôåñï ìå óýíäåóç üìùò ìå ôï ID ôïõ ðñþôïõ ðßíáêá þóôå íá åìöáíßæåé ôéò åðéëïãÝò ðïõ Ý÷ïõí ãßíåé óå êÜèå åããñáöÞ.

Ëïéðüí èá ôï åöáñìüóù óå Ýíá sample mdb êáé èá ôï áíåâÜóù óôï site ìïõ. ¼ìùò èá ðñÝðåé íá åëÝãîù ôçí ôá÷ýôçôá äéáâÜóìáôïò êáé åããñáöÞò êáé ìå ôïõò äýï ôñüðïõò þóôå íá äù ðïéïò åßíáé ï âÝëôéóôïò.

ÐëçñïöïñéáêÜ ç ëýóç ìå indexes êáé comma åßíáé ìßá ðñïôåéíüìåíç ëýóç åêôüò áðü ìÝíá êáé áðü Microsoft áðëÜ ìå äéáöïñåôéêÞ ðñïóÝããéóç óôçí õëïðïßçóç ôïõ êþäéêá êáé ÷ùñßò íá Ý÷ïõí óêåöôåß ôçí êáôá÷þñçóç ôïõ Index áëëÜ ôçí êÜèå áõôïý áðïèÞêåõóç ôçò ôéìÞò ôïõ ListBox.

ÖéëéêÜ

Kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
dva_dev
Script Master

ÌÝëïò áðü: 16 Óåð 2005
Ìçíýìáôá: 256+

View users profile
ÌÞíõìáÓôéò: 05 Óåð 2008 20:41    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Ôï áí åßíáé äýó÷ñçóôá ôá csv strings Þ ü÷é ìðïñåßò íá ôï äéáðéóôþóåéò üôáí ðñïóðáèÞóåéò íá áðïèçêåýóåéò ôéìÝò ðïõ äåí åßíáé áêÝñáéåò (ðñáãìáôéêïß Þ êåßìåíá). ÅìÝíá ðÜíôùò ìïõ öÜíçêáí, êáé åðéðëÝïí äåí õðÞñ÷å ëüãïò íá êÜôóù íá ðáéäåõôþ áöïý õðÞñ÷å Üëëç ëýóç åããõçìÝíç ðïõ äïõëåýåé ìå êÜèå ôýðï äåäïìÝíùí áíåîáñôÞôùò ðëÞèïõò. ÁõôÞ ôç ëýóç åßíáé ðïõ áíÝöåñá óáí åíáëáêôéêÞ óôï åñþôçìá "...õðÜñ÷åé êáíÝíáò Üëëïò ôñüðïò þóôå íá äéáôçñåß ôéò ðïëëáðëÝò åðéëïãÝò...".

Äåí èá ðù íá ìçí ÷ñçóéìïðïéåßò comma separated values (csv) strings áöïý Ý÷åéò âñåß êÜðïéïí âïëéêü ôñüðï íá ôá ÷ñçóéìïðïéåßò êáé êÜíïõí ôç äïõëåéÜ ðïõ èÝëåéò, áðëþò èá áíáöÝñù üôé åßíáé ëÜèïò íá áðïèçêåýåéò ôïí index óôï csv string. Áõôü ðïõ ðñÝðåé íá áðïèçêåõôåß åßíáé ç ôéìÞ ôçò bound óôÞëçò.

» Äçìéïýñãçóå ãéá ðáñÜäåéãìá Ýíáí ðßíáêá ìå üóåò ôéìÝò èÝëåéò (âÜëå ôïõëÜ÷éóôïí 3-4 åããñáöÝò).
» öôéÜîå ìéá öüñìá ìå Ýíá listbox ðïõ ôï query ôïõ íá öïñôþíåé ôéò åããñáöÝò áõôÝò ìå áýîïõóá ôáîéíüìçóç êáé íá áðïèçêåýåé (êáé íá öïñôþíåé áíôßóôïé÷á) ôïõò indexes áðü ôéò åðéëåãìÝíåò ôéìÝò óå Ýíá comma separated string.
» öôéÜîå ìßá áêñéâþò ßäéá ìå listbox ðïõ üìùò ôï query ôïõ íá öïñôþíåé ôéò åããñáöÝò ìå öèßíïõóá ôáîéíüìçóç.
» ÅðÝëåîå ôçí ðñþôç êáé ôçí äåýôåñç åããñáöÞ óôçí ðñþôç öüñìá, áðïèÞêåõóå ôï string ðïõ èá äçìéïõñãÞóåéò (öáíôÜæïìáé èá åßíáé ôï "0,1") êáé êëåßóå ôç öüñìá.
» ÎáíáÜíïéîå ôçí ðñþôç öüñìá (èá öïñôùèåß ôï "0,1") êáé åðéâåâáßùóå üôé ôï listbox äåß÷íåé ôéò ôéìÝò ðïõ åß÷åò åðéëÝîåé.
Ïëá êáëÜ ìÝ÷ñé åäþ.
» Áíïéîå ôþñá ôç äåýôåñç öüñìá (èá öïñôùèåß ôï "0,1") êáé åðéâåâáßùóå êáôÜ ðüóï ç äåýôåñç öüñìá ðïõ öïñôþíåé ôéò ßäéåò ôéìÝò ìå ôçí ðñþôç äåß÷íåé ôá ßäéá ðñÜãìáôá åðéëåãìÝíá.

Åíá Üëëï ðáñÜäåéãìá ãéáôß åßíáé ëÜèïò íá áðïèçêåýïíôáé ïé indexes âñßóêåôáé åäþ êáé áíôéãñÜöù:

ðáñÜèåóç:

Ç ïõóßá ôïõ post äåí åßíáé ôüóï ôï ðïõ áðïèçêåýïíôáé ïé åðéëïãÝò, áí åßíáé css, ðßíáêáò, blog object, Þ ïôéäÞðïôå Üëëï, áëëÜ ôï ôé åßíáé áõôü ðïõ èá áðïèçêåýóåéò.
ðáñÜèåóç:
Åóôù üôé Ý÷ïõìå ôïí ðßíáêá t1(id: text primary key, descr: text) ìå ôéìÝò:

"ÊÁ", "ÊÁÖÅÄÅÓ"
"ÁÍ", "ÁÍÁØÕÊÔÉÊÁ"
"×Õ", "×ÕÌÏÉ"

Ôá åìöáíßæïõìå óôï listbox, (öÝñíïõìå ôá äåäïìÝíá áðü ôç âÜóç ìáò ÷ùñßò íá ïñßóïõìå êÜðïéá ôáîéíüìçóç, ïðüôå ÷ñçóéìïðïéåßôáé ôï id ðïõ åßíáé primary key). Ôï áðïôÝëåóìá åßíáé êÜôé ôÝôïéï:

"ÁÍÁØÕÊÔÉÊÁ"
"ÊÁÖÅÄÅÓ"
"×ÕÌÏÉ"

ÅðéëÝãïõìå ôá äýï ôåëåõôáßá (ïðüôå èá äçìéïõñãçèåß ôï string “1,2″ ðïõ ðåñéÝ÷åé ôïõò indexes ôùí äýï åðéëïãþí) êáé ôï áðïèçêåýïõìå óå Ýíá csv string.
ÊëÝéíïõìå ôç öüñìá, ôçí îáíáíïßãïõìå, äéáâÜæïõìå ôï csv êáé åðéëÝãïíôáé ôá items ìå indexes 1 êáé 2 ïðüôå öáßíïíôáé óôï listbox åðéëåãìÝíá êáé ôá äýï! Ôï áðïôÝëåóìá åßíáé êÜôé ôÝôïéï:

"ÁÍÁØÕÊÔÉÊÁ"
"ÊÁÖÅÄÅÓ" (åðéëåãìÝíï)
"×ÕÌÏÉ" (åðéëåãìÝíï)

Êëåßíïõìå ôç öüñìá êáé ðñïóèÝôïõìå óôïí ðßíáêá t1 êáé ôéò åããñáöÝò:

"ÂÏ", "ÂÏÕÔÇÌÁÔÁ"
"ÍÅ", "ÍÅÑÁ"
"ÐÏ", "ÐÏÔÁ"
"ÖÁ", "ÖÁÃÇÔÁ"
"ÃË", "ÃËÕÊÁ"

Áíïßãïõìå ôç öüñìá, äéáâÜæïõìå ôï csv êáé åðéëÝãïíôáé ôá items ìå indexes 1 êáé 2, êáé âëÝðïõìå ôá åîÞò óôï listbox:

"ÁÍÁØÕÊÔÉÊÁ"
"ÂÏÕÔÇÌÁÔÁ" (åðéëåãìÝíï)
"ÃËÕÊÁ" (åðéëåãìÝíï)
"ÊÁÖÅÄÅÓ"
"ÍÅÑÁ"
"ÐÏÔÁ"
"ÖÁÃÇÔÁ"
"×ÕÌÏÉ"

Ùðá! ÊÜôé ðÞãå óôñáâÜ! Åß÷áìå åðéëÝîåé “ÊÁÖÅÄÅÓ” êáé “×ÕÌÏÉ” (êáé ðïõ íá ôï èõìüìáóôå åéäéêÜ ìåôÜ áðü êáéñü), áëëÜ åìöáíßæåôáé ÂÏÕÔÇÌÁÔÁ êáé ÃËÕÊÁ, ãéáôß åîáñôüìáóôå áðü ôç óåéñÜ åìöÜíéóçò (ç ïðïßá äåí ìáò åããõÜôáé êáíÝíáò üôé äåí èá áëëÜîåé) êáé ü÷é áðü ôéò ôéìÝò.
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 05 Óåð 2008 21:15    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Ößëå ìïõ dva_dev,

Óôï ðáñÜäåéãìá ðïõ áíáöÝñåéò ãéá íá ìçí ÷Üíïíôáé êáé íá åìöáíßæïíôáé ðÜíôá óùóôÜ ìåôÜ áðü ðñïóèÞêç íÝùí ôéìþí óôï Listbox ôá Indexes îå÷íÜò êÜôé âáóéêü ðïõ Ý÷ù áíáöÝñåé.

ÕðÜñ÷åé ðßíáêáò 2 óôçëþí. Ç ðñþôç óôÞëç åßíáé ôï ID ðïõ Ý÷åé ôéìÞ 0,1,2,3 êïê êáé üôáí ðñïóèÝôåéò íÝåò ôéìÝò Ý÷åé ôï 4 ìåôÜ ôï 5 êëð êáé äåí õðÜñ÷åé êÜðïéá ôáîéíüìçóç áëöáâçôéêÞ óôï ListBox ðáñÜ ìüíï ôáîéíüìçóç ìå ôï ID. ÊÜíåéò ìßá óõó÷Ýôéóç ôïõ Index ôïõ ListBox ìå ôï ID.

Áí èÝëåéò ôáîéíüìçóç ÁëöáâçôéêÞ ôüôå óáöþò êáé æçôÜò ü÷é Index áëëÜ áðïèÞêåõóç óôï ðåäßï ôçí ôéìÞ ID (Ðñþôç óôÞëç) Äéüôé åóý ìïõ ðáñáèÝôåéò ôï ðñüâëçìá ôçò áëëáãÞò óåéñÜò ôùí indexes ôï ïðïßï áí åðéóôñÝöåôáé ôï ID ôçò ðñþôçò óôÞëçò ôï ðñüâëçìá ëýíåôáé óå ðåñßðôùóç ôáîéíüìçóçò ôçò ðåñéãñáöÞò (ÊáöÝäåò, ÁíáøõêôéêÜ êëð).
Ìå åðéóôñïöÞ ôïõ ID ôçò ðñþôçò óôÞëçò Ý÷åéò ôçí äõíáôüôçôá ôçò Ìåôïíïìáóßáò ôçò ðåñéãñáöÞò ÷ùñßò áëëïßùóç ôùí áðïèçêåõìÝíùí äåäïìÝíùí.

Êáé ôÝëïò äåí ìïõ áíáöÝñåéò áí ç óýëëçøç ó÷åôéêÜ ìå ôéò ó÷Ýóåéò ôùí ðéíÜêùí áíôß áõôïý ôçò áðïèÞêåõóçò óå Ýíáí ðåäßï êáé ìüíï ìå äéá÷ùñéóôéêü ôï êüììá åßíáé áõôü ðïõ åííïïýóåò ;


ÖéëéêÜ

kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
kostello


ÌÝëïò áðü: 18 Ìáç 2007
Ìçíýìáôá: 13

View users profile
ÌÞíõìáÓôéò: 06 Óåð 2008 12:18    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Sas eyxaristw polu gia tis apantiseis sas.
Pisteuw me vothisate arketa.

Dystyxws den vrika akoma ton xrono(logw douleias) gia na doulepsw me tin vasi.
Tha koitaksw na efarmosw auta pou mou eipate asap.
Pisteuw oti i lusi tou filou dva_dev einai i pio eukoli kai pio katanoiti.
Allwste ithela akrivws auto pou mou leei.

H epilogi apo to listbox 1 kathe fora tha einai moni.
Den prokeite na epileksw 2 proionta pote. THelw na epilegw mia katigoria kai to allo listbox na mou vgazei ta proionta pou exei i katigoria auti.

Tha sas enimerwsw suntoma gia to apotelesma.

Euxaristv para poly
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 06 Óåð 2008 21:24    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

ÏìïëïãïõìÝíùò ï dva_dev áðÜíôçóå óôï åñþôçìá óïõ êáé ìðïñþ íá ðù üôé Þôáí óáöåßò.

Ìïõ Ýäùóå íá ðù ôçí áöïñìÞ íá ôï øÜîù êáëýôåñá êáé íá ðåéñáìáôéóôþ êáé ìå Üëëïõò ôñüðïõò.

Ç áëÞèåéá åßíáé üðùò êáé ï ßäéïò áíáöÝñåé óôï blog ôïõ üôé ïé åñùôÞóåéò ðïõ ãßíïíôáé óå áõôü ôï Forum Ý÷ïõí ùò óõíÝðåéá ôïí ðñïâëçìáôéóìü ìáò.

ÖéëéêÜ

Kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
kostello


ÌÝëïò áðü: 18 Ìáç 2007
Ìçíýìáôá: 13

View users profile
ÌÞíõìáÓôéò: 08 Óåð 2008 13:13    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Eyxaristw para polu gia tin voitheia.

Elusa to provlima mou opws mou eipate.

Twra thelw , afou epileksw ena proion apo to deutero listbox, na exw ena koumpi pou na kane add kai delete proionta apo ton antistoixo pinaka.

Sunexizw tin vasi mou...
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 08 Óåð 2008 14:46    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Íá ñùôÞóù ôá ßóùò áõôïíüçôá ãéá íá ìçí óå ìðåñäÝøù.

Ëïéðüí ôï Êïõìðß èá äéáãñÜöåé ôï åðéëåãìÝíï óôïé÷åßï ôïõ äåýôåñïõ ListBox ð÷.

ÊáöÝäåò
ÁíáøõêôéêÜ
ÖáãçôÜ

ÖùôéóìÝíï/åðéëåãìÝíï åßíáé ð÷ ôï ÁíáøõêôéêÜ êáé ôï êïõìðß íá ôï äéáãñÜöåé óùóôÜ ;
Ãéá íá ðñïóèÝóåé ôï êïõìðß êÜðïéá ôéìÞ ð÷ ÐïôÜ êÜðïõ ðñÝðåé íá îÝñåé ôï ðñüãñáììá ðéá ôéìÞ èÝëåéò íá åéóá÷èåß óå áõôü óùóôÜ ;

Ëïéðüí ðñïôåßíù íá ôñïðïðïéÞóù ôï ðáñÜäåéãìá ôïõ Dva_dev Þ ìïõ óôÝëíåéò ôçí âÜóç óïõ ãéá íá ìçí êÜíåéò Copy-Paste áðü ôï Demo êáé ðáôþíôáò ìå äåîß êëéê ôïõ ðïíôéêéïý íá Ý÷ïõìå 2 åðéëïãÝò ðïõ èá åßíáé ÄéáãñáöÞ êáé ÐñïóèÞêç.

¼ôáí ðáôÜò äéáãñáöÞ èá åìöáíßæåé êáé ìÞíõìá åðéâåâáßùóçò êáé üôáí ðáôÜò ðñïóèÞêç èá åìöáíßæåôáé ÐáñÜèõñï (÷ñçóéìïðïéþíôáò ôáêôéêÞ InputBox, Þ íÝáò öüñìáò Þ Unbound txtBox óôçí ßäéá öüñìá) óôï ïðïßï èá ðñÝðåé íá åéóÜãåéò ôçí íÝá ôéìÞ ôïõ ðñïúüíôïò.

Ðåò ìïõ áí Ýãéíá êáô'áñ÷Üò êáôáíïçôüò êáé êáôÜ äåýôåñïí áí åßíáé íá ôï äïõëÝøù óôï Demo.

ÖéëéêÜ

Kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 08 Óåð 2008 15:33    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

ÂÜæù ôï SampleOk üðïõ åßíáé âáóéóìÝíï óôï Demo ôïõ DVA_Den

ÕðÜñ÷åé êþäéêáò ðïõ åßíáé óôá Modules êáé èá ðñÝðåé íá Ðáò óôï ShortCutMenus Toolbars êáé íá áëëÜîåéò ôçí êëÞóç ôùí äýï ÓõíáñôÞóåùí ãéá íá äéáâÜæåé áðü ôïõò äéêïýò óïõ ðßíáêåò. Óôïí êþäéêá èá ðñÝðåé íá áëëÜîåéò ôï Forms!Form1!List4 óôï äéêü óïõ ôï üíïìá öüñìáò êáé üíïìá ðñþôïõ Listbox .

Må äåîß êëéê óôï äåýôåñï ListBox Ý÷åéò ôéò åðéëïãÝò ðïõ èÝëåéò (ÄéáãñáöÞ - ÅéóáãùãÞ).



Ãéá ïôéäÞðïôå åäþ åßìáóôå ðÜëé

ÖéëéêÜ

Kon73



sampleok.rar
 Description:
Ïê

Download
 Filename:  sampleok.rar
 Filesize:  22.78 KB
 Downloaded:  386 Time(s)


_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
kostello


ÌÝëïò áðü: 18 Ìáç 2007
Ìçíýìáôá: 13

View users profile
ÌÞíõìáÓôéò: 08 Óåð 2008 16:50    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Se euxaristw polu gia ton xrono sou.

Katalaves polu swsta.
To koumpi tha kanei delete to epilegmeno proion apo to listbox2.
Oso gia tin prosthiki neou proiontos auto to exw idi kanei.
Twra douleuw gia to delete.
Einai polu aplo alla afou valw to sql query mou leei oti 0 rows will be deleted. are you sure?

Exw to eksis:
DoCmd.RunSQL ("DELETE FROM "table name" WHERE "value to be deleted" = '" &listbox & "'")

Exw episis dokimasei
DoCmd.RunSQL ("DELETE FROM "table name" WHERE "value to be deleted" = listbox.Value)

Den mou dinei kanena error alla den svinei to row apo ton pinaka.

Polu kali i idea sou me to deksi click. Tha koitaksw to sample sou kai tha apofasisw. Episis isws vrw kai lusi sto delete query mou,

Na eisai kala
kon73
Script Master

ÌÝëïò áðü: 13 Áðñ 2008
ÂïçèÞìáôá: 3
Ìçíýìáôá: 223


View users profile Visit posters website
ÌÞíõìáÓôéò: 08 Óåð 2008 17:27    ÈÝìá: ÁðÜíôçóç ìå ðáñÜèåóç  Mark this post and the followings unread

Ößëå Kostello,

Ôï SQL string óïõ Ý÷åé ôï êåßìåíï

DoCmd.RunSQL ("DELETE FROM "table name" WHERE "value to be deleted" = listbox.Value)

Íá õðïèÝóù üôé ôï table name êáé ôï Value to be Deleted åßíáé ôï üíïìá ôïõ ðßíáêá êáé ôï üíïìá ôïõ ðåäßïõ ðïõ öéëôñÜñåé ãéá íá äéáãñÜøåé ôçí åããñáöÞ êáé öõóéêÜ äåí èá ìåßíïõí Ýôóé óôï SQLstring óïõ.

Ëïéðüí Áò ðÜñù 2 ðáñáäåßãìáôá (¸íá ìå ôýðï ðåäßïõ ðïõ öéëôñÜñåé íá åßíáé áñéèìüò, êáé Ýíá êåßìåíï)

Ðßíáêáò : Items2
Ðåäßï : Items2ID

O ðßíáêáò items2 åßíáé ï ðßíáêáò ðïõ Ý÷åé ôéò åããñáöÝò ôïõ ListBox2 êáé ôï ðåäßïõ áõôïý ôïõ ðßíáêá åßíáé Items2ID ðïõ èá åßíáé ôï êëåéäß ðåäßï ãéá ôïí öéëôñÜñéóìá óïõ.

Ôï Item2ID áò õðïèÝóïõìå üôé åßíáé êåßìåíï

DoCmd.RunSQL ("DELETE items2.* FROM items2 WHERE items2ID ='"& listbox.Value &"'" )

ôï ôåëåõôáßï åßíáé " ' " ÷ùñßò êåíÜ âÝâáéá. ÈÝëåé äçëáäÞ ôï êåßìåíï íá åßíáé ìÝóá óå ´
To Listbox.Value öõóéêÜ åðéóôñÝöåé êåßìåíï

Ãéá áñéèìü

Ôï Item2ID áò õðïèÝóïõìå üôé åßíáé êåßìåíï

DoCmd.RunSQL ("DELETE items2.* FROM items2 WHERE items2ID ="& listbox.Value )

To Listbox.Value öõóéêÜ åðéóôñÝöåé áñéèìü

Ãéá çìåñïìçíßá áí äçëáäÞ Ý÷åéò çìåñïìçíßá óôï ðåäßï öéëôñáñßóìáôïò âÜæåéò

"#" & Format(Listbox.value,"mm/dd/yy") &"#"

¼ðïõ ôïõ äßíåéò Format áìåñéêÜíéêï êáèüôé Ýôóé äïõëåýåé óùóôÜ ôï SQLString

ÁõôÜ

ÖéëéêÜ kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
ÅìöÜíéóç ÌçíõìÜôùí:   
ÅéóáãùãÞ íÝïõ ÈÝìáôïò   ÁðÜíôçóç óôï ÈÝìá Óåëßäá 1 áðü 1 [15 Ìçíýìáôá] Mark the topic unread :: Ðñïçãïýìåíï èÝìá :: Åðüìåíï èÝìá
 Forum index » Äçìéïõñãßá Web Sites, Ãñáöéêþí & Ðñïãñáììáôéóìüò » SQL êáé SQL Servers (RDBMS) » MS Access


Ó÷åôéêÜ èÝìáôá
 ÈÝìáôá   Áð/óåéò   ÁðïóôïëÝáò   Ôåëåõôáßï ìÞíõìá 
List name óå query 1 kirillos1 29 Áõã 2011 13:36
georiege ÅìöÜíéóç ôåëåõôáßïõ ìçíýìáôïò
 
Ôþñá åßíáé 23 Ìáç 2013 23:08 | All times are UTC + 3 (DST in action)


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Ãéá Üìåóç åðéêïéíùíßá ìå ôïí äéá÷åéñéóôÞ ôïõ freestuff.gr óôï email: freestuff.gr(ðáðÜêé)gmail.com


êáêü ìÜôé
Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos