Discussion :

[Plantakwatix]

Bonjour,

J'ai un petit problème sur cette partie de code mais je ne comprend pas d'où il vient, je suis débutant en VBA donc un peu de mal.

Code :

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

1
2
3
4
5
6
7
8
Private Sub List29_Click()
Me.List5.SetFocus
If (Me.List29.Value = "Complete") Then
    Me.List5.Value = DoCmd.RunSQL("KKS_SEARCH_Comp")
ElseIf (Me.List29.Value = "Non Complete") Then
    Me.List5.Value = DoCmd.RunSQL("KKS_SEARCH_NComp")
End If
End Sub

Comme dit dans le titre l'erreur me dit 'Fonction ou variable attendue'

Pouvez-vous m'aider svp ?

Thibaut

[ClaudeLELOUP]

Bonjour,

cette syntaxe est incorrecte :

Code :

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

Me.List5.Value = DoCmd.RunSQL("KKS_SEARCH_Comp")

Inspire-toi de ceci pour récupérer la valeur de ta requête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DAOOpenRecordset()
    Dim rst As DAO.Recordset
    Dim sSQL As String, Résultat As String
    sSQL = "SELECT APPELLATIONS.APPELLATION  FROM APPELLATIONS WHERE (((APPELLATIONS.ordreAPPELLATION)=""01""));"
       ' Ouverture du recordset
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    Résultat = rst(0)
    Debug.Print Résultat
 
    ' Fermeture du Recordset
    rst.Close
End Sub

Ou vois du côté des fonctions de domaines
http://starec.developpez.com/tuto/fonctionsdomaines/