vba et access 2002 : erreur lors de l'utilisation du recordsetRésolu

Question

bonjour,
j'essaie dans le petit bout de code dans un formulaire d'acceder &#224; une table
Le formulaire est bas&#233; sur la table TAB_PLANCHES_COMUNE
l'utilisateur doit choisir un enregistrement dans une liste deroulante 
nomm&#233;e Liste_Commune
quand l'utilisateur a choisi, le but est de remplir des fenetres texte avec les valeurs des champs de l'enregistrement ramen&#233; par le recordSet

Or j'ai le messsage d'erreur lors de la fonction openrecordset : 
erreur 13 :  incompatibilit&#233; de type

si qqun peut m'aider , je lui en serai reconnaissant
merci d'avance

Public Sub Liste_Commune_Change()
    Dim num As Integer
    num = Liste_Commune
    'on recupere l'enregistrement dans la table TAB_PLANCHES_COMMUNE
    Dim Rs As Recordset
    Dim Qry As String


    Qry "select * from TAB_PLANCHES_COMMUNE where N&#176;INSEE " & num
    Set Rs = CurrentDb.OpenRecordset(Qry, dbOpenDynaset)
    
    'ici on met le code pour utiliser le recordset
    'et remplir des fenetres du formulaire
    
    Rs.Close
End Sub

olivesese · Accepted Answer

Je viens de trouver 
J'ai mis l'appel a la classe devant l'objet Recordset

dim Rs as DAO.Recordset

l'incompatibilit&#233; venait de l&#224; !

jpleroisse · Answer

Incompatibilt&#233; de type, v&#233;rifie ton code , par exemple si Liste_Commune est une chaine de caract&#232;res, tu ne peux pas la d&#233;clare Integer, mais String, enfin il y a surement quelque chose de ce c&#244;t&#233; l&#224;.

jpleroisse

olivesese · Answer

j'ai regard&#233; mais le Liste_Commune renvoit la cl&#233; cach&#233;e de type Long
en changeant la variable d'Integre en Long, aucune diff&#233;rence

je ne sais pas d'ou cela peut venir 
en faisant gyper simple : 
    Dim Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset("select * from TAB_PLANCHES_COMMUNE", dbOpenDynaset)
    Rs.Close

j'ai le meme message d'erreur

trop bizarre
enfin, merci quand meme

Vba et access 2002 : erreur lors de l'utilisation du recordset

3 réponses

Discussions similaires