Discussion :

[Aladin_23]

Bonsoir le forum
J' ai une table environnement composé d' in champ texte de 255 caracteres
le code qui alimente cette table fonctionne parfaitement sous access 2003 et Windows Xp. Ce meme code me donne l' erreur suivante "erreur d' execution 3163 le champ est trop petit pour accepter la quantité de donnée ...etc
Voici le 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
Dim Db As DAO.Database
Dim tdf As DAO.TableDef
Dim rst As DAO.Recordset
Dim N As Integer
Set Db = CurrentDb()
Set tdf = Db.CreateTableDef("tblEnvironDetails")
With tdf
.Fields.Append .CreateField("EnvironValue", dbText)
End With
Set rst = Db.OpenRecordset("tblEnvironDetails", dbOpenDynaset)
N = 1
Do Until Environ(N) = ""
rst.AddNew
rst!environvalue = Environ(N)
rst.Update
N = N + 1
Loop
rst.Close
Db.Close

Je ne vois ou est le pb car il fonctionne tres bien en version anterieur
Merci d' avance pour toute aide
Aladin

[helas]

Bonjour,
la taille du champ Texte n'étant pas spécifiée elle prend la valeur par défaut suivant les options ( 40 caractères à l'installation)
Il faudrait préciser la taille comme ceci

Code :

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

1
2
 
.Fields.Append .CreateField("EnvironValue", dbText, 255)

[Aladin_23]

Bonjour helas et le forum
Merci d' avoir réponsdu , J' ai essayé ta correction sur le code mais j' ai toujours la meme erreur et le code se bloque sur cette ligne

Code :

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

rst!environvalue = Environ(N)

Aladin

[FreeAccess]

Bonjour,

L'erreur est normale, car tu essaie de récupérer des variables d'environnement qui peuvent contenir plus de 255 caractères....donc effectivement ton champ texte est trop petit....

Dans ta table tblEnvironDetails, change le type du champ EnvironValue de texte à Mémo...

[Aladin_23]

Bonsoir FreeAccess et le forum
Effecteivement en passant le champ en type memo, je n' ai plus le message d' erreur, je pensais bien qu' il y avait une trop grande quantité de donnée a entre mais je n' ai pas pensé au champ de type memo
Merci pour ta réponse et bonne continuation
Aladin

[FreeAccess]

Pour te rendre compte de la longueur de tes variables ajoute dans ton code:

Code :

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

1
2
3
4
5
6
7
8
9
....
....
Do Until Environ(N) = ""
rst.AddNew
rst!environvalue = Environ(N)
MsgBox "Variable d'environnement n° " & N & vbCrLf & vbCrLf & Environ(N) & vbCrLf & vbCrLf & "Nombre de caractères = " & Len(Environ(N))
rst.Update
N = N + 1
Loop

[Aladin_23]

Bonjour FreeAccess et le forum
J' ai rajouté la ligne de de code et effectivement j' ai une variavle d' environnement qui fait 267 caractres, en conclusion cette seule variable bloquait le code.
Merci et bonne continuation
Aladin