Discussion :

[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 :

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

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!

[Junior_jef]

Code :

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

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

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 :

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

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!

[DMboup]

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

Code :

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

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

[djudju2000]

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