que tal Caral. mira lo implemente de esta otra forma, solo que me marca error, el mismo error implementando la forma que tu me sugeriste...
Código Delphi
[-]
procedure TFrmImprimirVehiculo.SpeedButton1Click(Sender: TObject);
var consulta : string;
begin
If (DBNumeroVehiculo.Text <> 'Todos') then
Begin
try
FrmReporte1:=TFrmReporte1.Create(self);
consulta:='SELECT NumeroVehiculo FROM BitacoraVehiculos RIGHT JOIN Vehiculos ON BitacoraVehiculos.NumeroVehiculo = Vehiculos.NumeroVehiculo WHERE Vehiculos.NumeroVehiculo ='+chr(39)+DBNumeroVehiculo.Text+chr(39);
FrmReporte1.Query1.SQL.Add(consulta);
FrmReporte1.query1.Active:=False;
FrmReporte1.query1.Active:=True;
If RadioGroup1.ItemIndex = 0 then FrmReporte1.QuickRep1.Print
else FrmReporte1.QuickRep1.Preview
finally
FrmReporte1.QuickRep1.Free;
end;
end;
end;
te comento que ruve que ponerle
Try para que pueda funcionar el
Finally , asimismo, te comento que escribi esto porque asi se llama mi componente DBLookupComboBox1: chr(39)+DBNumeroVehiculo.Text+chr(39) si no le ponto el .text al final me marca error, al igual que cuando llamo el reporte en FrmReporte1.QuickRep1.Print, FrmReporte1.QuickRep1.Preview y FrmReporte1.QuickRep1.Free, me marca un error que desconoce el campo preview y free. y el error que me marca al final... de hecho haciendo estas correcciones al igual que al tuyo, me marca este error...
project bitacoravehiculos.exe tabla bitacoravehiculos