[VBA] Utilisation du Bookmark

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,
Dans un formulaire, je peux choisir une personne (grâce à une zone de liste) pour un dossier (un enregistrement). Un sousFormulaire donnant les infos sur eux est mis à jour.
J'ai eu du mal mais j'ai fini par faire en sorte que lorsque que je change la personne pour un enregistrement, le sousFormulaire se mette à jour puis reste sur le même enregistrement avec un bookmark:
Code:

1 2 3 4 5 6 7 8 Private Sub Modifiable60_AfterUpdate() Dim MonSignet As Variant 'stockage de l'enregistrement courant MonSignet = Me.Bookmark Me.Requery 'repositionnement sur le bon enregistrement Me.Bookmark = MonSignet end sub
Ca, ça marchait très bien quand je modifiai la personne pour un enregistrement existant.
Mais le formulaire revient sur l'enregistrement n°1 si l'enregistrement que je viens de modifier est un nouvel enregistrement.
Avez-vous une idée pourquoi?

06/02/2007, 09h55
loufab

Bonjour amie transatlantique.

Je me pose une question bête... pourquoi n'utilise-tu pas les liens formulaires/sous-formulaires au lieu de travailler avec des bookmarks.

Tu t'affranchirais de ces petits problèmes. Mais peut-être as-tu une contrainte technique ?

Pour l'explication de ton problème :

Lorsque tu crées un nouvel enregistrement le recordset du sous-form n'a pas d'enregistrement correspondant (ce qui est normal) cependant il doit se positionner sur un enregistrement obligatoirement. C'est pour cela que ne trouvant pas de correspondant il affiche le 1er du recordset.

Cordialement,
06/02/2007, 13h50
Miss Ti

Bonjour petit "métro" qui se caille les fesses
(métro = petit surnom donné aux métropolitains ici...),

Citation:

pourquoi n'utilise-tu pas les liens formulaires/sous-formulaires au lieu de travailler avec des bookmarks.

C'est ce que je fais. En fait, je t'explique:
mon formulaire principal gère les dossiers. Pour faciliter la gestion du demandeur associés aux dossiers, j'ai intégré une zone de liste basée sur une requête.
Jusqu'ici, c'est pas bien difficile.
Pour plus de transparence pour les utilisateurs de la BD, un sous-formulaire se met à jour lorsque qu'un demandeur est choisi dans la zone de liste. Ce sous-formulaire donne toutes les infos dispo sur la personne choisie.

Donc voilà-voilà comment ça marche. En théorie.

Quand le dossier existe déjà, pas de pb: à la sélection/changement de demandeur, l'enregistrement se met à jour et le focus retourne sur le dossier en cours avec le bookmark.

Citation:

Lorsque tu crées un nouvel enregistrement le recordset du sous-form n'a pas d'enregistrement correspondant (ce qui est normal) cependant il doit se positionner sur un enregistrement obligatoirement. C'est pour cela que ne trouvant pas de correspondant il affiche le 1er du recordset.

Je m'en doutais. Tu ne saurais pas comment contourner le problème?

Dans ce cas je ferai un test pour savoir si le bookmark à abouti, dans le cas contraire je positionnerais le curseur d'enregistrement sur un nouveau en n'oubliant pas de remplir la clef commune.

Ici le code généré par access et modifié par mes soins.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As recordset Set rs = Me.Recordset.Clone rs.FindFirst "[monchamp] = '" & Me![maliste] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark else rs.addnew rs.fields("ChampClef") = "maclef" rs.update endif rs.close set rs = nothing
On voit sur la ligne de test rs.EOF (fin de fichier indique que la recherche n'a pas abouti).
le Addnew pour la création
l'ajout de la clef
la sauvegarde
on ferme proprement.

Pas trop froid aujourd'hui en tout cas baucoup moins qu'il y 1 semaine ou nous avions les fesses dans un iceberg... :mouarf:
Petites carresses aux matoutous :aie:

06/02/2007, 15h45
Miss Ti

Citation:

Code:

rs.FindFirst "[monchamp] = '" & Me![maliste] & "'"

[monchamp] ==> id_personne ou id_dossier?
car ma liste fait le lien avec des personnes et, là, on devrai lui dire de chercher un enregistrement qui corresponde au numéro du dossier, non? 8O

:mouarf: Quant aux matoutous, mouias, moi je préfère les ibis rouges, c'est plus funky et ça "urticarise" moins...
06/02/2007, 15h49
Miss Ti

Ah, oui, j'ai oublié: le code bloque sur la même ligne:

Code:

rs.FindFirst "id_personne = " & Me!Modifiable60.Value

"Erreur de compilation: Membre de méthode ou de données introuvable"
06/02/2007, 16h13
jean-paul lepetit

Salut,

Il doit falloir rajouter la réference a DAO...
06/02/2007, 16h14
loufab

Il va te faloir faire une adaptation.

La clef doit correspondre à la clef unique reliant le form au sous-form.

As-tu le modèle de donnée de cette partie. J'y verrais sans doute plus clair (je suis sous la canopée pour l'instant)
06/02/2007, 16h16
loufab

