Discussion :

[Marc_27]

Bonjour à tous,

cette fois je n'ai aucunne message d'erreur, mais j'ai une message qui demande l'enregistrement des donnés dans le presse-papiers, car l'enregistrement en cours a été modifié par une autre personne.

Voilà le code que j'utilise pour sauvegerder l'enregistrement (dans un bouton enregistrer):

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
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
If modif_form_glo = False Then
    aut = MsgBox("Formation enregistrée, voulez vous faire un autre demande?", vbYesNo)
    If aut = vbYes Then
        ORG.Value = ""
        DAT_INI.Value = Date
        If CD = -1 Then
            Set rs = New ADODB.Recordset
            rs.ActiveConnection = CurrentProject.Connection
            rs.Source = "SELECT * FROM [T_calendrier] WHERE [No]=" & nd
            rs.CursorType = adOpenDynamic
            rs.LockType = adLockOptimistic
            rs.Open
            rs![DAT_INI] = Null
            rs.Update
            rs.Close
        End If
        'MESSAGE DIT POUR ENREGISTRER LE PRESSE-PAPIER
        DoCmd.GoToRecord , , acNewRec
        Else
        If CD = -1 Then
            Set rs = New ADODB.Recordset
            rs.ActiveConnection = CurrentProject.Connection
            rs.Source = "SELECT * FROM [T_calendrier] WHERE [No]=" & nd
            rs.CursorType = adOpenDynamic
            rs.LockType = adLockOptimistic
            rs.Open
            rs![DAT_INI] = Null
            rs.Update
        End If
        DoCmd.Close
    End If
End If

OBS: la message ne apparaitre que dans le cas où aut=vbYes, et je l'ai mis comme une observation dans le code (en gris)

Merci d'avance

[mout1234]

Bonjour,


A moins qu'il ne s'agisse de variable non déclarée ou des globales (qu'il serait alors bon de revoir...), les lignes suivantes font référence à des champs du formulaire non?

Code :

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

1
2
3
 
        ORG.Value = ""
        DAT_INI.Value = Date

Si je ne me trompe pas, si tu mets ce code en commentaire, où que tu le places après ton NewRec, cela devrait faire disparaitre le message.

[Marc_27]

Oui.

ORG c'est une texbox et DAT_INI c'est un DatePicker.
modif_form_glo c'est une variable globale

J'ai fait l'invertion et le message a disparu.
Merci mout1234

[mout1234]

De rien.


Pour une lecture plus facile, je mets systématiquement une syntaxe moins ambigüe lorsque je référence un champ de mon formulaire....

Par exemple

Code :

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

1
2
3
4
 
Me!ORG
Me("ORG")
Me.Controls("ORG")