Rta...
Edité tu código y quedó algo así, creo debería funcionar, otra cosa
si pones un maskedit es para que el usuario no ingrese cualquier cosa, entonces por qué no validas que el ingreso sea correcto ?
procedure TFrmConsultacontactos.Button5Click(Sender: TObject);
begin
Dmodulo.AQcontactos.Close;
Dmodulo.AQcontactos.Sql.Clear;
Dmodulo.AQcontactos.Sql.Text := 'SELECT * FROM Contactos WHERE Telefono1 LIKE ' + QuotedStr( MaskEdit1.Text + '%' );
Dmodulo.AQcontactos.Open;
if Dmodulo.AQcontactos.EOF then
begin
showmessage( 'REGISTRO INEXISTENTE' );
MaskEdit1.Text := '';
MaskEdit1.SetFocus;
end;
end;
Saludos y espero te sirva.
Última edición por waly2k1 fecha: 24-09-2007 a las 04:03:19.
|