¿porque me marca error?

08/07/2003 - 17:50 por Jocha | Informe spam
Que tal grupo, 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
 

Leer las respuestas

#1 Sashka
08/07/2003 - 21:08 | Informe spam
Revisa tus referencias

Sashka

"Jocha" escribió en el mensaje
news:#
Que tal grupo, 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



Preguntas similares