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
