BUsque con Locate

[silviodp]

Ok, voy a poner el código que escribí...
Gracias.

[silviodp]

En el evento OnKeyPress del DBEdit (donde cargo el Nºde Factura), escribí:
[code]
procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
n,m,o,p:Variant;
begin
If Key=#13 Then
begin
ModuloDatos.TblPagos.Active:=True;
ModuloDatos.TblFacturas.Active:=True;
ModuloDatos.TblFacturas.Locate('NFactura',DBEDit2.Text,[]);
n:=ModuloDatos.TblFacturas.FieldValues['NFactura'];
m:=ModuloDatos.TblFacturas.FieldValues['Usuario'];
o:=ModuloDatos.TblFacturas.FieldValues['Periodo'];
p:=ModuloDatos.TblFacturas.FieldValues['Precio'];
ModuloDatos.TblPagos.FieldValues['NFact']:=n;
ModuloDatos.TblPagos.FieldValues['Usuario']:=m;
ModuloDatos.TblPagos.FieldValues['Periodo']:=o;
ModuloDatos.TblPagos.FieldValues['Importe']:=p;
Confirmar.SetFocus;
end;
/[code]

Bueno ese es el código, donde tengo problema...
Gracias, saludos.-

[silviodp]

Perdón me equivoqué con las etiquetas:

procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
 n,m,o,p:Variant;
begin
If Key=#13 Then
 begin
  ModuloDatos.TblPagos.Active:=True;
  ModuloDatos.TblFacturas.Active:=True;
  ModuloDatos.TblFacturas.Locate('NFactura',DBEDit2.Text,[]);
  n:=ModuloDatos.TblFacturas.FieldValues['NFactura'];
  m:=ModuloDatos.TblFacturas.FieldValues['Usuario'];
  o:=ModuloDatos.TblFacturas.FieldValues['Periodo'];
  p:=ModuloDatos.TblFacturas.FieldValues['Precio'];
  ModuloDatos.TblPagos.FieldValues['NFact']:=n;
  ModuloDatos.TblPagos.FieldValues['Usuario']:=m;
  ModuloDatos.TblPagos.FieldValues['Periodo']:=o;
  ModuloDatos.TblPagos.FieldValues['Importe']:=p;
  Confirmar.SetFocus;
 end;

[argami]

la verdad no entiendo muy bien lo que quieres lograr pero lo que si veo es que no validas la respuesta del locate y una vez que sales de el modificas los valores de la tabla te aconsejaria probar una cosa como

procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
 n,m,o,p:Variant;
begin
If Key=#13 Then
 begin
  ModuloDatos.TblPagos.Active:=True;
  ModuloDatos.TblFacturas.Active:=True; //esto te colocara en la primera pos
  //aqui validas si realmente ha sido encontrado
  if ModuloDatos.TblFacturas.Locate('NFactura',DBEDit2.Text,[]) then
  begin
    n:=ModuloDatos.TblFacturas.FieldValues['NFactura'];
    m:=ModuloDatos.TblFacturas.FieldValues['Usuario'];
    o:=ModuloDatos.TblFacturas.FieldValues['Periodo'];
    p:=ModuloDatos.TblFacturas.FieldValues['Precio'];
    ModuloDatos.TblPagos.FieldValues['NFact']:=n;
    ModuloDatos.TblPagos.FieldValues['Usuario']:=m;
    ModuloDatos.TblPagos.FieldValues['Periodo']:=o;
    ModuloDatos.TblPagos.FieldValues['Importe']:=p;
    Confirmar.SetFocus;
  end else begin
    ShowMessage('Factura no encontrada');
    (Sender as TDBEdit).SelectAll;
  end;
 end;

Otra cosa es has verificado que no tengas caracteres raros o que necesites una busqueda no sensitiva a las mays es decir un locaseinsensitive?
esto lo digo por que en un post anterior me he dado cuenta de que introduces dentro de la factura un "-"

solo me queda que si esto no te ayuda pasame el codigo al correo para que lo pueda ver en su globalidad ¿vale?