Citation:

Envoyé par jean-paul lepetit

Salut,

Il doit falloir rajouter la réference a DAO...

Ou placer DAO avant activeX data object dans la liste des réf VBA. ;)

Citation:

Salut, Il doit falloir rajouter la réference a DAO...

Citation:

Ou placer DAO avant activeX data object dans la liste des réf VBA

Ok, je n'ai plus de blocage sur la ligne: rs.FindFirst "id_personne = " & Me!Modifiable60.Value
Néanmoins, j'ai 2 problèmes avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim rs As Recordset MsgBox Me.id_dossier.Value ' vérification qu'il y a bien un numéro de dossier créé ou existant Set rs = Me.Recordset.Clone rs.FindFirst "id_personne = " & Me.Modifiable60.Value If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else rs.AddNew rs.Fields("id_dossier") = Me.id_dossier rs.Update End If rs.Close Set rs = Nothing End Sub
1/ avec un nouveau dossier: il met bien à jour le sous-formulaire mais en se recalant sur le 1er dossier. Le code ne remet donc pas le focus sur le dernier enregistrement
2/ lorsque je change le demandeur pour un dossier existant, j'ai le message suivant:

Citation:

Update ou CancelUpdate effectué sans appeler AddNew ni Edit

Ce qui est louche, c'est qu'il n'y a pas de numéro d'erreur.

Citation:

La clef doit correspondre à la clef unique reliant le form au sous-form.

C'est l'identifiant "id_personne": un dossier a un et un seul demandeur.

Citation:

Il va te faloir faire une adaptation

A quoi penses-tu, Loufab?
Là, honnêtement, je coince. Je planche depuis une semaine et ça ne s'arrange pas. Je dirais même que ça empire...
:arf: :help:

8O Ah! En intervertissant les lignes
Code:

1 2 rs.AddNew rs.Fields("id_dossier") = Me.id_dossier
je n'ai plus le message

Citation:

Update ou CancelUpdate effectué sans appeler AddNew ni Edit

Mais la mise à jour du sous-formulaire se solde toujours par un focus sur le 1er enregistrement...

07/03/2007, 12h30
Miss Ti

:help:Au secours! :help:
Ca devient urgent!
26/03/2007, 22h34
Miss Ti

Messieurs dames,
je me permet d'insister sur mon problème. Je caffouille, essaie, ré-essaie mais comme je ne trouve pas de piste et que je ne vois pas où est mon problème, je ne vois pas comment avancer et je commence à me faire taper sur les doigts (vous connaissez pas Lulu la Créole vous!!)...
Une piste?

Salut Titi

