Bonjour,
Je souhaite afficher dans une zone de liste, les enregistrements
correspondants au code de l'article saisi dans une zone de texte, dans mon
exemple :
la zone de texte s'appelle : CodeArticle
la zone de liste s'appelle ListeArticles
MsgBox me!code Article, ne contient pas le texte saisi ? Mais je le vois si
je quitte la zone de texte ?
voilà mon code en VBA :
Private Sub CodeArticle_Click()
Dim Tmp As String
If Not IsNull(Me!CodeArticle) Then
If Me!CodeArticle <> "" Then
Tmp = "SELECT Designation, Unite AS Unité, NumeroArticle,
CodeArticle"
Tmp = Tmp & " FROM Articles"
Tmp = Tmp & " WHERE CodeArticle = "'" & Me!CodeArticle & "'*"
Tmp = Tmp & " ORDER BY Designation"
Me!ListeArticles.RowSource = Tmp
End If
End If
End Sub
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
3stone
Salut,
"tf85" | Je souhaite afficher dans une zone de liste, les enregistrements | correspondants au code de l'article saisi dans une zone de texte, dans mon | exemple : | la zone de texte s'appelle : CodeArticle | la zone de liste s'appelle ListeArticles | | MsgBox me!code Article, ne contient pas le texte saisi ? Mais je le vois si | je quitte la zone de texte ?
j'en déduis que tu veux connaitre le contenu pendant la saisie ? dans ce cas, regarde la propriété ".Text" (et non la propriété par défaut ".Value")
| voilà mon code en VBA : | Private Sub CodeArticle_Click() | Dim Tmp As String | If Not IsNull(Me!CodeArticle) Then | If Me!CodeArticle <> "" Then | Tmp = "SELECT Designation, Unite AS Unité, NumeroArticle, | CodeArticle" | Tmp = Tmp & " FROM Articles" | Tmp = Tmp & " WHERE CodeArticle = "'" & Me!CodeArticle & "'*" | Tmp = Tmp & " ORDER BY Designation" | Me!ListeArticles.RowSource = Tmp | End If | End If | End Sub
Dans l'objet, tu parles de "sur changement" ? ici tu "click" ?
CodeArticle est texte ? si non, enlève les (') quotes.
"tf85"
| Je souhaite afficher dans une zone de liste, les enregistrements
| correspondants au code de l'article saisi dans une zone de texte, dans mon
| exemple :
| la zone de texte s'appelle : CodeArticle
| la zone de liste s'appelle ListeArticles
|
| MsgBox me!code Article, ne contient pas le texte saisi ? Mais je le vois si
| je quitte la zone de texte ?
j'en déduis que tu veux connaitre le contenu pendant la saisie ?
dans ce cas, regarde la propriété ".Text"
(et non la propriété par défaut ".Value")
| voilà mon code en VBA :
| Private Sub CodeArticle_Click()
| Dim Tmp As String
| If Not IsNull(Me!CodeArticle) Then
| If Me!CodeArticle <> "" Then
| Tmp = "SELECT Designation, Unite AS Unité, NumeroArticle,
| CodeArticle"
| Tmp = Tmp & " FROM Articles"
| Tmp = Tmp & " WHERE CodeArticle = "'" & Me!CodeArticle & "'*"
| Tmp = Tmp & " ORDER BY Designation"
| Me!ListeArticles.RowSource = Tmp
| End If
| End If
| End Sub
Dans l'objet, tu parles de "sur changement" ? ici tu "click" ?
CodeArticle est texte ? si non, enlève les (') quotes.
"tf85" | Je souhaite afficher dans une zone de liste, les enregistrements | correspondants au code de l'article saisi dans une zone de texte, dans mon | exemple : | la zone de texte s'appelle : CodeArticle | la zone de liste s'appelle ListeArticles | | MsgBox me!code Article, ne contient pas le texte saisi ? Mais je le vois si | je quitte la zone de texte ?
j'en déduis que tu veux connaitre le contenu pendant la saisie ? dans ce cas, regarde la propriété ".Text" (et non la propriété par défaut ".Value")
| voilà mon code en VBA : | Private Sub CodeArticle_Click() | Dim Tmp As String | If Not IsNull(Me!CodeArticle) Then | If Me!CodeArticle <> "" Then | Tmp = "SELECT Designation, Unite AS Unité, NumeroArticle, | CodeArticle" | Tmp = Tmp & " FROM Articles" | Tmp = Tmp & " WHERE CodeArticle = "'" & Me!CodeArticle & "'*" | Tmp = Tmp & " ORDER BY Designation" | Me!ListeArticles.RowSource = Tmp | End If | End If | End Sub
Dans l'objet, tu parles de "sur changement" ? ici tu "click" ?
CodeArticle est texte ? si non, enlève les (') quotes.
