OVH Cloud OVH Cloud

Erreur d'exécution 3163

4 réponses
Avatar
Guy FALESSE
Bonjour à tous,

Dans un champ texte pouvant recevoir 50 caractères, je veux encoder cette
donnée:[receveur Acryl blanc 80x80] sans les crochets bien sûr.
Cette chaîne à une longueur 26 caractères et malgré cela j'ai droit à
l'erreur 3163, "le champ est trop petit pour accepter etc.
Là, je n'y comprends rien, si quelque'un pouvait m'aider, cela m'arrangerait
bien.
D'avance merci.

Guy FALESSE

4 réponses

Avatar
3stone
Salut,

"Guy FALESSE"
Dans un champ texte pouvant recevoir 50 caractères, je veux encoder cette
donnée:[receveur Acryl blanc 80x80] sans les crochets bien sûr.
Cette chaîne à une longueur 26 caractères et malgré cela j'ai droit à
l'erreur 3163, "le champ est trop petit pour accepter etc.
Là, je n'y comprends rien, si quelque'un pouvait m'aider, cela m'arrangerait
bien.



Hmmm...

Tu as essayer directement dans la table / requête ?

pas de "validation" qui traîne ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Guy FALESSE
Salut Pierre,
Merci pour ta réponse.
Je viens de tester, aucun problème de copie de table vers table.
J'avais un Me.Refresh que je viens de supprimer et le message est toujours
là, j'ai augmenté la longueur du champ à 100 caractères.
Voici mon code éventuellement:
Private Sub Commande11_Click()
Dim meF As Form, ChampQté As String, meS
If EstChargé("frmDevisForfait") Then
Set meF = Forms!frmDevisForfait
End If
If EstChargé("frmDevisRégie") Then
Set meF = Forms!frmDevisRégie
End If
meF!frmSousDevisForfait!Famille = Me!Famille
meF!frmSousDevisForfait!Articles = Me!Articles
meF!frmSousDevisForfait!Unité = Me!Unité
meF!frmSousDevisForfait!PrixUnitaire = Me!PrixUnitaire
ChampQté = InputBox("Veuillez entrer la quantité d'articles" & vbLf & _
"l'unité étant: " & meF!frmSousDevisForfait!Unité,
"Qté articles")
meF!frmSousDevisForfait!Qté = ChampQté
' meF.Refresh
DoCmd.GoToRecord , , acLast
DoCmd.Close acForm, "frmFamilleCatalogue"
DoCmd.Close acForm, "TableauCatalogue"
'DoCmd.RunCommand acCmdSave
Set meF = Nothing
End Sub


"3stone" a écrit dans le message de
news:
Salut,

"Guy FALESSE"
Dans un champ texte pouvant recevoir 50 caractères, je veux encoder
cette


donnée:[receveur Acryl blanc 80x80] sans les crochets bien sûr.
Cette chaîne à une longueur 26 caractères et malgré cela j'ai droit à
l'erreur 3163, "le champ est trop petit pour accepter etc.
Là, je n'y comprends rien, si quelque'un pouvait m'aider, cela
m'arrangerait


bien.



Hmmm...

Tu as essayer directement dans la table / requête ?

pas de "validation" qui traîne ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







Avatar
Guy FALESSE
Salut Pierre,

Je viens de tester plusieurs longueur, 25 caractères seraient la limite
maximum alors que je viens de monter la longueur possible dans la table à
255, est-ce qu'il n'y aurait aucun rapport?
D'avance merci,

Guy FALESSE


