duda sobre Chr

[cneangel]

Bien un saludo a todo el foro.

Lo que pasa esque tengo una duda sobre esta funcion ya que de un tiempo para aca me sale un error de compilacion dice que o falta el preoyecto o la Libreria, yo voy mas a que es la libreria la que me falta pero no se cual sea. si alguien me puede ayudar se lo agradezco mucho.

bno es todo si no me explico bien pues avisenme y aclarare bien mi tema.

Bye

[h0oke]

Chr?

Declaraste:

Código (vb) [Seleccionar] Expandir


Public Function Chr(ByVal CharCode As Integer) As Char

Y luego un ejemplo:

Código (vb) [Seleccionar] Expandir


Dim Caracter As Char
Caracter = Chr(97)   ' Retorna "a"

[cneangel]

ps ia lo declare pero sigue igual mira lo que pasa eske lo utilizo en un modulo esta es la parte del codigo

Sub Main()
    Dim fLogin As New frmLogin
    Dim cn As New ADODB.Connection
    Dim f As New FileSystemObject
    Dim dl As New MSDASC.DataLinks
    Dim Diag As Object
    Dim bReturn As Boolean
    Dim bByteOutput() As Byte
    Dim sTemp As String
   
    On Error GoTo ERR_ser
    If f.FileExists(App.Path & "\TRY.udl") Then
       cn.ConnectionString = "File Name=" & App.Path & "\TRY.udl"
       cn.Open
       gsconnect = cn.ConnectionString
       
       cn.Close
       Set cn = Nothing
       Set f = Nothing
    Else
        op = MsgBox("El Archivo de Conexión No Existe" & Chr(13) & "Reinstale la Aplicación o" & Chr(13) & "Cree un Archvio TRY.udl, ¿ Desea Crearlo ?", vbYesNo + vbCritical, "TRY")
        If op = vbYes Then
           Set fi = f.OpenTextFile(App.Path & "\TRY.udl", ForWriting, True)
            fi.Close

lo puse en negritas donde utilizo la funcion antes si funcionaba pero no recuerdo si le tuve que agregar alguna referencia.

[Novlucker]

Para lo que lo necesitas cambia chr(13) por vbnewline y ya 

Saludos

[cneangel]

Pues ya cambie el chr por vbnewline pero ahora el error aparece en otra parte del codigo,
Sub Main()
    Dim fLogin As New frmLogin
    Dim cn As New ADODB.Connection
    Dim f As New FileSystemObject
    Dim dl As New MSDASC.DataLinks
    Dim Diag As Object
    Dim bReturn As Boolean
    Dim bByteOutput() As Byte
    Dim sTemp As String
   
    On Error GoTo ERR_ser
    If f.FileExists(App.Path & "\TRY.udl") Then
       cn.ConnectionString = "File Name=" & App.Path & "\TRY.udl"
       cn.Open
       gsconnect = cn.ConnectionString
       
       cn.Close
       Set cn = Nothing
       Set f = Nothing
    Else
        op = MsgBox("El Archivo de Conexión No Existe" & Chr(13) & "Reinstale la Aplicación o" & Chr(13) & "Cree un Archvio TRY.udl, ¿ Desea Crearlo ?", vbYesNo + vbCritical, "TRY")
        If op = vbYes Then
           Set fi = f.OpenTextFile(App.Path & "\TRY.udl", ForWriting, True)
            fi.Close

ahora es donde dice op.
mi sistema es para conectar una DB con VB usando adodc

[ssccaann43 ©]

Usas al inicio de tus proyectos el Option Explicit?

[h0oke]

El problema creo que es el option explicit, ya que estás en un módulo.

[cneangel]

El problema creo que es el option explicit, ya que estás en un módulo.

Usas al inicio de tus proyectos el Option Explicit?

el Option Explicit lo tengo en una otro form que es para el login, pero no en el modulo y mi proyecto carga desde el modulo.

[ssccaann43 ©]

Declara todas las variables que uses, si tienes Option Explicit se vuelve un pedo porque debes declarar todo!

[cassiani]

Declara todas las variables que uses, si tienes Option Explicit se vuelve un pedo porque debes declarar todo!

pero es la manera como se debería trabajar, te ayuda a ser organizado y evita que te equivoques con tonterias.