Ok, ho capito.
Allora prova a commentare la chiamata alla funzione
doc.Form = "Progetto"
\'Call CaricaApprovatoriProgetto(doc)
End If
mettendo l\'"Apice" prima della chiamata e salvare la form.
poi chiudi, riapri e levi il commento, e risalvi la form.
Comunque vedo che nell\'if successivo
If Not ControlloAttivitaComplete(doc) Then
Messagebox "Non tutte le attivitā associate al progetto sono state completate!", 0+48, "Completamento progetto"
Continue = False
Exit Sub
Else
....
...
End If
la funzione ControlloAttivitaComplete non č presente... Non č magari quella a dare errore???
|