Suma por campos

[[Caral]]

Hola
No veo el error, pasa el codigo.
Saludos
PD: Borra todos los zip anteriores que pusiste, eso te dara espacio.
AH, no envies el exe.

[aanil]

Hola Caral.

Aqui esta todo.

[[Caral]]

Hola
1. Como funciona el programa?.
2. Cual es el problema, a mi no me dio ningun error?.
Saludos

[aanil]

Caral, ahora yo hice esto y de esta manera funciona sin problemas.

Código Delphi [-]
while not datam.Query1.Eof do   // recorre la tabla en el query1
begin

datam.Qtemp.sql.Text := 'Update 20092 set practica = '+datam.Query1.fieldbyname('practica').AsString+' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL;
datam.Query1.Next;
end;

while not datam.Query1.Eof do
begin

datam.Qtemp.SQL.Text := 'Update 20092 set tfinal = '+datam.Query1.fieldbyname ('tfinal').AsString+ ' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL; // ejecuta el query2
datam.Query1.Next;

 end;

 datam.Query1.Close;
 datam.Query1.Open;


end;

Una pregunta mas.. Como yo hago para que no me de un mensaje que dice
"Argumentos incorrectos, fuera del intevalo permitido o en conflicto con otros" , esto se produce si uno no escribe la matricula en el Tedit.

Gracias.

[[Caral]]

Hola
Me alegro que lo resolvieras tu, sin ayuda.
Pense en esa solucion ya que lo que sucede es que el dato de TFinal no existe hasta que se hace la suma, me extraña que no lo guardara.
Para evitar eso se coloca un 0 por variable en la consulta, asi no da el error.
Con relacion a lo del edit es lo mismo, esta vacio y espera un dato.
Se usa:

Código Delphi [-]
 try
  // el proceso completo
 finally
// lo que sea

Esto se usa para que como dice, trate de hacerlo, si no puede, no pase nada.
El metodo TRY quita muchos dolores de cabeza.
Saludos
PD: Te recomiendo que cuando empiezas no uses componentes adicionales, como ese de Xman, ya que para revisra el programa se tiene que estar quitando las referencias y alenta el resultado.

[aanil]

Hola:

Todo esta de maravilla, para atajar el error lo hice de la siguiente manera

Código Delphi [-]
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
 try
if Edit1.Text ='' then
  except
showmessage ('Falta Numero de la  Matricula');

Si me puedes orientar donde encontrar un documento que trate sobre errores que sea bien didáctico, ya que lo que tengo es la cara oculta de delphi 4 y el autor es muy amplio..

Bueno ya comenzaron las clases, tengo que introducir los alumnos a mi base de datos.

Gracias por la gran ayuda..

AAnil