Discussion :

[marycaLou]

Bonjour,

J'ai une base de données comprenant des champs "date" dans lequel je dois enlever les informations enregistrées.
Ce champs a comme propriété Null interdit = Non.

Comment peut-on vider un champs date. Lorsque j'essaie, j'ai un message d'erreur ou une date erronée.
Voici un exemple de mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim dbases As Database
    Dim TArch As Recordset
    Dim reSQL  As String
    Dim stNoProjet As String       
    Set dbases = CurrentDb
    reSQL = Forms![bProjet]![bSSDosLst].Form.RecordSource
    Set TArch = dbases.OpenRecordset(reSQL)
...
  TArch.Edit
  TArch.Fields("aEnDateTra") = ""
...
  TArch.MoveNext

Lorsque j'active le code, j'ai un message d'erreur : "3421 - Erreur de conversion de type de données."

Si je modifie mon code pour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim dbases As Database
    Dim TArch As Recordset
    Dim reSQL  As String
    Dim stNoProjet As String       
    Set dbases = CurrentDb
    reSQL = Forms![bProjet]![bSSDosLst].Form.RecordSource
    Set TArch = dbases.OpenRecordset(reSQL)
...
  TArch.Edit
  TArch.Fields("aEnDateTra") = IsNull("")
...
  TArch.MoveNext

Je n'ai pas d'erreur mais la valeur inscrite dans ce champs est "1899-12-30".

Ce que je dois avoir est aucune date. Le champs doit être vide. Comment faire.

Merci.

[jimbolion]

marycaLou bonjour

Essaye tout simplement :

Code :

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

TArch.Fields("aEnDateTra") = Null

Cldt

Jimbolion

[marycaLou]

Merci. Ça a fonctionné.