"No se ha definido sub o function" URGENTE
Publicado por BORAH (8 intervenciones) el 30/06/2006 12:46:06
hola, tengo un problema , quiero insertar lineas por código para un formulario y todo va bien hasta que llega aqui:
private sub createEv (oform as form,dbl as double)
dim oModulo as Module
dim pos as Long
set oModulo=oform.Module
pos=oModulo.CreateEventProc("BeforeUpdate","Form")
oModulo.insertlines pos+1, " If not......then"
oModulo.insertlines..........(y asi hasta poner todo el codigo)
oform.section(acDetail).Height=dbl +500
end sub
El caso es que al llegar al crear el código lo crea y luego dice "No se ha definido sub o function", el caso es que no le falta ningun end sub ni end function ....llega ahi y dice eso.
El caso es que al hacerlo la primera vez cuando entro en el proyecto no da error ,.....es a la segunda vez ¿que puede ser?
private sub createEv (oform as form,dbl as double)
dim oModulo as Module
dim pos as Long
set oModulo=oform.Module
pos=oModulo.CreateEventProc("BeforeUpdate","Form")
oModulo.insertlines pos+1, " If not......then"
oModulo.insertlines..........(y asi hasta poner todo el codigo)
oform.section(acDetail).Height=dbl +500
end sub
El caso es que al llegar al crear el código lo crea y luego dice "No se ha definido sub o function", el caso es que no le falta ningun end sub ni end function ....llega ahi y dice eso.
El caso es que al hacerlo la primera vez cuando entro en el proyecto no da error ,.....es a la segunda vez ¿que puede ser?
Valora esta pregunta
0