[VB6] Campo testo troppo lungo

[generationweb.i]

Salve ragazzi ho una maschera nella quale inserisco dei dati in diversi campi e i dati stessi verranno inviati in un foglio word per la stampa.Ho un problema in uno dei campi, il campo testo. Praticamente mi da il seguente errore:

Errore di run-time 4198 Comando fallito mi dice praticamente che il testo immesso è troppo lungo.Dato che a me questo campo mi interessa averlo lungo come faccio per nn far capitare un errore del genere??

[oregon]

Quello che hai detto non e' chiaro ...

Forse inserisci una stringa troppo lunga per un campo del tuo database? C'e' un database? Quel campo come e' dichiarato?

[generationweb.i]

ah si scusami non è un campo che fa riferimento ad un record del DB è una taxtbox a parte.

[oregon]

Sì ... però non è che hai chiarito tanto ... potresti essere più dettagliato?

1) C'e' un DB?

2) Quale DB?

3) Il campo di cui parli di che tipo e' nel DB?

4) Qual e' la lunghezza dichiarata nel DB?

[generationweb.i]

allora il DB c'è ma questo campo non centra nulla col DB, è un campo che serve solo per passare la variabile contenuta in esso a Word,praticamente è il campo descrizione.Il mio obiettivo è questo: impostare il valore della textbox Descrizione su maxlenght:5000 e non 255 (caratteri), fatto questo mi da l'errore 5854 Paramtreo di stringa troppo lungo

esiste un modo per impostare alla textbox un valore massimo di caratteri pari a 5000???

Questo è il problema mio findamentale

[oregon]

Se ho capito, il limite e' "by design" ... puoi provare il work around leggendo questo

http://support.microsoft.com/kb/212543

[generationweb.i]

esatto avevo trovato anche io questo problema ma nn so proprio come integrarlo nel mio progetto VVoVe: VVoVe: VVoVe: VVoVe: VVoVe:

Mi daresti una mano??

[oregon]

Non so se riesco ... ma se fai vedere tutto il codice dove si manifesta l'errore ...

[generationweb.i]

Con questa procedura sostituisco le variabili inserite nel foglio word, ti ho evidenziato in grassetto la parte che mi evidenzia dopo l'errore di run-time

Public Sub InsWord(sVariabile As String, ByVal sValore As String, ByVal objWord As Word.Application)

objWord.Selection.Find.ClearFormatting
objWord.Selection.Find.Replacement.ClearFormatting

With objWord.Selection.Find
.Text = sVariabile
.Replacement.Text = sValore
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With

End Sub