[Formulaire] récupération d'un selection pour ouverture d'un formulaire

Bonjour,

Sur un formulaire, j'ai une liste de résultats, et je voudrais utiliser une colonne définie (la 3ème) dans la ligne selectionnée pour ouvrir un autre formulaire en fonction de cette valeur. Voici le code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub LiaisonFiliere_Click()   Dim intcolumn As Integer   intcolumn = lst_resultat.Column(2) DoCmd.OpenForm "Filiere", acNormal, , "[OBJECTID] = intcolumn"   End Sub

---

Quand je clique sur le bouton qui execute ce code, access ne reconnait pas intcolumn, et me demande de le taper.

Etant novice en programmation, je ne vois pas du tout où est l'erreur.
Pourtant, dans l'éditeur VBA, lorsque je reste pointé sur intcolumn = lst_resultat.Column(2), il m'indique bien la bonne valeur de la colonne selectionnée!

Code:

---

DoCmd.OpenForm "Filiere", acNormal, , "[OBJECTID] = " & intcolumn

---

Citation:

---

Envoyé par djudju2000

Bonjour,

Sur un formulaire, j'ai une liste de résultats, et je voudrais utiliser une colonne définie (la 3ème) dans la ligne selectionnée pour ouvrir un autre formulaire en fonction de cette valeur. Voici le code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub LiaisonFiliere_Click()   Dim intcolumn As Integer   intcolumn = lst_resultat.Column(2) DoCmd.OpenForm "Filiere", acNormal, , "[OBJECTID] = " & intcolumn   End Sub

---

Quand je clique sur le bouton qui execute ce code, access ne reconnait pas intcolumn, et me demande de le taper.

Etant novice en programmation, je ne vois pas du tout où est l'erreur.
Pourtant, dans l'éditeur VBA, lorsque je reste pointé sur intcolumn = lst_resultat.Column(2), il m'indique bien la bonne valeur de la colonne selectionnée!

---

Il suffisait de déplacer juste le " et d'ajouter un &

Code:

---

1 2 3 4 5 6 7 8

Private Sub LiaisonFiliere_Click()   Dim intcolumn As Integer   intcolumn = lst_resultat.Column(2) DoCmd.OpenForm "Filiere", acNormal, , "[OBJECTID] = " & intcolumn   End Sub

---

Voila

Ca marche!
Merci beaucoup!
Je les avais pourtant mis dans tous les sens ces guillemets mais j'avais pas pensé à ça.