[access] affiche un champ en fct° d'un autre Résolu

Question

Bonjour,
je fais un fichier sous access :
j'ai un formulaire "animaux" dans lequel j'ai un champ "Espèce" et un champ "Race", ces deux champs se sélectionne par une liste. J'ai donc une table "espèces" avec comme champ "Espèce" et une table "races" avec comme champs "Race" et "Espèce"(liste de la table "espèces").
Je souhaiterais que dans mon formulaire "animaux", lorsque j'ai sélectionner l'espèce seul s'affiche dans ma liste des races, les races correspondant à l'espèce.
Quelqu'un aurait-il une solution assez simple ?????
Merci d'avance

phil232 · Answer

MyRaceCombo.DataSource = "SELECT * FROM Races WHERE Espece = '" & MyEspeceCombo & "'"

Ceci va dans MyEspeceCombo_OnClick

SAYLA · Answer

Bonjour phil232,
exusez pour le retard,
je suis novice, il s'agit bien d'un code sous VB ?
Où je trouve MyEspeceCombo_OnClick?
J'ai déjà fait des codes sous VB mais aucun de ce genre ?

phil232 · Answer

Où je trouve MyEspeceCombo_OnClick? --> champ "Espèce
MyRaceCombo --> champ "Race"

sub MyEspeceCombo_OnClick

MyRaceCombo.DataSource = "SELECT * FROM Races WHERE Espece = '" & MyEspeceCombo & "'" 

end sub

phil232 · Answer

pfff

dans les propiétés de la combo t'as bien cliqué sur OnClick et puis choisi procédure événementielle ?

phil232 · Answer

diable, comment travaille-tu ? avec des textbox ? ça veut dire que t'as decouvert Access ce matin ? des choses comme ça sont mis (normalement) dans une combo (liste deroulante, si tu préfères). ça évite les faute de frappe p.ex.

phil232 · Answer

1. évites d'utiliser des caractères "étranges" dans les noms (accents, cedille, etc.)
2. bien que tu va probablement pas développer une app international il est toutefois recommendé d'utiliser les termes en anglais. cela facilite la recherche sur google (ou tu trouve 50 à 100 plus d'info en anglais qu'en français)
3. normalement on préfixe les control pour indiquer de quoi il s'agit (txt, cbo, lst, ...)
4. MyEspecesCombo s'appelle comme ça pour te dire c'est TA COMBO ET JE NE CONNAIS PAS SON NOM
5. bref MyEspecesCombo = cboSpecies (ta "Espèces"), mais si tu insiste restes avec "Espèces", c'est ta faute/pb
6. Ca me fait mal au coeur mais bon pour toi ça donne :

Race.DataSource = "SELECT * FROM Races WHERE Espece = '" & Espèces & "'" 

c'est mieux comme ça ?

phil232 · Answer

montres un peu le code du OnClick stp

phil232 · Answer

ah, je corois que j'ai oublié qq chose

Sub Espèce_OnClick() 

Race.DataSource = "SELECT * FROM races WHERE Espèce = '" & espèces & "'" 
race.requery

End Sub

phil232 · Answer

tu peut faire F9 (insert breakpoint) sur la ligne race.requery . juste pour voir s'il passe par là

phil232 · Answer

est tu toujours avec une textbox ou t'as déjà créé une liste deroulante ?

pour une combo (liste déroulante [ça m'est trop longue, je vais continuer à lappeller combo) tu a les propriétés

merde, je t'es données la mauvaise prop

RowSourceType = Table/Query ' à configurer dans les props
RowSource = "SELECT * FROM races WHERE Espèce = '" & espèces & "'" ' à utiliser dans le code


http://office.microsoft.com/en-us/access/HP051884911033.aspx

SAYLA · Answer

Ok, merci pour le lien du site internet en fait c'était encore plus simple que tout ça :
J'ai un champ "Espèce" qui est une zone de liste déroulante dans mon formulaire "animaux", j'ai un champ "Race" qui est une zone de liste déroulante dans mon formulaire "animaux". Le champ "Race" provient de la table "races" qui comprend deux champs "Race" et "Espèce" ("Espèce" est une zone de liste déroulante qui provient d'une table "espèces" contenant un seul champ "Espèce").
Lors de la crétaion de la zone de liste "Race" dans les propriétés données,contenu : ouvrir le générateur d'expression afficher la table "races" afficher "Race" et afficher "Espèce" sous "Espèce" dans les critaires inscrire "[Forms]![animaux]![Espèce], puis valider. Puis dans le champ "Espèce" inscrire un code VB sur Après Mise à jour :
Private Sub Espèce_AfterUpdate()
  Me.Race = Null
  Me.Race.Requery
  Me.Race = Me.Race.ItemData(0)
End Sub
Et voilà, ça marche.
Encore merci pour votre aide, bonne journée et bon week-end

[access] affiche un champ en fct° d'un autre

11 réponses

Discussions similaires

Newsletters