Discussion :

[sdouai]

Bonjour,

N'étant un professionnel d'Access, j'ai un petit soucis lors de la saisie d'un formulaire saisissant un bon de commande: l'erreur est la suivante:

erreur 3163 "le champ est trop petit pour accepter la quantité de données que vous voulez ajoute. Essayez d'insérer ou de coller moins de données."

Ma base contient 4 tables: Produits, Fournisseurs, commandes et ligne de commande.

J'ai par ailleurs créé en VBA

Code :

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

1
2
3
4
Private Sub N_produit_AfterUpdate()
Me![Nom_produit] = Me![N_produit].Column(1)
Me![Prix_unitaire_HT] = Me![N_produit].Column(2)
End Sub

Afin de pouvoir en saisissant le code produit, avoir le nom et le prix

Ma base n'est pas très grosse, je ne comprends pas ce message d'erreur.

Auriez vous une idée? Par avance merci

[marot_r]

Bonjour.

Le message semble pointer sur un problème avec tes champs de données :

Code :

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

1
2
Me![Nom_produit]
Me![Prix_unitaire_HT]

Quels sont la taille et le type de chacun des champs ?

Par exemple ton champ Nom_Produit pourrait être dimensionné à 5 caractères et que tu essayes d'y mettre 6 ou plus.
Pour le champ Prix_unitaire, peut-être que Access ne voit pas Me![N_produit].Column(2) comme un nombre mais comme du texte.

A+

[sdouai]

Bonjour.

Le message semble pointer sur un problème avec tes champs de données :

Code :

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

1
2
Me![Nom_produit]
Me![Prix_unitaire_HT]

Quels sont la taille et le type de chacun des champs ?

Par exemple ton champ Nom_Produit pourrait être dimensionné à 5 caractères et que tu essayes d'y mettre 6 ou plus.
Pour le champ Prix_unitaire, peut-être que Access ne voit pas Me![N_produit].Column(2) comme un nombre mais comme du texte.

A+

Nom_produit: format texte, taille du champ 255
Prix_unitaire_HT: Format monétaire euro
N_produit: Format numauto

[sdouai]

[QUOTE=sdouai;10072314]Nom_produit: format texte, taille du champ 255
Prix_unitaire_HT: Format monétaire euro
N_produit: Format numauto

En fait je pense qu'il faut dimensionner les champs dans VBA mais je ne sais pas comment faire.

Le problème se situe dans le sous formulaire: j'ai crée une requête simple de type sélection sur la table produit (3 champs) puis ai créé un code Vba pour avoir le nom et le prix du produit en saisissant le numéro du produit. Ma base est toute petite, j'ai 18 bons de commande;

A+
Sdouai

[titi95]

Bonjour

N_Produit représente quoi exactement : formulaire, zone de texte, champ de table... ?

Titi95

[sdouai]

Bonjour

N_Produit représente quoi exactement : formulaire, zone de texte, champ de table... ?

Titi95

N_produit représente un champ de la table COMMANDE lié à la table PRODUIT

A+

[sdouai]

N_produit représente un champ de la table COMMANDE lié à la table PRODUIT

A+

[titi95]

Pourquoi l'utilises-tu avec Column si c'est un NumAuto de la table ?

Titi95

[marot_r]

Bonjour.

Les contrôles textes dans un formulaire ont une limite d'environ 32000 caractères donc pas de soucis de ce côté là.

• Nom_produit: format texte, taille du champ 255
• Prix_unitaire_HT: Format monétaire euro
• N_produit: Format numauto

Il ne semble pas y avoir de problème de taille du récepteur donc c'est probablement la source le problème.

Pour faire un test, modifie ton code comme suit :

Code :

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

1
2
3
4
5
Me![Nom_produit] = "Test"
msgbox len(Me.[N_produit].Column(1))
 
Me![Prix_unitaire_HT] = 1.1234
msgbox len(Me.[N_produit].Column(2))

Cela va valider 2 choses :

1. Est-ce que tu peux bien mettre une valeur dans le champ ?
2. Quelle est la longueur que voit Access ?

Quel est le résultat du test ?

A+

[sdouai]

Bonjour.

Les contrôles textes dans un formulaire ont une limite d'environ 32000 caractères donc pas de soucis de ce côté là.

• Nom_produit: format texte, taille du champ 255
• Prix_unitaire_HT: Format monétaire euro
• N_produit: Format numauto

Il ne semble pas y avoir de problème de taille du récepteur donc c'est probablement la source le problème.

Pour faire un test, modifie ton code comme suit :

Code :

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

1
2
3
4
5
Me![Nom_produit] = "Test"
msgbox len(Me.[N_produit].Column(1))
 
Me![Prix_unitaire_HT] = 1.1234
msgbox len(Me.[N_produit].Column(2))

Cela va valider 2 choses :

1. Est-ce que tu peux bien mettre une valeur dans le champ ?
2. Quelle est la longueur que voit Access ?

Quel est le résultat du test ?

A+

Désolé j’etais Pris, je n’ai pas eu le temps de faire le test.
Je vais le faire et je te tiendrais au courant.
A+