Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Bug d'Access ou de moi !?!

Bug d'Access ou de moi !?!

2 réponses
Avatar
Ticker
Bonjour à tous

Je ne sais pas s'il s'agit d'un bug mais lorsque je veux afficher une
requête dans une listbox, tout reste blanc mais je peux me déplacer dans la
listbox.
-Je choisi une option dans un groupe
en fonction du choix la requete change ce qui est afficher dans la listebox.
Voici mon code:

Private Sub Cadre_BeforeUpdate(Cancel As Integer)

Select Case Cadre.Value
Case Is = 1
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Francais FROM Table_Globale;"
Case Is = 2
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Chinois FROM Table_Globale;"
Case Is = 3
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Anglais FROM Table_Globale;"
End Select

End Sub

Dites moi que c'est moi qui est fait une erreur. J'ai déjà eu des problèmes
d'affichages avec les listbox mais sur Excel, c'est pour ça que j'ai tenté
sur Access.
Merci à vous.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

"Ticker"
Je ne sais pas s'il s'agit d'un bug mais...


en général, le bug est entre la chaise et l'écran ;-)))



lorsque je veux afficher une
requête dans une listbox, tout reste blanc mais je peux me déplacer dans la
listbox.


regarde dans les propriétés, le nombre de colonnes et leurs dimmensions...



-Je choisi une option dans un groupe
en fonction du choix la requete change ce qui est afficher dans la listebox.
Voici mon code:

Private Sub Cadre_BeforeUpdate(Cancel As Integer)

Select Case Cadre.Value
Case Is = 1
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Francais FROM Table_Globale;"
Case Is = 2


Case 2
...
Case 3
...

et si Francais, Chinois et Anglais sont bien le nom des champs,

"Select Francais From Table_Globale;"

doit suffire...



traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Chinois FROM Table_Globale;"
Case Is = 3
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Anglais FROM Table_Globale;"
End Select

End Sub




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Ticker
Merci de m'avoir mis sur la voie, le problème concerne l'instrustion SELECT,
il fallait taper:

Liste71.RowSource = "SELECT Table_Globale.N°, Table_Globale.Chinois FROM
Table_Globale;"

Il fallait inclure le champs qui sert de clé + Le champs que l'on veut
afficher. Et ça fonctionne.

Effectivement, le bug est entre la chaise et l'écran
(Quoique, pour Excel, il y avait vraiment un bug puisque j'ai essayer mon
code sur plusieurs PCs, des fois ça fonctionne et des fois non).

Merci encore de m'avoir aiguiller.
A bientôt



"3stone" a écrit dans le message de news:
OlgkBel$
Salut,

"Ticker"
Je ne sais pas s'il s'agit d'un bug mais...


en général, le bug est entre la chaise et l'écran ;-)))



lorsque je veux afficher une
requête dans une listbox, tout reste blanc mais je peux me déplacer dans
la


listbox.


regarde dans les propriétés, le nombre de colonnes et leurs dimmensions...



-Je choisi une option dans un groupe
en fonction du choix la requete change ce qui est afficher dans la
listebox.


Voici mon code:

Private Sub Cadre_BeforeUpdate(Cancel As Integer)

Select Case Cadre.Value
Case Is = 1
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Francais FROM Table_Globale;"
Case Is = 2


Case 2
...
Case 3
...

et si Francais, Chinois et Anglais sont bien le nom des champs,

"Select Francais From Table_Globale;"

doit suffire...



traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Chinois FROM Table_Globale;"
Case Is = 3
traducteur.Form_Traducteur.Liste.RowSourceType = "Table/Requête"
Liste.RowSource = "SELECT Table_Globale.Anglais FROM Table_Globale;"
End Select

End Sub




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------