Con tu permiso modifico el código, creo que falta QuotedStr para encerrar el valor de buscarArticulo.text entre comillas simples. ¿O será que en access son comillas dobles ¿?
Código Delphi
[-]
const sqlArticulos = 'Select * from tb_Articulos where %s = %s'
if (key = #13) then
begin
With dm.QBusArticulo do
begin
Close;
if rgBusArticulo.ItemIndex = 1 then
SQL.Text := Format(sqlArticulos, ['idArtEan',
QuotedStr(frmBusArticulo.edtBusArticulos.Text)])
else
SQL.Text := Format(sqlArticulos, ['Nombre',
QuotedStr(frmBusArticulo.edtBusArticulos.Text)]);
Open;
end;
end;
En este caso, estoy suponiendo que idArtEan y Nombre son campos de tipo carácter (string, varchar, etc). Si idArtEan es un campo de tipo entero, no hace falta el QuotedStr.
Si QuotedStr no te funciona, prueba a encerrarlo con comillas dobles.
Si no es mucha molestia me gustaría que comentaras la solución (si se resuelve... claro
)
Saludos