Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

error de libreria

08/07/2003 - 20:53 por Jocha | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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


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

 

Busqueda sugerida :