Fórum Master #163128

fala moçada...

estou com um problema no codigo aseguir, que me retorna o seguite erro:

master record missing

procedure TForm4.BtnAbrirClick(Sender: TObject);
begin
if BtnAbrir.Caption = ´&Abrir´ then
begin
ComboBox1.SetFocus;
BtnAbrir.Caption := ´&Confirma´;
BtnAbrir.Glyph.LoadFromFile(´C:\Arquivos de programas\Arquivos comuns\Borland Shared\Images\Buttons\joia.bmp´);
Btnexcluir.Enabled := false;
if DMadm.TbChamado.RecordCount = 0 then
Edit1.Text := ´1´
else
begin
DMadm.TbChamado.Last;
Edit1.Text := IntToStr(DMadm.TbChamado.FieldByName(´Num´).AsInteger + 1);
end;
end
else
if BtnAbrir.Caption = ´&Confirma´ then
begin
if ComboBox1.Text = ´´ then
MessageDlg(´Campo ELEVADOR em branco - Favor Preenchê-lo.´, mtInformation, [mbOk], 0)
else
if Memo1.Text = ´´ then
MessageDlg(´Campo PROBLEMA em branco - Favor Preenchê-lo.´, mtInformation, [mbOk], 0)
else
begin
DMadm.TbChamado.Insert;
DMadm.TbChamado.FieldByName(´Num´).AsString := Edit1.Text;
DMadm.TbChamado.FieldByName(´Data´).AsString := Edit2.Text;
DMadm.TbChamado.FieldByName(´Hora´).AsString := Edit3.Text;
DMadm.TbChamado.FieldByName(´SiglaE´).AsString := Copy(Edit3.Text,1,2);
DMadm.TbChamado.FieldByName(´Defeito´).AsString := Memo1.Text;
DMadm.TbChamado.Post;
end;
end;
end;[/b]