Discussion :

[Falcdyr]

Bonjour,

J'ai une table qui contient un attribut multivalué définit par les jours de la semaine ("Lundi","Mardi",...). J'essaye d'effectuer une opération de mise a jour dessus avec les recordset et le tutoriel http://warin.developpez.com/access/multivalue/
et j'obtiens donc le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim Str2 As String
Str2 = "Lundi"
Dim oDb As DAO.Database
Dim oRstJour As DAO.Recordset, oRst As DAO.Recordset
Set oDb = CurrentDb
'Instancie un recordset correspondant à la facture 1
Set oRstJour = oDb.OpenRecordset( _
    "SELECT * FROM Planning WHERE NumPlan = 1")
With oRstJour
    'Vérifie que le curseur n'est pas vide
    If Not .EOF Then
        'Récupère le recordset du champ multi-valué
        Set oRst = .Fields("Jour").Value
        'Mettre le jour à vrai ?
        With oRst
            .AddNew
            .Fields(0) = Str2
            .Update
        End With
    Else
        MsgBox "Aucun planning valide", vbCritical, "Erreur"
    End If
End With

J'obtiens l'erreur suivante sur la ligne .AddNew:
Impossible de mettre a jour un champ a plusieurs valeurs si le jeu d'enregistrements parent n'est pas accessible en mode modification. Pour ce faire, utilisez la méthode AddNew ou Edit.

L'utilisation finale sera, quand l'utilisateur choisira les jours dans une ListBox multivalues dans un formulaire, la mise a jour selon les paramètres mis dans le formulaire (aucun problème a ce niveau là) de tous les jours séléctionnés dans la lsite.

Merci pour votre aide.

[6ril25]

Salut,

suivant l'erreur annoncée, teste

Code :

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

oRstJour.Edit

après With oRstJour

6ril

[Falcdyr]

Merci pour ta réponse, j'avoue que je n'y avait pas pensé
Cependant j'ai maintenant une erreur sur le .Update :
Vous ne pouvez pas entrer cette valeur car elle duplique une valeur existante dans le champ liste de choix à plusieurs valeur ou dans le champ pièce jointe. Le champ liste de choix a plusieurs valeurs ou le champ pièce jointe ne peuvent pas contenir de valeurs dupliquées.

D'après cette erreur, ça ne marche pas car la valeur éxiste déja. Comment faire pour que cette valeur soit séléctionnée dans la liste ?

[6ril25]

et bien teste oRstJour.Update au lieu de oRstJour.Edit

[Falcdyr]

En effet, après divers essais tout a l'air de fonctionner !
Mais il faut à la fois le Edit et le Update pour que ça marche. C'est en regardant la boucle du recordset oRst que j'ai compris ça.
Un grand merci, je galère la dessus depuis hier (hier j'essayais de le faire avec une requête UPDATE mais ça ne donnait rien).

Pour ceux que ça interesse voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Dim Str2 As String
Str2 = "Lundi"
Dim oDb As DAO.Database
Dim oRstJour As DAO.Recordset, oRst As DAO.Recordset
Set oDb = CurrentDb
'Instancie un recordset correspondant à la facture 1
Set oRstJour = oDb.OpenRecordset( _
    "SELECT * FROM Planning WHERE NumPlan = 1")
With oRstJour
    oRstJour.Edit
 
    'Vérifie que le curseur n'est pas vide
    If Not .EOF Then
        'Récupère le recordset du champ multi-valué
        Set oRst = .Fields("Jour").Value
        'Mettre le jour à vrai ?
        With oRst
            .AddNew
            .Fields(0) = Str2
            .Update
        End With
    Else
        MsgBox "Aucun Planning valide", vbCritical, "Erreur"
    End If
    oRstJour.Update
End With
Set oRstJour = Nothing
Set oRst = Nothing

Merci !

[azertix]

Oui, les méthodes AddNew et Edit nécessitent toutes les deux un Update plus bas. La méthode Delete n'en a pas besoin, en revanche

[Falcdyr]

Oui c'est ce que je suis en train de constater et je n'arrive pas a faire le delete avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
           With oRstJour
                    oRstJour.Edit
                    'Vérifie que le curseur n'est pas vide
                    If Not .EOF Then
                        'Récupère le recordset du champ multi-valué
                        Set oRst = .Fields("Jour").Value
                        'Mettre le jour à vrai ?
                           With oRst
                            .AddNew
                            .Fields(0) = Me.JourDiff.ItemData(J)
                            .Delete
                        End With
                    Else
                        MsgBox "Aucun Planning valide", vbCritical, "Erreur"
                    End If
                    oRstJour.Update
                End With

Il me dit: Aucun enregistrement en cours. sur le .Delete. Est ce que je peux enlever le .AddNew du coup ? (j'ai test mais j'ai une autre erreur :p)

Ah oui aussi des fois il met dit: La transaction n'a pas pu démarrer. Trop de transactions sont déjà imbriquées.
Comment faire pour "fermer" les transactions ?

[azertix]

Ben si tu veux supprimer un enregistrement, il ne faut pas mettre d'AddNew !
Tu mets juste ton Delete

[Falcdyr]

Le problème c'est que je veux delete un enregistrement particulier (enfin le déselectionner de la liste quoi) et que le delete a l'air de tout supprimer :/

Et je reviens sur un Edit que j'ai fait plus haut vu que j'ai pas eu de réponse:
La transaction n'a pas pu démarrer. Trop de transactions sont déjà imbriquées.
Comment faire pour "fermer" les transactions ?

[azertix]

Effectivement, il te faut un critère dans ce cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim bd As Database
Dim t As Recordset
Dim critere As String
 
Set bd = CurrentDb
Set t = bd.OpenRecordset("MaTable", DB_OPEN_DYNASET)
 
critere = "MaClePrimaire=" & MonChamp
t.FindFirst critere
t.Delete

[azertix]

De rien ...

[Falcdyr]

Ca n'a pas marché () :p
Du coup j'ai viré mon champ multivalué, j'ai mis un champ texte sur lequel j'effectue un traitement...

[azertix]

xD
Ma foi ...
Et comment tu fais, donc ? (ça m'intéresse )

[Falcdyr]

Bah dans mon formulaire j'ai mis des checkbox, je vérifie chacune d'entre elles.
Si Lundi est check, alors je met une chaine de caractère a "1,", si mardi est vrai je rajoute "2," a ma chaine etc et après j'insère la chaine finale dans ma table. Quand j'en ai besoin je fais un traitement dessus en faisant un Split sur les ",". C'est moche mais ça marche :p