Requete paramétrée qui ne fonctionne pas

**bestall666** · 18/02/2007, 21h05

Bonsoir

J'ai une table film(Nro Film, Titre, Titre VO...)

Je veux créer une requête paramétrée pour tester l'existance d'un film sur le titre !!

Pour cela, j'ai crée une requete en mode graphique en affichant le chant titre !!

J'ai créer un paramètre parmTitre de type texte avec le menu requete / Paramètre !!!!

En VBA, je teste si ce paramètre est égal au titre mais cela ne fonctionne pas !!

Que faire pour obtenir ce que je veux !!

Je me suis instiréé du tuto DAO du site mais sans succès jusqu'à présent!!

Voici le code VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Function FilmExiste(strTitreFilm As String) As Boolean
On Error GoTo Err_FilmExiste
    'Vérifie l'existance d'un film dont le titre est passé en paramètre
    'Renvoie True si le film existe
 
    Set db = CurrentDb()
    Set oQdf = db.QueryDefs("qryFilmExiste")
    oQdf.Parameters("parmTitre").Value = strTitreFilm
    Set rst = oQdf.OpenRecordset
 
    If rst.RecordCount > 0 Then
        FilmExiste = True
    Else
        FilmExiste = False
    End If
 
    Exit Function
 
Err_FilmExiste:
    MsgBox Err.Description
    Exit Function
 
End Function

Merci d'avance pour l'aide apportée !!

Bestall666

**FRED.G** · 18/02/2007, 21h30

A part que tu n'as pas mis de parenthèses à la fin de : Set rst = oQdf.OpenRecordset(), ton code est juste. Donc l'erreur est plutôt du côté du SQL de ta requête.

**bestall666** · 18/02/2007, 21h35

Envoyé par FRED.G

A part que tu n'as pas mis de parenthèses à la fin de : Set rst = oQdf.OpenRecordset(), ton code est juste. Donc l'erreur est plutôt du côté du SQL de ta requête.

Merci d'avoir pris le temps de répondre

Comme un dessin vaut mieux qu'un long discours voici ma requête

Faut-il mettre un critère sur le titre !!

Merci d'avance pour l'aide apportée

Bestall666