pasar un dato de una tabla a otra

[betty_loo]

hola
gracias por la idea pero ya lo hice y si se guarda pero al llamarlo a la tercer forma la variable trae un valor nulo tienes alguna otra idea?

[courtois]

al cerrar tu forma la liberas?
en donde pusiste la variable que devuelve nulo?

[[eduarcol]]

Empezado por betty_loo

hola
gracias por la idea pero ya lo hice y si se guarda pero al llamarlo a la tercer forma la variable trae un valor nulo tienes alguna otra idea?

si se me ocurren muchas ideas, pero por que no posteas el codigo para ver si podemos ayudarte sin adivinar.

[betty_loo]

este es el codigo que utilizo para llamar el dato de la otra forma
tbodtodt = es el nombre de la forma 1
descripcion es la forma 2

SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));
descripcion.DBEdit1.Text := (inttostr(pac));

[[Caral]]

Hola
Yo me pregunto, viste el ejemplo del wiki que te mencione?.
Por que hace eso que pides, me extraña que sigas con el problema.
Saludos

[betty_loo]

si lo cheque y es lo que yo tengo

[[eduarcol]]

no entendi para nada tu codigo, podrias explicar cuales son variables y cuales estan en que formulario?

[betty_loo]

tengo una forma que tiene un boton de agregar
En el botón de agrega r tengo este código

application.createform(todtedi,odtedi);
odtedi.show;
odt.hide;
a:= 1;
odtedi.show;
odtedi.add;
query1.close;
query1.open;

y manda a llamar a otra forma

Al ingresar los datos doy clic en el botón siguiente que tiene este codigo

var cia:double;
begin
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;

showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));

descripcion.DBEdit1.Text := (inttostr(pac));
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
descripcion.DBEdit1.Text := dbedit1.text;
begin
if tbodt.State in[dsinsert] then
valida;
if tbodt.State in[dsedit] then
begin

tbodt.post;
showmessage('*** El registro Se Modifico ***');
sw := 0;
end;
if tbodt.State in[dsinsert] then
begin
if sw = 0 then
begin
if tbodt.state in[dsinsert] then
begin
tbodt.post;
tbodt.Insert;
odtedi.hide;
descripcion.add;
descripcion.DBEdit1.Text := odtedi.DBEdit1.text;
// application.createform(tdescripcion,descripcion);
descripcion.show;
end;
end
end;
sw:=0;
end;

y se guarda y borra todo el contenido de los dbedit’s y no guarda valor del dbedit que quiero que pase a la otra pantalla,

El valor que quiero conservar es el de odt nº que es el campo que viene al principio en ambas pantallas y es la clave principal de las dos tablas