Discussion :

[Miss Ti]

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 :

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

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?

[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,

[Miss Ti]

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

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.

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?

[loufab]

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 :

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

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...
Petites carresses aux matoutous

[Miss Ti]

Code :

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

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?

Quant aux matoutous, mouias, moi je préfère les ibis rouges, c'est plus funky et ça "urticarise" moins...

[Miss Ti]

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

Code :

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

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

"Erreur de compilation: Membre de méthode ou de données introuvable"