Utilisation incorrecte de Null

Eh bien vérifie...

Au point d'arrêt, met toi dans la fenêtre de débogage et inscrit :

Code:

---

?orsaccess!oedatenvoicde

---

puis

Code:

---

?Nz(orsaccess!oedatenvoicde,0)

---

Qu'est-ce que ça donne ?

Je n'y comprends plus rien. Le programme s'arrête maintenant à la ligne 140 sur oedatconfcde !
Regarde ce que ce champ contient !!!

Bien prend le problème à bras le corps...

Déclare des variables en amont de type Variant , et String qui prennent les valeurs respectives de tous tes champs et transforme ta chaîne SQL avec celles-ci.

Un truc du style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim vntOEDatEnvoiCde, strOEDatEnvoiCde As String   vntOEDatEnvoiCde = oRsAccess.Fields("oedatenvoicde") If IsNull(vntOEDatEnvoiCde) Then strOEDatEnvoiCde = "00000000" Else If IsDate(CDate(vntOEDatEnvoiCde)) Then vntOEDatEnvoiCde = CDate(vntOEDatEnvoiCde) strOEDatEnvoiCde = Format(Val(Day(vntOEDatEnvoiCde)), "00") & Format(Val(Month(vntOEDatEnvoiCde)), "00") & Format(Val(Year(vntOEDatEnvoiCde)), "00") Else strOEDatEnvoiCde = "00000000" End If End If   ' ' ' [...]   strSQL = strSQL & "'" & strOEDatEnvoiCde & "', " [...]

---

Et ce pour chaque champ.

Remarque :
Bien que la syntaxe

Code:

---

RS!Field

---

soit acceptable et équivalente, je préfère

Code:

---

RS.Fields("NomDuChamp")

---

ou encore

Code:

---

RS("Field")

---

Argy

Finalement, je suis passé par mon formulaire. Je l'ai "chargé" avec tous les champs dont j'avais besoin en cachant ceux qui sont déjà complétés en amont
Plus de problème !

Merci pour ton aide Argy !