Bonjour,
 
J'essaie de faire un formulaire de recherche multicritères.
 
Lorsque je saisie un champ (par exemple, le champ fréquence) et que je clique sur "Rechercher", j'obtiens le message d'erreur suivant : "Erreur d'exécution 3131 : erreur de syntaxe dans la clause FROM"
 
Quelqu'un peut-il m'aider à résoudre ce problème ?
 
Merci !
 
Mon code :
 
Private Sub Rechercher_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "DelResult"
DoCmd.SetWarnings True
 
'Requête et filtres de recherche
Dim sql As String
 
sql = "INSERT INTO Result " & _
      "SELECT RESULTAT.* " & _
      "FROM RESULTAT "
     
     
 
Dim freq As Boolean
Dim sta As Boolean
Dim azi As Boolean
 
freq = IsNull(FrequenceEM)
If Not freq Then
sql = sql & " AND ([Result].[FrequenceEM]=Forms![MotRecRes]![Frq])"
End If
 
azi = IsNull(AzimutEM)
If Not azi Then
sql = sql & " AND ([Result].[AzimutEM]=Forms![MotRecRes]![Az])"
End If
 
sta = IsNull(NumSD)
If Not sta Then
sql = sql & " AND ([Result].[NumSD]=Forms![MotRecRes]![NSD])"
End If
 
 
'Exécution de la requête
 
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
 
'Ouverture du formulaire pour visualiser le résultat
 
DoCmd.OpenForm "Result_recherche_multi_frq"
 
 
 
 
End Sub

Il manque une clause Where !

Merci beaucoup, j'ai fait les modifs, ça marche !