Erreur requete en VBA

**temar** · 18/05/2006, 17h17

Salut à tous !

J'ai un problème avec un code VBA pour mon appli de vidéothèque...

Tout d'abord, pour la requete en question, j'utilise les tables :

VIDEO(#NUM_VIDEO, *NUM_SUPPORT, *NUM_GENRE, *NUM_PROPRIETAIRE, TITRE_VIDEO, DUREE_VIDEO, DESCRIPTION_VIDEO, COMMENTAIRE_VIDEO, JAQUETTE_VIDEO, NOTE_MOYENNE_VIDEO)

REALISER(#NUM_VIDEO, #NUM_REALISATEUR, ANNEE_REALISATION)

Le problème en question vient du code suivant :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
On Error GoTo erreur
      
    Dim cnn As ADODB.Connection
    Dim rcs As ADODB.Recordset
    Dim req As String

    Set cnn = CurrentProject.Connection
    Set rcs = New ADODB.Recordset
    
    req = "SELECT VIDEO.NUM_VIDEO, VIDEO.NUM_SUPPORT, VIDEO.NUM_GENRE, VIDEO.NUM_PROPRIETAIRE, VIDEO.TITRE_VIDEO, REALISER.NUM_REALISATEUR, "
    req = req + " REALISER.ANNEE_REALISATION, VIDEO.DUREE_VIDEO, VIDEO.DESCRIPTION_VIDEO, VIDEO.COMMENTAIRE_VIDEO, VIDEO.JAQUETTE_VIDEO, VIDEO.NOTE_MOYENNE_VIDEO "
    req = req + "FROM VIDEO, REALISER "
    req = req + "WHERE VIDEO.NUM_VIDEO="
    req = req + Me.txtRechercheTitre.Column(0) + " "
    req = req + "AND REALISER.NUM_VIDEO=VIDEO.NUM_VIDEO;"
    MsgBox req
    rcs.Open req, cnn, adOpenDynamic, adLockOptimistic
    
    If Not rcs.EOF Then
        rcs.MoveFirst
    End If
   
    Do While Not rcs.EOF
        MsgBox rcs.Fields("NUM_VIDEO")
        txtNumVideo = rcs.Fields("NUM_VIDEO")
        txtNumSupport = rcs.Fields("NUM_SUPPORT")
        txtNumGenre = rcs.Fields("NUM_GENRE")
        txtNumProprietaire = rcs.Fields("NUM_PROPRIETAIRE")
        txtTitreVideo = rcs.Fields("TITRE_VIDEO")
        txtNumRealisateur = rcs.Fields("NUM_REALISATEUR")
        txtAnneeRealisation = rcs.Fields("ANNEE_REALISATION")
        txtDureeVideo = rcs.Fields("DUREE_VIDEO")
        txtDescriptionVideo = rcs.Fields("DESCRIPTION_VIDEO")
        txtCommentaireVideo = rcs.Fields("COMMENTAIRE_VIDEO")
        txtJaquetteVideo = rcs.Fields("JAQUETTE_VIDEO")
        txtNoteMoyenneVideo = rcs.Fields("NOTE_MOYENNE_VIDEO")
        txtJaquetteVideo_LostFocus ' pour afficher la jaquette
        rcs.MoveNext
    Loop
    rcs.Close
    cnn.Close
Exit Sub
erreur:
    MsgBox "erreur " & Err.Number & " : " & Err.Description, vbCritical
    Exit Sub
End Sub

Le problème vient de la ligne en rouge. Le msgbox juste au dessus de cette ligne s'affiche bien. Si je commente cette ligne qui ne fonctionne pas, tout ce qui suit fonctionne. C'est juste cette ligne la.

J'ai affiché ma requete par msgbox, elle a l'air correcte :

SELECT VIDEO.NUM_VIDEO, VIDEO.NUM_SUPPORT, VIDEO.NUM_GENRE, VIDEO.NUM_PROPRIETAIRE, VIDEO.TITRE_VIDEO, REALISER.NUM_REALISATEUR, REALISER.ANNEE_REALISATION, VIDEO.DUREE_VIDEO, VIDEO.DESCRIPTION_VIDEO, VIDEO.COMMENTAIRE_VIDEO, VIDEO.JAQUETTE_VIDEO, VIDEO.NOTE_MOYENNE_VIDEO
FROM VIDEO, REALISER WHERE VIDEO.NUM_VIDEO=7 AND REALISER.NUM_VIDEO=VIDEO.NUM_VIDEO;

J'en arrive a l'erreur obtenue :

erreur : -2147352567 Les enregistrements dans la table 'REALISER' ne devraient pas de trouver du côté 'un'

Je comprends pas ce qui fait planter le truc.

Si vous pouviez apporter un regard nouveau sur mon code pour m'éclairer sur le problème, ce serait sympa

D'avancer merci

temar

**zEndymion** · 18/05/2006, 21h01

Slt,

Dans ton From ne manquerai t'il pas un Inner Join :

Code :

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

1
2
 
FROM VIDEO INNER JOIN REALISER ON VIDEO.NUM_VIDEO = REALISER.NUM_VIDEO

**temar** · 18/05/2006, 21h02

Je fais remonter un peu le topic, car je n'ai toujours pas trouvé la solution...
Quelqu'un pour m'aider please ?

**zEndymion** · 18/05/2006, 21h12

As tu essayer en changant ton From ?

**temar** · 18/05/2006, 21h49

Désolé, on a posté en meme temps, donc j'ai pas vu ta réponse

Je viens d'essayer en changeant le FROM, mais ça ne change rien. D'ailleurs, je crois qu'en mettant INNER JOIN comme tu le suggères ou
AND REALISER.NUM_VIDEO=VIDEO.NUM_VIDEO
comme je l'avais fait, il me semble que c'est la meme chose.

mat.M · 18/05/2006, 22h49

Le # de #NUM_VIDEO c'est une clé primaire ?
La jointure ne peut pas faire car sur réalisateur tu déclares une double-clé alors que sur vidéo il n'y en a qu'une seule.
Je pense que le pb vient de là.

Astuce : utiliser & et non + pour les concaténations :

Dim requeteSQL As String
requeteSQL="Select auteur,titre"
requeteSQL=requeteSQL & "FROM video"

**temar** · 18/05/2006, 23h01

Envoyé par mat.M

Le # de #NUM_VIDEO c'est une clé primaire ?

oui, c'est la notation que j'utilisais en DUT

et * pour les clés étrangères

Envoyé par mat.M

La jointure ne peut pas faire car sur réalisateur tu déclares une double-clé alors que sur vidéo il n'y en a qu'une seule.
Je pense que le pb vient de là.

Et ya pas de solution ?

Envoyé par mat.M

Astuce : utiliser & et non + pour les concaténations :

Ca change quoi ?

**temar** · 19/05/2006, 14h45

**temar** · 19/05/2006, 17h37

Envoyé par mat.M

La jointure ne peut pas faire car sur réalisateur tu déclares une double-clé alors que sur vidéo il n'y en a qu'une seule.
Je pense que le pb vient de là.

Je viens de réagir : lorsque je teste ma requête directement dans Access, elle fonctionne, alors pourquoi sous VBA la jointure passerait pas ?

**temar** · 19/05/2006, 18h01

A priori, le problème ne vient pas de la requete, puisque à la place de mon

txtNumVideo = rcs.Fields("NUM_VIDEO")
qui ne fonctionne pas, j'ai essayé de mettre

lblTest.Caption = rcs.Fields("NUM_VIDEO")

Avec lblTest un label, et ça fonctionne correctement.

Cependant, après, j'ai essayé de rebalancé la valeur de mon label dans ma txtbox

txtNumVideo = lblTest.Caption
et ça me donne la meme erreur qu'avant...
Donc le problème viendrait de mon champ txtNumVideo ?
J'ai regardé dans ses propriétés, mais rien ne m'a semblé bizarre...

**marot_r** · 19/05/2006, 18h41

txtNumVideo est un champ lié ?

Pour le '+' la différence entre + et & est avec les nombres si access à "1" + "2" il donne 3 alors que "1" & "2" donne "12".

A+

**DMboup** · 19/05/2006, 18h52

le champ txtNumVideo est basé sur quel champ de table?
Est-il indexé sans doublon?

Met le commentaire pour voir s'il c'est le seul qui se comporte comme ca

**temar** · 19/05/2006, 19h07

Envoyé par DMboup

le champ txtNumVideo est basé sur quel champ de table?
Est-il indexé sans doublon?

Il est basé sur le champ NUM_VIDEO de la table VIDEO et il est bien indexé sans doublon.

Envoyé par DMboup

Met le commentaire pour voir s'il c'est le seul qui se comporte comme ca

Je l'avais déja fait pour etre sûr que le problème venait bien de la. Je viens de vérifier au cas où, mais pas de miracle. Cela fonctionne bien pour les autres champs quand je mets celui la en commentaire...

**DMboup** · 19/05/2006, 19h32

Envoyé par temar

Il est basé sur le champ NUM_VIDEO de la table VIDEO et il est bien indexé sans doublon.

C'est donc normal qu'il refuse une valeur existante dans la table.

Pour ajoute un autre champ dans ta table txtNumVideo2 (qui accepte les doublons) et remplace le dans le code.

NB: Apparement tu rempli les champs d'un formulaire. Sur quelle source est basée ce formulaire?

**temar** · 19/05/2006, 20h03

Le formulaire est basé sur une requête de sélection sur 2 tables (Video et realiser)

Sinon, tu as raison, j'ai essayé avec une autre txtbox, et cela fonctionne...

Je suis donc obligé de modifier ma table pour accepter les doublons ?

**temar** · 19/05/2006, 20h50

Envoyé par marot_r

txtNumVideo est un champ lié ?

Pour le '+' la différence entre + et & est avec les nombres si access à "1" + "2" il donne 3 alors que "1" & "2" donne "12".

A+

Ah ok, merci pour l'astuce

Sinon, oui txtNumVideo est lié au champ NUM_VIDEO de la table video...

Sinon, ben merci pour le coup de main

Erreur requete en VBA

Access

Discussions similaires

Partager

Partager