Discussion :

[Daniel MOREAU]

Bonjour,

Je souhaite filtré des articles à partir de leur désignation.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable13_DblClick(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm Article Aperçu Tarif Achat"
        If IsNull(Me![Modifiable13]) Then
        MsgBox "Veuillez faire une sélection."
        Exit Sub
        End If
    DoCmd.OpenForm stDocName, , stLinkCriteria, "[LIBELLE]='" & Me![Modifiable13] & "'"
End Sub

Pour exemple :
LIBELLE = "EXA RECHARGE 148"
Liste modifiable : "EXA"

Je souhaite donc avoir la liste des articles dont le libellé commence par EXA. Comment écrire "Rechercher tous les libellés qui commence par EXA :

Merci pour votre aide.

Daniel

[b_steph_2]

il faut faire une requete en sql comme ceci

Code :

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

 select nomdu( ou des champ(s)FROM nomdela( ou les )table(s) WHERE nomduchamp LIKE "EXA%";

Voilà

[Petogaz]

salut,

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable13_DblClick(Cancel As Integer) 
    Dim stDocName As String 
    Dim stLinkCriteria As String 
 
    stDocName = "Frm Article Aperçu Tarif Achat" 
        If IsNull(Me![Modifiable13]) Then 
        MsgBox "Veuillez faire une sélection." 
        Exit Sub 
        End If 
    DoCmd.OpenForm stDocName, , stLinkCriteria, "[LIBELLE] Like '" & Me![Modifiable13] & "*'" 
End Sub