O que está errado neste codigo?

Delphi

07/08/2003

procedure TFRMCADFALTAS.btngravarClick(Sender: TObject);
begin
if frmcadservidores.adotable1.locate(´matricula´,dbedit1.Text,[lopartialkey]) then
begin
frmcadservidores.Show;
end
else
begin
frmcadfaltas.ADOTable1.Post;

end;
end;
O que eu quero é que se quando eu digitar no frmcadfaltas a matricula e ela não estiver cadastrada no frmcadservidores ele me abra o frmcadservidores pra mim cadastrar o servidor se não ele grave a falta, mas está danto erro.


Cláudiogyn

Cláudiogyn

Curtidas 0

Respostas

Liborio Junior

Liborio Junior

07/08/2003

como vc naum mencionou o erro que estah ocorrendo, acredito que vc usando assim funcione:

procedure TFRMCADFALTAS.btngravarClick(Sender: TObject);
begin
if frmcadservidores.adotable1.locate(´matricula´,dbedit1.Text,[lopartialkey]) then
begin
frmcadservidores.Show;
end
else
begin
frmcadfaltas.ADOTable1.Append; //Adicnionar o registro
frmcadfaltas.ADOTable1.Post;

end;
end;

Se naum for este o caso, entre em contato que te ajudo....

Abraços

Júnior
junior@viasopft.com.br


GOSTEI 0
Cláudiogyn

Cláudiogyn

07/08/2003

é que no campo matricula ele não é text ele é numerico como faço pra alterar o codigo if frmcadservidores.adotable1.locate(´matricula´,dbedit1.Text,[lopartialkey]) then


GOSTEI 0
Erucci

Erucci

07/08/2003

será que num eh isso

if frmcadservidores.adotable1.locate(´matricula´,strtoint(dbedit1.Text),[lopartialkey]) then


GOSTEI 0
Cláudiogyn

Cláudiogyn

07/08/2003

begin
IF NOT Frmcadfalta.ADOTable1.Locate(´MATRICULA´,DBEDIT2.Text,[LOPARTIALKEY]) THEN
BEGIN
Frmcadservidores.Show;
END
ELSE
BEGIN
frmfalta.ADOTable1.Post;
end;
esse é o codigo todo. Vou tentar te explicar melhor! É o seguinte, tenho 2 tabelas feitas em access uma chama-se servidores e outra faltas. A tabela servidores tem os seguintes campos:
Matricula = numero
nome = texto
Já a tabela falta tem os seguintes campos:
codigo (autonumerico)
matricula = numero
data = data
falta = numero
Eu quero que quando estiver no formulario para lançar as faltas ele check se já existe a falta para essa matricula. Se houver ele grave a falta no formulario falta e se não houver nenhuma falta pra essa matricula ele me abra o formulario de cliente para ser cadastrado o servidor. Bom eu consegui usando o codigo acima mas no campo matricula teria que ser texto e não numero, mas como as tabelas já estão preenchidas eu consegui mudar para texto só que da erro. Então eu gostaria de usar o campo como numero mesmo mas ainda da erro.O que fazer?


GOSTEI 0
Cláudiogyn

Cláudiogyn

07/08/2003

Se alguém souber outra forma de se fazer isso...


GOSTEI 0
POSTAR