Discussion :

[dharkan]

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.

[zitoune92]

Pour être correct, ta requête est une requête de modification, pas d'insertion (tu ne crée pas de nouvel enregistrement).
Ensuite, tes champs sont ils bien tous les textes ? (les simples quotes semblent l'indiquer). Si ce n'est pas le cas, c'est la raison pour que cela ne marche pas. Le SET doit respecter les formats des champs mis à jour