cs_ANOUCHKA8686
Messages postés29Date d'inscriptionjeudi 10 avril 2008StatutMembreDernière intervention25 mai 2008
-
4 mai 2008 à 10:58
cs_ANOUCHKA8686
Messages postés29Date d'inscriptionjeudi 10 avril 2008StatutMembreDernière intervention25 mai 2008
-
13 mai 2008 à 22:21
BONJOUR
frnchement j ai essaye plain de code mais sa marche pas, alors si quelqu'un peut m aide
voila je cherche l equivalent de se code mais en moin long que sa (ca marche mais c pas pratique )
Private Sub DC_ZI_Click(Area As Integer)
SO = "La Soukra"
BA = "Ben Arous"
FO = "Fouchana"
HC = "Hammam Chatt"
MG = "Megrine"
MO = "Mourouj"
RA = "Rades"
DH = "Douar Hicher"
MR = "Mornaguia"
GO = "La Goulette"
Select Case DC_DELEG
Case SO
DC_ZI.Refresh
DC_ZI.RowMember = "zone_sokra" 'zone_sokra est une requette de la table general qui apartien a la ville de sokra
DC_ZI.ListField = "nom_zone"
Case BA
DC_ZI.Refresh
DC_ZI.RowMember = "zone_benarous"
DC_ZI.ListField = "nom_zone"
Case FO
DC_ZI.Refresh
DC_ZI.RowMember = "zone_fouchana"
DC_ZI.ListField = "nom_zone"
Case HC
DC_ZI.Refresh
DC_ZI.RowMember = "zone_hamamchat"
DC_ZI.ListField = "nom_zone"
Case MG
DC_ZI.Refresh
DC_ZI.RowMember = "zone_megrine"
DC_ZI.ListField = "nom_zone"
Case MO
DC_ZI.Refresh
DC_ZI.RowMember = "zone_mourouj"
DC_ZI.ListField = "nom_zone"
Case RA
DC_ZI.Refresh
DC_ZI.RowMember = "zone_rades"
DC_ZI.ListField = "nom_zone"
Case DH
DC_ZI.Refresh
DC_ZI.RowMember = "zone_douarhicher"
DC_ZI.ListField = "nom_zone"
Case MR
DC_ZI.Refresh
DC_ZI.RowMember = "zone_mornaguia"
DC_ZI.ListField = "nom_zone"
Case GO
DC_ZI.Refresh
DC_ZI.RowMember = "zone_goulette"
DC_ZI.ListField = "nom_zone"
End Select