20/08/2008, 08:57
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| Respuesta: loop sin do
Hola,
Por aqui en algun lado te falta un end if
Código:
If Tabl.BOF And Tabl.EOF Then
nombre1 = replace(nombre,"'","''")
Temp="Select * From audio Where UCase(pal) like '%" &nombre1& "%' order by UCase(pal) asc"
Tabla.Open Temp, Conexion,1
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("id") = id
Tabla("cover") = nombre
Tabla.update
end if
Tabl.Close
Conex.Close
'fin controlarsilatengo
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |