error de libreria

08/07/2003 - 20:53 por Jocha | Informe spam

Que tal grupo, buenas tardes saben en el sig. codigo me marca error de
libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me
empezaron a pasar despues de que baje el SP5, ¿alguno de ustedes saben si me
hace falta instalar otro SP o bajar una nueva actualizacion de microsoft?,
utilizo VB 6.0 y CR8.5
tambien me marca error en Date al asignar a DTpicker1, ejemplo DTpicker1 Date
antes me funcionaba correctamente, agradezco la ayuda, gracias y saludos.
PAZ EN EL MUNDO

'Separa datos a partir del primer espacio que encuentre
Private Sub SeparaDatos()
' Obtiene del usuario la cadena de búsqueda.
Search = " "
Where = InStr(Text1, Search) ' Busca la cadena en el texto.
Text1.SelStart = Where ' se establece el inicio de la selección y
N = Text1.SelStart
NCadena = Len(Text1) - N
PCadena = Left(Text1, N)
Scadena = Right(Text1, 4)
ValorT1 = PCadena
ValorT2 = Trim(Scadena)

End Sub

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Edgar Contreras

08/07/2003 - 21:25 | Informe spam

Que errores te marca?... asi de buenas a primeras me suena a que se
perdieron las referencias... fijate que en el cuadro de dialogo referencias
tengas todas las necesarias...

Saludos.
Edgar Contreras

(Guía de netiquette del foro)
http://perso.wanadoo.es/rubenvigon/foro

"La informacion es presentada como es y sin garantia alguna"

"Jocha" wrote in message
news:

Que tal grupo, buenas tardes saben en el sig. codigo me marca error de
libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me
empezaron a pasar despues de que baje el SP5, ¿alguno de ustedes saben si

hace falta instalar otro SP o bajar una nueva actualizacion de microsoft?,
utilizo VB 6.0 y CR8.5
tambien me marca error en Date al asignar a DTpicker1, ejemplo DTpicker1 > Date
antes me funcionaba correctamente, agradezco la ayuda, gracias y saludos.
PAZ EN EL MUNDO

'Separa datos a partir del primer espacio que encuentre
Private Sub SeparaDatos()
' Obtiene del usuario la cadena de búsqueda.
Search = " "
Where = InStr(Text1, Search) ' Busca la cadena en el texto.
Text1.SelStart = Where ' se establece el inicio de la selección y
N = Text1.SelStart
NCadena = Len(Text1) - N
PCadena = Left(Text1, N)
Scadena = Right(Text1, 4)
ValorT1 = PCadena
ValorT2 = Trim(Scadena)

End Sub

Responder a este mensaje

#2 RadioMan

08/07/2003 - 21:42 | Informe spam

Hola.

Ese error que reportas parece ser un problema de referencias, verifica que
no hayas perdido las referencias a anteriores versiones antes del SP5 y por
otro lado el asunto que mencionas de DTpicker1 = Date, creo que lo resuelves
con DTpicker1.Value = Date y creo que esta documentado el problema.

Saludos.

'//RadioMan
Asdrubal Velasquez
Puerto Ordaz - Venezuela

"Jocha" escribió en el mensaje
news:

Que tal grupo, buenas tardes saben en el sig. codigo me marca error de
libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me

Responder a este mensaje

#3 Jocha

11/07/2003 - 21:01 | Informe spam

Que tal grupo, ya encontre el problema, era una referncia a Cristal Report
8, la que me estaba provocando esa falla, yo uso CR 8.5, Saludos y gracias a
todos. PAZ EN EL MUNDO

"Jocha" escribió en el mensaje
news:

Que tal grupo, buenas tardes saben en el sig. codigo me marca error de
libreria en
Right(Text1, 4) y en Trim(Scadena), este tipo de errores y otros me
empezaron a pasar despues de que baje el SP5, ¿alguno de ustedes saben si

hace falta instalar otro SP o bajar una nueva actualizacion de microsoft?,
utilizo VB 6.0 y CR8.5
tambien me marca error en Date al asignar a DTpicker1, ejemplo DTpicker1 > Date
antes me funcionaba correctamente, agradezco la ayuda, gracias y saludos.
PAZ EN EL MUNDO

'Separa datos a partir del primer espacio que encuentre
Private Sub SeparaDatos()
' Obtiene del usuario la cadena de búsqueda.
Search = " "
Where = InStr(Text1, Search) ' Busca la cadena en el texto.
Text1.SelStart = Where ' se establece el inicio de la selección y
N = Text1.SelStart
NCadena = Len(Text1) - N
PCadena = Left(Text1, N)
Scadena = Right(Text1, 4)
ValorT1 = PCadena
ValorT2 = Trim(Scadena)

End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida