|    
			
				26/07/2005, 06:50
			
			
			  | 
  |   |  |  |  Fecha de Ingreso: octubre-2004 
						Mensajes: 17
					 Antigüedad: 21 años 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:
     |