gestion d'une erreur

Bonjour,
Dephi 5
ADO
Access 97

lors d'une recherche d'un enregistrement, si celui-ci n'est pas trouvé un message d'erreur apparaît.

Pour géere cette erreur j'ai implanté la routine suivante !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

PresRot:=ADOQuery1.Fields[0].AsString; if PresRot = '' then begin ShowMessage('Aucun titre ne correspond à votre demande'); recherche:=''; Titre1:=''; Titre2:=''; Edit1.Text:=''; if flag = 0 then begin ADOQuery1.First; ADOQuery1.Active:=FALSE; ADOQuery1.SQL[1]:=''; ActiveControl:=Edit1; flag :=1 end; end;

---

Donc si Presrot reste vide, le message apparaît.

Mon problème est le suivant :
Tout se passe bien avec Windows 98, windows 2000 mais windows XP semble complètement ignorer cette routine, me met le message suivant :

Code:

---

1 2	BOF ou COF a true ou l'enregistrement actuel a été supprimé - l'opération demande nécessite un enregistrement actuel

---

Message que j'obtenais avec les autres os avant d'implanté cette routine

Auriez-vous une explication à celà ?

Merci
:D

Je pense qu'il n'apprécie pas le First sur le Dataset vide...

Je te propose de coder la gestion d'erreur ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

if (ADOQuery1.Bof) and (ADOQuery1.Eof) then begin ShowMessage('Aucun titre ne correspond à votre demande'); recherche:=''; Titre1:=''; Titre2:=''; Edit1.Text:=''; ADOQuery1.Close; ActiveControl:=Edit1; end;

---

merci

j'essaie tout de suite mais n'aurai la réponse que + tard !
j'ai pas XP alors j'envoie à mon testeur !

:D

Salut,

Milles excuses pour cette réponse très tardive !

Mais ca marche toujours pas sur XP !
J'ai bien le message qui me dit qu'il n'a pas trouvé d'enregistrement et lorsque le clique sur OK il me mets toujours le même message et je suis obligé de sortir intégralement du programme pour faire autre chose !

Ce que je trouve bizarre, c'est que ca fonctionne avec tous les autres os !

:evil: :evilred:

Peux-tu me vérifier que
-Edit1 n'est pas un composant DB relié à l'ADOQuery
-qu'aucun événement (genre OnExit, OnEnter) n'est généré par l'affectation à ActiveControl ?

salut,
Non l'Edit1 se sert qu'à entrer la recherche et son contenu est alors transféré dans une variable et il n'y a aucune fonction onExit ou onEnter
:D

Tu utilises delphi 5, as-tu mis à jour ta version ton problème ressemble à un des problèmes recensé.

Va voir à cette page http://info.borland.com/devsupport/delphi/downloads/

Cordialement

Merci,
j'y cours !
:D

OK,
Merci après mises à jour tout fonctionne à merveille !

:D :bravo: