Campo Memo

20/10/2003 - 16:02 por Alexander | Informe spam
Hola a todos!
Tengo una BD en Access2000Pro Esp. pequeña la cual
captura una informacion para imprimir en unos formuarios
preimpresos.
La idea es que en uno de los campos por el tamaño lo he
creado tipo memo, pero ahi tengo un pequeño problema pues
le he creado una opcion por codigo que cuando llegue la
un limite de caracteres me emita un mensaje "LLego al
tope" pero cuando sucede esto se borra la gran mayoria de
la informacion de ese campo que se ha ingresado y quiero
evitar que eso suceda( Que se borre el contenido del
campo).
este es el codigo que he escrito en la opcion al cambiar
Private Sub DescriptionOfPackagesGoods_Change()
If Len(Me.DescriptionOfPackagesGoods.Text) >= 1100
Then
Me.DescriptionOfPackagesGoods.Value = Left
(Me.DescriptionOfPackagesGoods.Text, 1100)
Me.DescriptionOfPackagesGoods.SelStart = 1100
MsgBox "Se ha llegado al tope"
End If
End Sub
Quiero saber cual puede ser el error o donde hay que
hacer algun cambio para que funcione adecuadamente lo que
se quiere.
Agradezco la colaboracion.
Alexander
Bogota-Colombia.
 

Leer las respuestas

#1 Juan M. Afan de Ribera
20/10/2003 - 19:32 | Informe spam
Hola Alexander,

yo he hecho una prueba con el código que pones aquí y no me ha hecho nada
raro. Al llegar al límite de caracteres, ha recortado la longitud del campo
y ha mostrado un mensaje, quedando el cursor en la última posición. La
totalidad del mensaje estaba ahí. ¿Tienes algún código más que no hayas
mostrado aquí y que pudiera provocar lo que comentas?

Saludos desde Barcelona
Juan M. Afan de Ribera
<MVP Ms Access>
http://www.juanmafan.tk
http://www.clikear.com/webs4/juanmafan


"Alexander" escribió en el mensaje
news:090001c39712$d933c500$
Hola a todos!
Tengo una BD en Access2000Pro Esp. pequeña la cual
captura una informacion para imprimir en unos formuarios
preimpresos.
La idea es que en uno de los campos por el tamaño lo he
creado tipo memo, pero ahi tengo un pequeño problema pues
le he creado una opcion por codigo que cuando llegue la
un limite de caracteres me emita un mensaje "LLego al
tope" pero cuando sucede esto se borra la gran mayoria de
la informacion de ese campo que se ha ingresado y quiero
evitar que eso suceda( Que se borre el contenido del
campo).
este es el codigo que he escrito en la opcion al cambiar
Private Sub DescriptionOfPackagesGoods_Change()
If Len(Me.DescriptionOfPackagesGoods.Text) >= 1100
Then
Me.DescriptionOfPackagesGoods.Value = Left
(Me.DescriptionOfPackagesGoods.Text, 1100)
Me.DescriptionOfPackagesGoods.SelStart = 1100
MsgBox "Se ha llegado al tope"
End If
End Sub
Quiero saber cual puede ser el error o donde hay que
hacer algun cambio para que funcione adecuadamente lo que
se quiere.
Agradezco la colaboracion.
Alexander
Bogota-Colombia.

Preguntas similares