Discussion :

[jobal]

Salut,
J'ai un souci:
J'affiche sur une form dans un textbox, le champ d'une de mes tables qui est de type Memo (soit possibilité d'enregister jusqu'a 65000 caracteres theoriquement).
L'utilisateur tape son texte dans le textbox, et ce texte est sauvé dans ma table sur un lostfocus du textbox. Lorsque je rafraichis ma form, le texte est tronqué a hauteur de 500 caracteres environ... et la fin du texte est remplacé par une suite de 10-15 caracteres genre chinois, ou autre... et l'enregistrement dans la table est aussi tronqué.
Vous avez une idée de ce qu'il se passe?
Merci.

[MC2]

Hello,
peux-tu nous donner ta procédure d'enregistrement stp, de façon à reproduire ton cas.
Sinon, as-tu compacté ta base ?

[jobal]

Si tu veux parler du code d'enregistrement:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txtNote_LostFocus()
    Dim ReqSQL As String
 
    If Not Combo5.Value = "" Then
 
            ReqSQL = "UPDATE [Company] SET [Note] = txtNote.value WHERE [Code Company]= combo5.value"
            DoCmd.RunSQL (ReqSQL)
 
    End If
End Sub

sinon, je n'ai pas compacté la base.
Merci, parce que je suis vraiment paumé... et ce probleme me gene pas mal!

edit : cafeine, merci d'utiliser les balises code

[MC2]

Salut,
merci de placer ton code entre balises
ok, j'ai reproduit ton pb, cela vient du "txtNote.value" inclu dans la chaîne. De plus, il faut des quotes car c'est du texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txtNote_LostFocus()
Dim ReqSQL As String
 
If Not Combo5.Value = "" Then
 
ReqSQL = "UPDATE [Company] SET [Note] = '" & txtNote & "' WHERE [Code Company]= combo5.value"
DoCmd.RunSQL (ReqSQL)
 
End If
End Sub

De manière générale, distingue le code SQL des champs en les excluant de la chaîne de caractères. Ainsi, j'irai plus loin :

Code :

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

ReqSQL = "UPDATE [Company] SET [Note] = '" & Me.txtNote & "' WHERE [Code Company]= " & Me.combo5

A+

[Invité]

Salut,

L'autre solution au lieu dy textbox est de mettre dans ton formulaire l'active X Microsoft Rich Text Box control. Tu peut enregistrer ce que tu as saisi dans ton champ Memo.

Va voir l'esplorateur d'objet F2 pour voir toutes les propriétés une fois que tu l'aura placer dans ton formulaire.

Starec

[jobal]

Merci MC2!
Ca marche... a peu pres...
en fait, j'ai du mettre :

Code :

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

1
2
3
 
            ReqSQL = "UPDATE [Company] SET [Note] = '" & Me.txtNote & "' WHERE [Code Company]= Combo5.value"
            DoCmd.RunSQL (ReqSQL)

parce que si j'exclue le champs de la chaine de caractere, il considere que la valeur de ma variable combo5.value est en fait le nom d'une variable, et il me demande donc de la ressaisir... j'avais deja eu ce pb, et c'est pour ca que j'avais fait comme ca. (je ne comprend pas trop pourquoi ca fait ca d'ailleurs...).
Sinon, je disais "a peu pres" parce que je suis obligé de mettre des doubles quotes au debut et a la fin du texte que je tape... ce qui ne m'arrange pas trop. Est ce qu'il y aurait moyen de les rajouter automatiquement, ou de s'en passer?
Merci encore!

[jobal]

Merci Starec,
ca m'a l'air un peu plus compliqué (ou alors ca prend plus de temps parce que je connais pas du tout ces trucs la) donc j'irai regarder si rien d'autre ne marche.

[Invité]

Re

Aussi simple que le TextBox

Starec

[jobal]

Starec, j'ai essayé avec une richtextbox, mais ca fait la meme chose... (plein de caracteres bizards...)
est ce qu'il y a un reglage a faire?

[jobal]

bon, j'ai fini par resoudre tout ca...
ca s'est fini en

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
Private Sub txtNote_LostFocus()
Dim ReqSQL As String
Dim strNote As String
Dim strQuote As String
 
    strQuote = Chr$(34)
 
    strNote = Nz(txtNote.Value, " ")
 
 
    If Not Combo5.Value = "" Then
             ReqSQL = "UPDATE [Company] SET [Note] = " & strQuote & strNote & strQuote & " WHERE [Code Company]= combo5.value"
            DoCmd.RunSQL (ReqSQL)
 
    End If
End Sub

vous noterez donc la variable StrQuote qui ajoute le caractere " avant et apres la string a enregistrer.
Merci pour votre aide!