Discussion :

[Tevsox]

Bonjour à tous,

Je me permet d'à nouveau venir chercher conseil...

J'ai un formulaire dont la liste déroulante principale (Numéro_CmbBox) permet de sélectionner et d'afficher tout le reste des données.

Sur MAJ, une requête va chercher les données concernant la plante (dont l'Id de l'espèce). Une 2nde requête va chercher les données concernant l'espèce (en fonction de l'Id récupéré avant).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Numéro_CmbBox_AfterUpdate()
    Dim base As DAO.Database, rs_plante As DAO.Recordset, rs_espèce As DAO.Recordset
    Dim SQL As String
    
    Set base = CurrentDb()
    SQL = "Select * FROM Plante WHERE IdPlante=" + Me.Numéro_CmbBox.Column(0) + ";"
    Set rs_plante = base.OpenRecordset(SQL)
    
    SQL = "Select Espèce.IdEspèce, Genre.IdFamille FROM Espèce, Genre WHERE Espèce.IdEspèce =" + rs_plante.Fields("IdEspèce") + " AND Espèce.IdGenre = Genre.IdGenre;"
    Set rs_espèce = base.OpenRecordset(SQL)

'Utilisation des données    

    rs_plante.Close
    rs_espèce.Close
    base.Close
End Sub

La ligne en rouge provoque une erreur "Incompatibilité de type".
rs_plante.Fields("IdEspèce") n'est pas null.
IdEspèce est un Numéro dans ma table Plante et un NuméroAuto dans ma table Espèce.

La requête précédente, avec le "column" marche parfaitement.

Où est l'erreur ?

Merci d'avance de votre aide !

[NguyenRD]

Salut,

C'est bizarre ton " From Espece, Genre..."
Si Espece et Genre sont des tables ton code est mauvais

[Tevsox]

Salut,

Ligne rouge:

Au lieu de + essaie de mettre &

Ca marche ! C'était aussi simple que ça, mais je ne cherchais pas du tout là !
Merci merci NguyenRD !