IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Problème avec Findfirst


Sujet :

VBA Access

  1. #1
    Membre habitué Avatar de Cabos
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    Novembre 2010
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Responsable de service informatique

    Informations forums :
    Inscription : Novembre 2010
    Messages : 108
    Points : 156
    Points
    156
    Par défaut Problème avec Findfirst
    Bonjour,

    Après avoir longuement cherché sur ce forum, j'ai toujours un souci avec l'instruction FindFirst.

    Quand j'exécute le code suivant (objectif : pointer sur un enregistrement précis dans une table) :

    Dim R_BL as Recordset

    ....

    critere = "[lf_nummer] = BL-" & refcol
    R_BL.FindFirst critere

    je reçois systématiquement le message :

    "Opération non autorisée pour ce type d'objet".

    J'ai essayé avec d'autres syntaxes genre :

    critere = "lf_nummer LIKE " & chr(34) & "BL-" & refcol & chr(34) mais sans plus de succès (même message).

    Est-ce un problème de type de Recordset ? Si c'est le cas, comment aurais-je du déclarer R_BL ?

    Il me manque énormément de bases sur les Recordset et leur manipulation, donc même un début de piste serait bon à prendre.

    Je vous remercie d'avance de toute l'aide que vous pourrez m'apporter.

  2. #2
    Expert éminent
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    Décembre 2005
    Messages
    4 485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : Décembre 2005
    Messages : 4 485
    Points : 7 759
    Points
    7 759
    Par défaut
    Bonjour,

    Essaie en déclarant le recordset comme ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim R_BL As DAO.Recordset
    Et pour le critère :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    critere = "[lf_nummer] = ""BL-" & refcol & """"
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    critere = "[lf_nummer] = " & Chr(34) & "BL-" & refcol & Chr(34)
    A+

  3. #3
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 642
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 642
    Points : 34 350
    Points
    34 350
    Par défaut
    salut,

    comme je crois comprendre que ton champs [lf_nummer] est une chaine de caracteres, essaie avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    critere = "[lf_nummer] = 'BL-" & refcol & "'"

  4. #4
    Membre habitué Avatar de Cabos
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    Novembre 2010
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Responsable de service informatique

    Informations forums :
    Inscription : Novembre 2010
    Messages : 108
    Points : 156
    Points
    156
    Par défaut
    Merci de votre aide messieurs,

    C'est effectivement un champ texte, j'ai donc couplé vos deux remarques et modifié comme suit le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Dim R_BL as DAO.Recordset
     
    ....
     
    critere = "[lf_nummer] = 'BL-" & refcol & "'"
    R_BL.FindFirst critere
    Et j'obtiens le même résultat : "Opération non autorisée pour ce type d'objet".

    Je vais tout de même ré-essayer une exécution pas à pas, pour vérifier que c'est bien toujours cette partie du code qui bloque, et pas la suite...

  5. #5
    Expert éminent
    Avatar de LedZeppII
    Homme Profil pro
    Maintenance données produits
    Inscrit en
    Décembre 2005
    Messages
    4 485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Maintenance données produits
    Secteur : Distribution

    Informations forums :
    Inscription : Décembre 2005
    Messages : 4 485
    Points : 7 759
    Points
    7 759
    Par défaut
    Bonjour,

    C'est peut-être un problème de type de recordset.
    FindFirst n'est supporté que par les types Dynaset et Snapshot.

    Essaie avec un recordset de type Dynaset (constante dbOpenDynaset).
    (Voir exemple ici)

    A+

  6. #6
    Membre habitué Avatar de Cabos
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    Novembre 2010
    Messages
    108
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Responsable de service informatique

    Informations forums :
    Inscription : Novembre 2010
    Messages : 108
    Points : 156
    Points
    156
    Par défaut
    C'est effectivement un problème de type, résolu par le type Dynaset.

    Non seulement j'ai résolu mon problème, mais j'y vois aussi un peu plus clair sur les types de Recordset et les options possibles.

    Merci encore de votre aide messieurs.

    Je place le sujet en résolu.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] problème avec FindFirst.
    Par lucViv dans le forum Access
    Réponses: 2
    Dernier message: 10/11/2014, 13h13
  2. Problème avec FindFirst quand le critère contient "
    Par Mors_Ubyte dans le forum VBA Access
    Réponses: 5
    Dernier message: 22/05/2008, 10h13
  3. problème avec findfirst
    Par philpas dans le forum API, COM et SDKs
    Réponses: 1
    Dernier message: 23/11/2005, 15h43
  4. Problème avec FindFirst
    Par etranger dans le forum Langage
    Réponses: 4
    Dernier message: 19/09/2005, 01h07
  5. Problème avec la fonction findfirst ()
    Par Angelico dans le forum Windows
    Réponses: 3
    Dernier message: 05/08/2004, 20h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo