Discussion :

[jonaskikodio]

Bonjour à tous

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
Dim mabase as Database 
Dim journ as recordset
dim action as string 
dim Modif as variant
 
    set mabase =currentdb
    set journ =mabase.Openrecordset("journal")
 
    Modif=Me!DEBUT
    camp=Me!CAMP_ID 
    tete=Me!HEAD
    user=Me!user
    action="UPDATE drill_log set DEBUT ="& Modif &" where CAMP_ID="& camp &" and HEAD='"& tete &"' "
    with journ 
        .addnew
        .fields(2)= action
        .UPDATE
    END with 
end sub

mon code après execution affiche l'erreur que la cle primaire ne peut pas être vide merci pour votre lecture

[Jeannot45]

En fait, l'instruction AddNew ajoute un nouvel enregistrement au jeu que tu as définit dans ton recordset
Hors, je pense que tu souhaites mettre à jour une donnée d'un enregistrement existant.
Ton Code devrait plutôt etre :

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
Dim mabase as Database 
Dim journ as recordset
dim action as string 
dim Modif as variant
 
    set mabase =currentdb
    set journ =mabase.Openrecordset("journal")
 
    Modif=Me!DEBUT
    camp=Me!CAMP_ID 
    tete=Me!HEAD
    user=Me!user
    action="UPDATE drill_log set DEBUT ="& Modif &" where CAMP_ID="& camp &" and HEAD='"& tete &"' "
 
    With DoCmd
        ' Désactive les messages système
        . SetWarnings False
        ' Execute la requete de mise à jour
        . RunSql action
        ' Réactive les message système
        . SetWarnings True
        ' Sauvegarde l'enregistrement modifié
        . RunCommand acCmdSaveRecord
    End With 
end sub

Bonne continuation

[jonaskikodio]

Merci M. Jeannot pour la réponse mais j'ai exécute ton sa change toute les ligne debut de ma table.Ne changement ne se limite pas à une seule ligne. Merci pour la reponse encore

[Jeannot45]

Il faudrait vérifier les valeurs de tes critères dans ta commande Sql
Je veux parler des variables Camp et Tete qui ne sont pas déclarées

D'autre part, il manque des espaces dans ta syntaxe SQL :

Code :

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

action="UPDATE drill_log SET DEBUT = " & Modif & " WHERE CAMP_ID= " & camp & " AND HEAD= '" & tete & "' "