Discussion :

[Treize013]

Bonjour,

Je développe un projet CRM via VBA excel et je souhaite faire une requête Access pour mettre à jour une table qui n'autorise pas les doublons pour le champs ID. Lors que ma requête s’exécute j'ai un message d'erreur car celle-ci crée une nouvelle entrée au lieu de la mettre à jour.

Si quelqu'un peut m'aider, mer d'avance

Voici le code de ma requête:

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
30
31
32
33
34
35
36
37
38
39
40
 
'mise a jour de la fiche
Sub MajSiren(SIREN)
    Dim Cn As ADODB.Connection
    Dim texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim i As Integer
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "MSDASQL"
        .Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
    End With
    '-----------------
    'création d'un nouveau recordset
    texte_SQL = "SELECT * From [Associations] WHERE ID = '" & SIREN & "'"
    Set Rst = New ADODB.Recordset
    'ouverture de la table en référence
    Rst.Open "Associations", Cn, adOpenKeyset, adLockOptimistic, adCmdTable
       'affectation de la valeur des champs du formulaire dans le RecordSet
        Rst.Fields(1).Value = Me.ChSiren
        Rst.Fields(2).Value = Me.ChRaison
        Rst.Fields(4).Value = Me.ChAdresse
        Rst.Fields(7).Value = Me.ChVille
        Rst.Fields(6).Value = Me.ChCode
        Rst.Fields(9).Value = Me.ChNaf
        Rst.Fields(10).Value = Me.ChLibelle
        Rst.Fields(16).Value = Me.ChSecteur
        Rst.Fields(17).Value = Me.ChDelegation
    'Enregistrement du RecordSet dans la table
    Rst.Update
    MsgBox "Enregistrement Effectué"
   '--- Fermeture connexion ---
    Rst.Close
    Cn.Close
    Set Cn = Nothing
    Set Rst = Nothing
    'fermeture du formulaire
    Unload FormSiren
End Sub

[marot_r]

Bonjour.

Tu ne precise pas le type d'operation que tu veux faire, le probleme vient peut-etre de la.

Code :

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

1
2
3
4
    Rst.Open "Associations", Cn, adOpenKeyset, adLockOptimistic, adCmdTable
       'affectation de la valeur des champs du formulaire dans le RecordSet
        Rst.edit
        Rst![ChSiren] = Me.ChSiren

Aussi il est TRES imprudent d'assigner des valeurs en function de la position du champ.
La position d'un champ pouvant changer.
Il est recommande, sauf rares exceptions, de se referer aux champs par leur nom.
Et en plus c'est plus clair pour l'humain.

Si tu as besoin d'avoir un nom variable tu peux faire

Code :

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

1
2
3
dim nomChamp as string
'ici du code qui assigne une valeur a NomChamp
Rst.fields(NomChamp)=UneValeur

Et le .value est optionel pour les objets Field.

A+

[Invité]

Bonjour,
Edit c'est DAO pas ADO.

pour la position du champs entièrement d’accord.

Code :

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

1
2
3
 
 .Fields("ChSiren").Value = Me.ChSiren
 !ChSiren.Value = Me.ChSiren

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
Sub MajSiren(SIREN)
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & BDD & ";"
            With .Execute("SELECT * From [Associations] WHERE ID = '" & SIREN & "'")
                If .EOF Then .AddNew
                .Fields(1).Value = Me.ChSiren
                .Fields(2).Value = Me.ChRaison
                .Fields(4).Value = Me.ChAdresse
                .Fields(7).Value = Me.ChVille
                .Fields(6).Value = Me.ChCode
                .Fields(9).Value = Me.ChNaf
                .Fields(10).Value = Me.ChLibelle
                .Fields(16).Value = Me.ChSecteur
                .Fields(17).Value = Me.ChDelegation
                .Update
                .Close
            End With
           .Close
    End With
    MsgBox "Enregistrement Effectué"
 End Sub

[marot_r]

Bonjour dysorthographie.

Le probleme de Treize013 est justement que son code ajoute un enregistrement au lieu de le modifier.

A+

[Invité]

il n'y a pas d'ajout possible sens l'instruction

Code :

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

If .EOF Then .AddNew

AddNew 'Ajout
Fields(1).Value = Me.ChSiren
update


en revanche si Me.ChSiren est null erreur => Fields(1).Value ="" & Me.ChSiren

[marot_r]

C'est ce que je pensais mais j'utilise rarement ADO.

Donc le probleme pourrait venir des donnees selectionnees.
SIREN n'a peut-etre pas la valeur que Treize013 pense qu'elle a.

@Treize013 verifie la valeur de ta clef au moment de l'execution.

aussi je t'invite a typer ton parameter SIREN en faisant :

Code :

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

Sub MajSiren(SIREN as string)

Plus le compilateur peut faire de verification pour toi moins tu risques des erreurs en production.
Ce n'est pas 100% garanti mais ca aide.

A+

[Invité]

Paradoxalement il utilise Me.ChSiren alors que Siren est sensé être passé en paramètres à MajSiren???

Donc il filtre Siren et modifie la valeur par ChSiren si Siren<>ChSiren il y a risque doublons !

En fait il n'y a pas d'ajout mais juste une modification d'une clé unique par une qui existe déjà.

[Treize013]

Oui effectivement je pense que mes paramètres de fonction été en conflit. En changeant tout ça, un simple Rst.Update et ça fonctionne parfaitement. Merci pour votre aide.

PS: j'ai aussi suivi vos conseilles pour appeler les champs via leur nom et non leur position.