Hola.
Leete
como usar etiquetas por el bien de todos.
Empecemos.
En tu primer trozo de código estás haciendo algo innecesario.
Me refiero a
Código Delphi
[-]
procedure TFprincipal.RegSolicitudClick(Sender: TObject);
begin
Fprincipal.Enabled:=false;
Fregistro.Show;
end;
Mejor borrá esas 2 líneas y poné solamente
FRegistro.ShowModal;
Sigamos.
En el evento OnCLick de NuevoE Esto es innecesario también, mirá
Código Delphi
[-]
if Tregistro.RecordCount=0 then
c:=1
else
c:=Tregistro.RecordCount+1;
Te explico. Si RecordCount toma el valor 0, vos querés ponerle 1 ¿cierto? Bueno, ¿1 no es igual a RecordCount (que valdría 0) + 1?
Entonces, solamente dejá a
c:=Tregistro.RecordCount+1 y listo.
En lo demás de ese evento, no veo error porque no conozco la tabla y no sé dónde te corta la ejecución con el error.
Por último, en el evento OnClick del botón VolverE no deberías hacer ese código.
Más simple, ponelo así
Código Delphi
[-]
procedure TFRegSolicitud.VolverEClick(Sender: TObject);
begin
Close;
end;
Yo necesitaría más datos de la tabla para encontrar el error. Pero seguramente los que manejan muy bien bases de datos te lo encuentren así nomás.
Saludos.