"Guy FALESSE" a écrit dans le message de
news:
Salut Pierre,
Merci pour ta réponse.
Je viens de tester, aucun problème de copie de table vers table.
J'avais un Me.Refresh que je viens de supprimer et le message est toujours
là, j'ai augmenté la longueur du champ à 100 caractères.
Voici mon code éventuellement:
Private Sub Commande11_Click()
Dim meF As Form, ChampQté As String, meS
If EstChargé("frmDevisForfait") Then
Set meF = Forms!frmDevisForfait
End If
If EstChargé("frmDevisRégie") Then
Set meF = Forms!frmDevisRégie
End If
meF!frmSousDevisForfait!Famille = Me!Famille
meF!frmSousDevisForfait!Articles = Me!Articles
meF!frmSousDevisForfait!Unité = Me!Unité
meF!frmSousDevisForfait!PrixUnitaire = Me!PrixUnitaire
ChampQté = InputBox("Veuillez entrer la quantité d'articles" & vbLf &
_

"l'unité étant: " & meF!frmSousDevisForfait!Unité,
"Qté articles")
meF!frmSousDevisForfait!Qté = ChampQté
' meF.Refresh
DoCmd.GoToRecord , , acLast
DoCmd.Close acForm, "frmFamilleCatalogue"
DoCmd.Close acForm, "TableauCatalogue"
'DoCmd.RunCommand acCmdSave
Set meF = Nothing
End Sub


"3stone" a écrit dans le message de
news:
Salut,

"Guy FALESSE"
Dans un champ texte pouvant recevoir 50 caractères, je veux encoder
cette


donnée:[receveur Acryl blanc 80x80] sans les crochets bien sûr.
Cette chaîne à une longueur 26 caractères et malgré cela j'ai droit à
l'erreur 3163, "le champ est trop petit pour accepter etc.
Là, je n'y comprends rien, si quelque'un pouvait m'aider, cela
m'arrangerait


bien.



Hmmm...

Tu as essayer directement dans la table / requête ?

pas de "validation" qui traîne ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------











Avatar
Guy FALESSE
ReReRe salut Pierre,

Ne cherche plus, il y avait sans doute des caractères bizarres, maintenant,
que j'ai recopié à la main, tout fonctionne.
Ce n'était pas moi qui avait introduit les articles, alors...
Encore que...me connaissant :-)
Merci d'avoir cherché.
@+

Guy FALESSE


"Guy FALESSE" a écrit dans le message de
news:%
Salut Pierre,

Je viens de tester plusieurs longueur, 25 caractères seraient la limite
maximum alors que je viens de monter la longueur possible dans la table à
255, est-ce qu'il n'y aurait aucun rapport?
D'avance merci,

Guy FALESSE


"Guy FALESSE" a écrit dans le message de
news:
Salut Pierre,
Merci pour ta réponse.
Je viens de tester, aucun problème de copie de table vers table.
J'avais un Me.Refresh que je viens de supprimer et le message est
toujours


là, j'ai augmenté la longueur du champ à 100 caractères.
Voici mon code éventuellement:
Private Sub Commande11_Click()
Dim meF As Form, ChampQté As String, meS
If EstChargé("frmDevisForfait") Then
Set meF = Forms!frmDevisForfait
End If
If EstChargé("frmDevisRégie") Then
Set meF = Forms!frmDevisRégie
End If
meF!frmSousDevisForfait!Famille = Me!Famille
meF!frmSousDevisForfait!Articles = Me!Articles
meF!frmSousDevisForfait!Unité = Me!Unité
meF!frmSousDevisForfait!PrixUnitaire = Me!PrixUnitaire
ChampQté = InputBox("Veuillez entrer la quantité d'articles" & vbLf
&


_
"l'unité étant: " &
meF!frmSousDevisForfait!Unité,


"Qté articles")
meF!frmSousDevisForfait!Qté = ChampQté
' meF.Refresh
DoCmd.GoToRecord , , acLast
DoCmd.Close acForm, "frmFamilleCatalogue"
DoCmd.Close acForm, "TableauCatalogue"
'DoCmd.RunCommand acCmdSave
Set meF = Nothing
End Sub


"3stone" a écrit dans le message de
news:
Salut,

"Guy FALESSE"
Dans un champ texte pouvant recevoir 50 caractères, je veux encoder
cette


donnée:[receveur Acryl blanc 80x80] sans les crochets bien sûr.
Cette chaîne à une longueur 26 caractères et malgré cela j'ai droit
à




l'erreur 3163, "le champ est trop petit pour accepter etc.
Là, je n'y comprends rien, si quelque'un pouvait m'aider, cela
m'arrangerait


bien.



Hmmm...

Tu as essayer directement dans la table / requête ?

pas de "validation" qui traîne ?


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------