Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/07/2005, 06:50
CAGS
 
Fecha de Ingreso: octubre-2004
Mensajes: 17
Antigüedad: 20 años, 6 meses
Puntos: 0
Ayuda Error de Compilacion

Wenas a todos foreros....

Me gustaria ver si me pueden ayudar, estaba trabajando en un pequeño sistemita, pero por asuntos de clases lo deje pendiente, ahora quiero retomarlo e instale el programa de nuevo, pero no me deja compilar (el programita que habia empezado a hacer) me sale el siguiente error:

Error de Compilacion:
No se puede encontrar el proyecto o la biblioteca


Estoy trabajando con DAO (con access), utilizo un toolbar, flexgrid y un imagelist.

Cuando me sale ese error me marca la siguiente linea de codigo:

Sub MostrarClave()
clave = ""
For I = 0 To 9
clave = clave & txtClaveCT(I)
Next
clave = (clave)
'Primer Flex ------------------------------------------------------------------
DE.FindFirst "ClaveCT = '" & clave & "'"
If Not DE.NoMatch Then
s$ = "^Clave CT |Nombre CT |Domicilio CT |Telefono CT |Localidad |Municipio |Turno|Organizacion |Ubicacion |Zona Escolar |Sector |Nombre Director |Nombre Supervisor |Nombre Jefe Trabajo |Numero Docentes"
Re1.FormatString = s$
Re1.AddItem DE!ClaveCT & vbTab & DE!NombreCT & vbTab & DE!DomicilioCT & vbTab & DE!TelCT & vbTab & DE!LocalidadCT & vbTab & DE!MunicipioCT & vbTab & DE!TurnoCT & vbTab & DE!OrganizacionCT & vbTab & DE!Ubicacion & vbTab & DE!ZonaEscolar & vbTab & DE!Sector & vbTab & DE!NombreD & vbTab & DE!NombreS & vbTab & DE!NombreJS & vbTab & DE!NumeroDocentes
Else
MsgBox "Esta clave no esta dada de Alta"
End If
'Segundo Flex ------------------------------------------------------------------
'NA.FindFirst "ClaveCT = '" & clave & "'"
Set NA = db.OpenRecordset("Select * from NA where ClaveCT='" + clave + "'", 2)
If Not NA.NoMatch Then
p$ = "^Clave CT | Grado | Hombres | Mujeres | Total"
Re2.FormatString = p$
While Not NA.EOF
Re2.AddItem NA!ClaveCT & vbTab & NA!Grado & vbTab & NA!Hombres & vbTab & NA!Mujeres & vbTab & NA!Total
NA.MoveNext
Wend
For ColCounter = 1 To 14
Re1.ColAlignment(ColCounter) = flexAlignCenterCenter
Next ColCounter
Else
End If
End Sub

Eso es el fragmento de codigo donde me marca error (marcado en rojo), agradeceria que alguien me diera opciones para solucionar mi problema....

De antemano GRACIAS!!!
__________________
"Haz con otros lo que quieres que hagan contigo" :cool: