Ayuda con Error de Compilación
Me gustaría ver si me puedes 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 había empezado a hacer) me sale el siguiente error:
Error de Compilación:
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 código:
Sub MostrarClave() 'Aqui me marca error
clave = ""
For I = 0 To 9
clave = clave & txtClaveCT(I)
Next
clave = (clave)
'Primer Flex ------------------------------------------------------------------
DE.FindFirst "ClaveCT = '" & clave & "'"
If Not DE.NoMatch Then
'Y aqui en esta variable s$
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 código donde me marca error (marcado en rojo), agradecería que alguien me diera opciones para solucionar mi problema...
De antemano GRACIAS!
Error de Compilación:
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 código:
Sub MostrarClave() 'Aqui me marca error
clave = ""
For I = 0 To 9
clave = clave & txtClaveCT(I)
Next
clave = (clave)
'Primer Flex ------------------------------------------------------------------
DE.FindFirst "ClaveCT = '" & clave & "'"
If Not DE.NoMatch Then
'Y aqui en esta variable s$
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 código donde me marca error (marcado en rojo), agradecería que alguien me diera opciones para solucionar mi problema...
De antemano GRACIAS!
3 respuestas
Respuesta de denciso
1
Respuesta de netvaio
1
Respuesta de rodolfo1245
1