[look]

Empezado por Irlod

Hola, veamos si me podéis ayudar.
Tengo una consulta en un form desde un combo. Cuando elijo debe llamar a otro form y presentar un listado. Pero me muestra el siguiente error:

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with Form_Personal.ADODataSet1 do
    begin
     Close;
     CommandText := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = ') + Text ;
     Open;
    end;
end;

Sé que es una tontería pero llevo un buen rato bloqueado y estoy "en blanco".

Muchas gracias.

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with Form_Personal.ADODataSet1 do
    begin
     Close;
     CommandText := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = ') + QuotedStr(Text) ;
     Open;
    end;
end;