Discussion :

[Gabout]

Bonjour,

Je cale sur la création d'une requête en VBA. Pour être plus précis, j'arrive à créer la requête mais je ne parviens pas à vérifier s'il en existe une et, si c'est le cas après demande à l'utilisateur, la remplacer ou quitter la procédure.

J'ai écrit ce bout de code que je vous soumets :

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
'Demander le nom de la requête
sNomRequete = InputBox("Comment nommer la requête ?", "Entrez le nom")
For Each qry In CurrentDb.QueryDefs
    If qry.Name = sNomRequete Then     'La requête existe déjà
        bRep = MsgBox("Faut-il effacer la requête existante ?", vbQuestion + vbYesNo, "Requête existante")
        If bRep = vbYes Then
            MsgBox "coucou"
            CurrentDb.QueryDefs.Delete sNomRequete
            CurrentDb.CreateQueryDef sNomRequete, sSQL
        Else
            MsgBox "Renommez la requête puis recommencez.", vbOKOnly + vbExclamation, "Conseil"
        End If
    Else    'La requête n'existe pas
        CurrentDb.CreateQueryDef sNomRequete, sSQL
    End If
Next

Une idée ?

[Gabout]

J'ai oublier de mentionner que systématiquement, j'ai un message d'erreur : Erreur d'exécution 3012 (l'objet existe déjà.).

Y aurait-il un problème de refresh ?

[random]

Code :

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

1
2
3
4
5
6
7
8
9
Function treq(nom As String) As Boolean
Dim mabase As DAO.Database
Set mabase = CurrentDb()
On Error GoTo fin
treq = mabase.QueryDefs(nom).Name = nom
Exit Function
fin:
treq = False
End Function