Bonjour,
j'ai un soucis au niveau d'access. Lorsque je fait une requête d'insertion mon enregistrement ne se met pas à jours.
Voici la requête :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
UPDATE D0Pointr SET D0CodActif='A', D0KyLogemt='41495', D0KyPropri='228', D0NumrDoss='1079', D0DatCreat='26/07/2002', D0DatModif='26/09/2017 13:08:49', D0Concerne='IH', D0DatDebut='09/05/1988', D0DatFinal='26/09/2017', D0EnAttent='N', D0BaOccupe='_', D0remarque='du texte', D0SitPropr='T', D0CodDistr='TO', D0CodCadas='001H    ', D0CodInsRu='1315', D0CodNoImm='0014', D0CodIndex='', D0ReparCom='I' WHERE D0KeyIdent=305
celle-ci s’exécute sans problème mais le record ne se met pas à jours.

et lorsque j'utilise cette manière. L'enregistrement se met à jours mais lorsque je quitte l'application et que je fait mon select, je ne retrouve pas l'enregistrement modififé :
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
 .Fields("D0CodActif").Value = GlossCode("ACT", CmbD0CodActif.SelectedItem)
            .Fields("D0KyLogemt").Value = Val(TxtD0KyLogemt.Text)
            .Fields("D0KyPropri").Value = Val(TxtD0KyPropri.Text)
            .Fields("D0NumrDoss").Value = Val(TxtD0NumrDoss.Text)
            .Fields("D0DatCreat").Value = StringToDate((TxtD0DatCreat.Text))
            .Fields("D0DatModif").Value = Now
            .Fields("D0Concerne").Value = GlossCode("CRN", CmbD0Concerne.SelectedItem)
            .Fields("D0DatDebut").Value = StringToDate((TxtD0DatDebut.Text))
            .Fields("D0DatFinal").Value = StringToDate((TxtD0DatFinal.Text), True)
            .Fields("D0EnAttent").Value = TxtD0EnAttent.Text
            .Fields("D0BaOccupe").Value = TxtD0BaOccupe.Text
 
            If Not String.IsNullOrEmpty(TxtD0Remarque.Text) Or Not IsDBNull(.Fields("D0remarque").Value) Then 'If TxtD0Remarque.Text <> "" Or Not IsDBNull(.Fields("D0remarque").Value) Then
                .Fields("D0remarque").Value = TxtD0Remarque.Text
            End If
 
            .Fields("D0SitPropr").Value = SvSitPropr 'WkSitPropr = Determine_SitPropr(!PrAdresPos, !PrAdresPay)
            .Fields("D0CodDistr").Value = SvCodDistr
            .Fields("D0CodCadas").Value = SvCodCadas
            .Fields("D0CodInsRu").Value = SvCodInsRu
            .Fields("D0CodNoImm").Value = SvCodNoImm
            .Fields("D0CodIndex").Value = SvCodIndex
            .Fields("D0ReparCom").Value = SvReparCom
            .Update()
Auriez-vous une idée de ce qu'il se passe car je n'y comprend rien ?
D'avance merci.