AIDE MOI A OPTIMISE LE CODE

Résolu
cs_ANOUCHKA8686 Messages postés 29 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 25 mai 2008 - 4 mai 2008 à 10:58
cs_ANOUCHKA8686 Messages postés 29 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 25 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


End Sub

merci

22 réponses

cs_ANOUCHKA8686 Messages postés 29 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 25 mai 2008
13 mai 2008 à 19:36
plutot le  message : les argument sont de type incorecte
0
cs_ANOUCHKA8686 Messages postés 29 Date d'inscription jeudi 10 avril 2008 Statut Membre Dernière intervention 25 mai 2008
13 mai 2008 à 22:21
alors persone pour m'aide ??
0
Rejoignez-nous