Erreur : Le champ ne peut pas être une chaîne vide

**supertoms** · 22/04/2008, 11h56

Salut à tous, voici 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Compare Database
Option Explicit
 
Private Sub benr_Click()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim i As Integer
i = 1
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("TRAVAIL", dbOpenTable)
oRst.AddNew
While (i < Me.nbdk)
oRst.Fields("identifiant").Value = Me.Controls("titre" & i)
oRst.Fields("n_ou_wp").Value = Me.Controls("nwep" & i)
oRst.Fields("nom").Value = Me.Controls("nom" & i)
oRst.Fields("date_deb_prev").Value = Me.Controls("debut" & i)
oRst.Fields("date_fin_prev").Value = Me.Controls("fin" & i)
oRst.Fields("service").Value = Me.Controls("service" & i)
oRst.Fields("type_cout").Value = Me.Controls("typec" & i)
oRst.Fields("origine_cout_achat").Value = Me.Controls("originec" & i)
oRst.Fields("frais_appro_prev").Value = Me.Controls("fraisapp" & i)
oRst.Fields("tradegroup").Value = Me.Controls("tradegroup" & i)
oRst.Fields("heures_mont_prev").Value = Me.Controls("hmontant" & i)
oRst.Fields("TUO").Value = Me.Controls("tuo" & i)
i = i + 1
Wend
oRst.Update
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

Et j'ai l'erreur :"Le champ TRAVAIL.date_deb_prev" ne peut pas être une chaîne vide.
D'ou cela peut-il venir ?
Merci d'avance !

**Jean-Philippe André** · 22/04/2008, 12h12

Salut,
la ligne qui pose problème serait donc celle-ci :

Code :

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

oRst.Fields("date_deb_prev").Value = Me.Controls("debut" & i)

Que vaut Me.Controls("debut" & i) ?
Si tu as Null ou "", il faut gérer soit les propriétés du champs, soit adapter ton code

**cavo789** · 22/04/2008, 12h18

Es-tu sûr que ton contrôle est non vide ? Exactement comme indiqué par jpcheck.

Si le champs pourrait être vide; tu peux indiquer cela dans les propriétés de ta table. Fais un design sur la table et indique "Allow null value" et "Allow zero length" dans les propriétés du champs.

**supertoms** · 22/04/2008, 13h16

Oui l'erreur vient de là (quand je met une valeur dans le champ, ça marche), mais ce que je ne comprends pas c'est "pourquoi là ?" car j'ai crée tous mes champs de la même façon !
Bref ceci n'a pas grande importance, ce qu'il faut c'est que je fasse la propriété qu'a mentionné cavo789. Ou dois-je la mettre ou la trouver exactement je ne trouve pas ?
Quand je regarde les propriétés de ma cellule dans ma table il n'y a pas ce que je cherche, il y a : "Description", "valide si", "message si erreur" etc.