Bon récapitulons :
Que fait ton code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    ' Set rs = Me.Recordset.Clone (je mettrais plutot la ligne suivante)
    Set rs = Me.recordsetclone     ' ouverture du recordset
    ' recherche du id de la liste dans le clone
    rs.FindFirst "id_personne = " & Me.Modifiable60.Value
 
    ' If Not rs.EOF Then   ' s'il n'est pas à la fin (c'est plutot si tu le trouve)
    ' remplacer par cette ligne
    if not rs.nomatch then  ' s'il le trouve
       Me.Bookmark = rs.Bookmark  ' il s'y positionne
    Else  ' sinon
       rs.AddNew  ' crée un nouveau record dans le clone   
       rs.Fields("id_dossier") = Me.id_dossier   ' ajoute la valeur dans le champ
       rs.Update   ' enregistre
    End If
' ferme tout
    rs.Close
    Set rs = Nothing

Essaye plutot avec ce code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Set rs = Me.RecordsetClone
    rs.FindFirst "id_personne = " & Me.Modifiable60.Value
    If Not rs.nomatch Then
       Me.Bookmark = rs.Bookmark
    Else
       dim rst as recordset
       set rst = me.recordset
       rst.AddNew
       rst.Fields("id_dossier") = Me.id_dossier
       rst.Update
    End If
    rs.Close
    Set rs = Nothing

Attention le rst ne doit pas être fermé.

Quelques questions :

Ce code permet d'ajouter un enregistrement dans la sous-form ?
Si oui il est lancé à partir du sous-form ?
Dans les propriétés Champs père et Champs fils de ton sous-form tu as mis les bons champs ? les champs qui permettent la liaison entre tes 2 tables.

ps : Nous sommes des "métros" et les "zoreilles" alors ?

Cordialement,

27/03/2007, 16h20
Miss Ti

Ca se passe mieux avec ton code mais ça pèche encore un peu, Loufab (merci...). On va y arriver.

Maintenant, quand je choisis un demandeur dans ma zone de liste, il met bien à jour le sous-formulaire avec le demandeur.
Mais (ben oui, il y en a toujours...):
1/ le focus se place sur le 1er dossier rencontré où le demandeur est celui choisi (s'il est déjà concerné par un dossier)
2/ s'il n'existe pas encore dans les dossiers: le sousF est mis à jour, le focus est placé sur un dossier vierge (formulaire principal) et le message suivant apparaît: "Erreur d'exécution '3162': Vous avez essayé d'affecter la veleur Null à une variable qui n'est pas du type Variant". L'erreur se produit sur la ligne

Code:

rst.Fields("id_dossier") = Me.id_dossier

Citation:

Quelques questions :

* Ce code permet d'ajouter un enregistrement dans la sous-form ?
* Si oui il est lancé à partir du sous-form ?
* Dans les propriétés Champs père et Champs fils de ton sous-form tu as mis les bons champs ? les champs qui permettent la liaison entre tes 2 tables.

1: oui
2: le code est lancé d'après la zone de liste du formulaire décrivant le dossier. J'ai créé ce système pour que l'agent qui saisi les données n'aie pas à courrir après les données et puisse vérifier rapidement si le demandeur existe déjà dans la base. Pour résumer: on entre les infos du dossier et on choisi le demandeur dans une liste: le sousF est alors mis à jour pour avoir un résumé des infos sur cette personne (tel, date naissance, profession...)
3:oui. La preuve: les infos résumées dans le sousF correspondent bien à la personne sélectionnée.

PS: t'es un "métro" pour les guyanais. Les "zoreilles" c'est chez les réunionnais. :mouarf3: Amateur...
PPS: sousF = sous-formulaire. Je sais que tu n'aimes pas le format SMS mais c'est plus court. Tu m'autorise à tronquer ce mot là? :ange:
28/03/2007, 09h45
loufab

On y arrive... ;)

1/ C'est le fonctionnement du findfirst (trouve le premier) on peut refaire une recherche derrière avec un findnext (voir tuto DAO pour les explications et la mise en oeuvre). Est-ce un problème ce fonctionnement ?

2/ Le déplacement se fait dans le formulaire et non le sousform. C'est pour cela que je t'ai posé les questions.

Il me semble que l'on ne s'est pas compris.

Quand tu fais un Me.Recordset c'est l'ensemble des enregistrements du formulaire dans lequel tu exécutes la commande qui est pris en compte.

Apparement tu souhaite agir sur les enregistrements du sousform mais en lançant la commande dans le formulaire. Est-ce cela ?
30/03/2007, 14h50
Miss Ti
Citation:

Apparement tu souhaite agir sur les enregistrements du sousform mais en lançant la commande dans le formulaire. Est-ce cela ?

Oui

Citation:

2/ Le déplacement se fait dans le formulaire et non le sousform.

Oui. Mon formulaire principal est basé sur l'id du dossier. Donc remettre le focus sur le bon enregistrement ne devrait pas se faire comme:
Code:

1 2 Set rs = Me.RecordsetClone rs.FindFirst "id_personne = " & Me.Modifiable60.Value
mais comme:
Code:

1 2 Set rs = Me.RecordsetClone rs.FindFirst "id_dossier = " & Me.id_dossier.Value
Citation:

Quand tu fais un Me.Recordset c'est l'ensemble des enregistrements du formulaire dans lequel tu exécutes la commande qui est pris en compte.

Ah? Donc la commande rs.bookmark ne sert à rien?

Donc si je résume (pour une création d'un nouveau dossier) (histoire de bien t'expliquer le fonctionnement de la chose):
1/ j'entre les divers paramètres du dossier ==> un nouvel id_dossier est créé automatiquement
2/ je choisi une personne dans la zone de liste ==> lancement du code pour mettre à jour le sous-formulaire pour avoir un aperçu des infos sur cette personne.

Hier, j'ai commencé à tout recommencer à partir de zéro (en virant tout le code):
Quand je créée un dossier de A à Z,

Code:

Me!sousF_demandeur.Form.Requery

me met à jour le sousF mais avec la personne du 1er dossier (le dossier affiché dans le formulaire principal reste le bon).
Quand je modifie simplement la personne (dossier déjà existant), rien ne se passe.
Pourtant Access a bien enregistré la personne: il suffit que je change de dossier puis que je revienne dessus pour que le sousF me désigne la bonne personne.
Donc à ce stade le code lié à la liste du formulaire principal est:
Code:

1 2 3 Private Sub Modifiable60_AfterUpdate() Me!sousF_demandeur.Form.Requery End Sub
Si un requery ne met pas à jour le sousF correctement malgré des liens comme il faut, par quelle instruction je peux le faire? Je bidouille pour faire reculer mon enregistrement et j'y retourne?? Ce serai pas joli joli...

Bonjour Titi

Tu es dans le formulaire principal (tu lance la recherche à partir du form)
et tu veux agir sur le sous-form.
Code:

1 2 3 4 5 6 7 8 set rs = me.monsousform.form.recordset 'le recordset du sousform rs.findfirst "id_duSousForm=" & me.id_duForm 'recherche dans le sousform if rs.nomatch then ' pas trouvé ... Else ' trouvé le record est selectionné automatiquement ... Endif
Cordialement,

Salut Loufab,
(d'abord: :merci: parce que tu m'es d'une grande aide...)

Voici où j'en suis (à part au bord de la crise de nerf sous les cocotiers)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Dim rst_dossier As DAO.Recordset
    Dim rst_personne As DAO.Recordset
    'Création des recordset pour le formulaire (dossier) et le sousF (personne)
    Set rst_dossier = Me.Recordset
    Set rst_personne = Me.sousF_demandeur.Form.Recordset
    'puis on travaille avec le recordset "personne" pour mettre à jour le sousF
    With rst_personne
        'recherche de la personne par son id
        .FindFirst "id_personne = " & Me.Modifiable60.Value
        ' si id trouvé, sousF calé sur le bon enregistrement puis formulaire principal au cas où les enregistrement sautent...
        If Not .NoMatch Then
            Me.sousF_demandeur.Form.Bookmark = rst_personne.Bookmark
            Me.Bookmark = rst_dossier.Bookmark
        'pas de Else: je pense que ça ne sert à rien, vu qu'on choisit une
            'personne dans une liste de personnes déjà enregistrées...

        End If
    End With
    Set rst_personne = Nothing
    Set rst_dossier = Nothing

Ce code est "innovant" (du moins, j'ai l'impression d'avancer) mais j'ai le message d'erreur suivant (sans numéro d'erreur ni bouton "débugage"):

Citation:

Update ou cancelUpdate effectué sans appaler AddNew ni Edit.

Pourtant y'a pas de Update ni de CancelUpdate dans mon code?!? :fou: :koi:

02/04/2007, 23h42
loufab

Salut Miss Ti

Je ne vois pas pourquoi tu emplois les bookmarks, ils sont totalement inutile dans ce cas. Mets les en commentaires et tu verras que ça fonctionne.

Cordialement,
03/04/2007, 13h32
Miss Ti

J'ai mis des bookmarks pour mettre à jour mon sous-formulaire: celui-ci ne se met pas à jour automatiquement. Ni avec un souF.Form.requery.
:roll: Là, j'avoue que je ne sais plus à quel Saint me vouer (ou rhum...)...

Voir 40 message(s) de cette discussion en une page