Pb vba
nadege
-
Mouse -
Mouse -
Bonjour,
J'ai un gros problème de requête vba.
En fait je l'ai testé dans access même et elle fonctionne mais dans mon code vba ça ne fonctionne pas
Voici la requête :
sReq1 = sReq1 & " SELECT EVFDBA_V_EVF.VARIETY_CODE"
sReq1 = sReq1 & " FROM EVFDBA_V_EVF"
sReq1 = sReq1 & " WHERE (((EVFDBA_V_EVF.BRAND_CODE)='DK0')"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.CROP_CODE)='SC')"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.CAMPAIGN_CODE) =142)"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.RC_CODE) = '5I6'));"
!lstVariete.RowSource = sReq1
!lstVariete.Requery
!lstVariete.Value = ""
Quel peut-être le problème, svp??
Merci par avance
J'ai un gros problème de requête vba.
En fait je l'ai testé dans access même et elle fonctionne mais dans mon code vba ça ne fonctionne pas
Voici la requête :
sReq1 = sReq1 & " SELECT EVFDBA_V_EVF.VARIETY_CODE"
sReq1 = sReq1 & " FROM EVFDBA_V_EVF"
sReq1 = sReq1 & " WHERE (((EVFDBA_V_EVF.BRAND_CODE)='DK0')"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.CROP_CODE)='SC')"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.CAMPAIGN_CODE) =142)"
sReq1 = sReq1 & " AND ((EVFDBA_V_EVF.RC_CODE) = '5I6'));"
!lstVariete.RowSource = sReq1
!lstVariete.Requery
!lstVariete.Value = ""
Quel peut-être le problème, svp??
Merci par avance
2 réponses
As tu essayé sans utiliser la propriété rowsource, mais en renseignant dierectement .value avec le resultat de la requête ?
En fait, la syntaxe vba est bonne. Il s'agit des propriétés de format de la zone de liste. Il se peut que la propriété "Largeurs colonnes" de l'onglet "format" definit une longueur nul ( 0 cm). Access fait souvent permet cela afine que la valeur de la zone de liste soit un nombre (correspondant a l'ID) alors que que ce que l'on voit est du texte.
