[VB6 + Requête sur base Access] Erreur: "Utilisation non autorisée de Null"Résolu

Question

Bonjour &#224; tous!

Je vous &#233;cris car j'ai un probl&#232;me au niveau d'une requ&#234;te pour attaquer une base Access 2002 sous Visual Basic 6.

Je commence tout d'abord par pr&#233;senter globalement la structure de mon projet.

La base Access se compose de trois tables: "Service", "Poste" et "Office".
Le but de mon programme VB est de s&#233;lectionner dans une ListBox le service puis apr&#232;s s&#233;lection du service, on s&#233;lectionne le poste dans une seconde ListBox. Apr&#232;s s&#233;lection du service et du poste, on doit afficher des infos concernant le poste &#224; savoir la version d'Office install&#233;e sur le poste et le num&#233;ro de licence. Informations qui se trouvent dans la base Access en question.
Pour cel&#224; j'effectue donc des requ&#234;tes.
Je tiens &#224; pr&#233;ciser que je suis en DAO (non pas que je pr&#233;f&#232;re &#224; l'ADO, mais je ne sais pas faire de l'ADO... )

1&#232;re requ&#234;te: Version d'Office

Je vous mets ce que j'ai &#233;cris pour la 1&#232;re requ&#234;te qui me permet d'avoir la version d'Office install&#233;e sur le poste s&#233;lection&#233;. Je tiens &#224; pr&#233;ciser que cette requ&#234;te fonctionne et que je n'ai aucun probl&#232;me avec celle-ci:

    Set req_ent =  db.OpenRecordset("select LibOffice from Office,Poste where  Office.CodeOffice=Poste.CodeOffice and Poste.CodePoste='" & lst_poste & "'")
    If req_ent.EOF = True Then
        lbl_office2.Caption = "Non d&#233;finie"
    Else
        req_ent.MoveFirst
        While req_ent.EOF = False
             lbl_office2.Caption = req_ent!LibOffice
             req_ent.MoveNext
        Wend
    End If

Comme vous pouvez le voir dans la requ&#234;te il y a une jointure entre la table Office et Poste car dans la table "Poste" il y a le code de la version d'Office qui est une cl&#233; &#233;trang&#232;re correspondant au code office de la table "Office" permettant d'avoir le libell&#233; Office.
Lorsque le champs LibOffice est vide, req_ent.EOF = True et &#231;a marque sans probl&#232;me "Non d&#233;finie".

 2e requ&#234;te: Num&#233;ro de licence Office 

Ma 2e requ&#234;te sert &#224; obtenir le num&#233;ro de licence d'Office et n'utilise qu'une seule table:

    Set req_ent  = db.OpenRecordset("select LicOffice from Poste where      Poste.CodePoste='" & lst_poste & "'")
    If req_ent.EOF = True Then
        lbl_licence2.Caption = "Non d&#233;finie"
    Else
        req_ent.MoveFirst
        While req_ent.EOF = False
                lbl_licence2.Caption = req_ent!LicOffice
                req_ent.MoveNext
        Wend
    End If

Cette requ&#234;te ne fonctionne pas lorsque le champ "LicOffice" de la base de donn&#233;e est vide, un message d'erreur apparait: "Erreur d'ex&#233;cution '94': Utilisation non autoris&#233;e du Null" ...
Je ne comprends pas le probl&#232;me &#233;tant donn&#233; que la requ&#234;te pr&#233;c&#233;dente fonctionnait.
En faisait un pas &#224; pas, je me rends compte que contrairement &#224; la requ&#234;te pr&#233;c&#233;dente, lorsque le champ est vide, req_ent.EOF est toujours "False" et ne bascule pas en "True" d'o&#249; l'erreur avec le Null puisqu'apparement req_ent!LicOffice ne peut pas &#234;tre Null. Je ne comprends donc pas pourquoi req_ent.EOF n'est pas "True" lorsque le champ est vide comme c'&#233;tait le cas avec la requ&#234;te pr&#233;c&#233;dente.

Je demande donc de l'aide SVP!!!!!!

NB: les "lst_" sont le nom de mes ListBox
        les  "lb_" sont le nom de mes labels
        Les champs nulls sont autoris&#233;s dans ma base Access pour "LibOffice" et "LicOffice"

tof008 · Accepted Answer

tu  peux mettre : 
if isNull(req_ent) = true then

        lbl_licence2.Caption = "Non d&#233;finie"
    Else
        req_ent.MoveFirst
        While req_ent.EOF = False
                lbl_licence2.Caption = req_ent!LicOffice
                req_ent.MoveNext
        Wend
    End If
Ca devrait marcher....


Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

tof008 · Answer

ah ben j'avais meme pas vu que c t toi!!!! Ben essaie ma technique, g eu le meme prob et je l'ai arrang&#233; comme ca....

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

NeT_SlipKnoT · Answer

Merci beaucoup!!!! Ca marche! 
Sauf que c'&#233;tait pas: if isNull(req_ent) true then mais if isNull(req_ent!LicOffice) true then mais &#231;a j'ai trouv&#233; tout seul, l'essentiel c'&#233;tait de m'avoir mis sur la piste d'une nouvelle m&#233;thode que je ne connaissais pas.

Cela dit, je ne comprends tout de m&#234;me pas pourquoi ma m&#233;thode ne fonctionne pas pour ma 2e requ&#234;te... Si quelqu'un a une explication?

Sinon, ne saurais-tu pas comment faire pour que des r&#233;f&#233;rences soit automatiquement coch&#233;es &#224; l'ouverture du projet VB? Par exemple l&#224; je dois utiliser la r&#233;f&#233;rence "Microsoft DAO 3.6" et &#224; chaque fois je dois cocher cette r&#233;f&#233;rence &#224; l'ouverture de mon projet ce qui est TRES chiant... Gross avait le m&#234;me probl&#232;me lorsqu'il avait voulu corriger nos TPs...

NB: si t'as m&#234;me pas vu que c'&#233;tait moi, &#231;a prouve &#224; quel point t'es investi sur ce forum pour aider les gens ^-^

tof008 · Answer

ben en fait ca marche pas parce que quand il recupere les donn&#233;es, il y en a une qui est vide et du coup il ne trouve pas de valeurs &#224; assigner... et il ne peut pas mettre Null comme valeur...
Par contre pour tes references, je ne sais pas du tout comment faire... Perso je les ai coch&#233;es une fois et depuis ca reste coch&#233;... Mais envoie un mail &#224; Gross, il r&#233;pond vite!!!

Encore une chose, quand la r&#233;ponse te convient, appuie sur r&#233;ponse accept&#233;e, comme ca les gens qui ont le m&#234;me prob que toi peuvent voir la solution qui marche!

Hesite pas si ta un autre prob... Il faut bien que je fasse partager le peu de savoir que j'ai ! loool

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

[VB6 + Requête sur base Access] Erreur: "Utilisation non autorisée de Null"

4 réponses

Discussions similaires