Discussion :

[nikidem]

bonjour à tous !

Je suis en pleine apprentissage sur Access et le site m'aide énormément, alors considérez moi comme un novice. Et là je galère

Je souhaite effacer le contenu d’un champ multivalué si le contenu d’un autre champ est modifié.
En gros si je change le contenu du ChampA alors le ChampB est effacé. Le tout en passant par un click évènementiel...

J'ai bien vu des tutos pour supprimer les valeurs d'un champ multivalué. J'ai testé le code, qui fonctionne très bien. Sauf qu'il m'efface la mauvaise ligne (en fait, il efface dans l'ordre d'enregistrement, alors que je souhaite sélectionner à l'aide d'un formulaire continu l'enregistrement qui m’intéresse)

Merci à toute âme charitable pour le petit coup de pousse

[loufab]

Bonjour,

Pour effectuer une action sur l'enregistrement courant d'un formulaire continu il faut :

• Etre positionné sur cet enregistrement
• Utiliser le Me.nomcontrole pour désigner le contrôle.

N'hésites pas à poster ton code.

[nikidem]

merci loufab

j'ai pas tout saisi mais c’est normal en mode VBA je suis un fjdlseifj

peut être qu'en étant plus précis, tu vas me comprendre
voici ce que je cherche :
Soit la table suivante : t_entretien
• champ_famille : texte
• champ_description : texte
• champ_localisation : champ multivalué contenant du texte
la table est rempli par le biais d'un formulaire continu (f_taches_ponctuelles). Si je modifie le champ_famille ou le champ_description alors çà m'efface le champ_localisation

merci encore pour ton aide

[loufab]

Bonjour,
Je dirais donc d'utiliser les évènements Après MAJ de chaque contrôle qui doit déclencher l'effacement et d'y mettre ceci :

Code :

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

me.champ_localisation = null

Cependant je ne suis pas utilisateur de ce type de champ, je préfère un bonne vieille table liée.

Il y a un tuto sur les champs multivalués. Peut-être que tu y trouveras ton bonheur.

[nikidem]

J'ai testé le code mais ça m'affiche un message d'erreur. "impossible d’exécuter cette opération"



quoi qu'il en soit j'ai regardé comme tu m'as conseillé le tuto sur les champs multivalués. j'ai modifié à ma sauce et ça donne çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub FAMILLE_Change()
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("SELECT localisation FROM t_taches_secu_ponctuelles") ' WHERE localisation=''")
With oRst
   .Edit
    With .Fields("localisation").Value
    While Not .EOF
        .Delete
        .MoveNext
    Wend
    End With
    .Update
End With

Il fonctionne mais il me manque la condition WHERE. je sens que j'y suis presque

[loufab]

Pour le Where il y a plein d'exemple sur le forum et dans les tutos sur la recherche notamment.

Le tout est de savoir :

• le type de valeur
• si elle est statique ou si elle provient du formulaire.

Cordialement,

[nikidem]

Effectivement, mais j'arrive pas a compilé dans le code, çà me met à chaque fois un message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub FAMILLE_Change()
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("SELECT localisation FROM t_taches_secu_ponctuelles WHERE localisation=' ' ")
With oRst
   .Edit
    With .Fields("localisation").Value
    While Not .EOF
        .Delete
        .MoveNext
    Wend
    End With
    .Update
End With

Le champ localisation contient du texte, qui provient d'une autre table. le tout est renseigné par un formulaire.

Please

Cordialement,

[loufab]

Visiblement la syntaxe du champ n'est pas la bonne.

A lire absolument :
http://warin.developpez.com/access/multivalue/

Tout y est.

[nikidem]

merci je vais regardé ca plus en détail