controle ado

Question

Voila j'ai mon controle ado qui est reli&#233; &#224; ma base de donn&#233;es lorsue je clique sur le bouton pr&#233;c&#233;dent du controle et que l'enregistrement visible est le premier de la base de donn&#233;es rien ne se passe et pareil pour le bouton suivant et la fin !!

Mon probl&#232;me c'est que je veut masquer ce controle et ajouter un bouton suivant et pr&#233;c&#233;dent mais lorsque l'enregistrement visible est le premier ou le dernier et que l'on clique sur ces boutons un enregistrement vide s'affiche

Comment enlev&#233; cet enregistrement pour ne pas qu'il s'affiche.

voila mon code :
   Private sub cmdPrecedent_click
      Ado.BOFAction = adDoMoveFirst
      Ado.Recordset.MovePrevious   
    End sub

   Private sub cmdSuivant_click
      Ado.EOFAction = adDoMoveLast
      Ado.Recordset.MoveNext
   End sub

Merci de m'aider

cs_cbu · Answer

Mets une condition ..

pour le movePrevious test si tu n'est pas en BOF

et pour le moveNext test si tu n'es pas en EOF..



if not Ado.Recordse.eof then Ado.Recordset.MoveNext

if not Ado.Recordse.bof then Ado.Recordset.MovePrevious   



Ca t'aide ??

cs_moi4975 · Answer

Non ca ne change rien il y a toujours  un enregistrement vide qui s'affiche avant et apr&#232;s

cs_cbu · Answer

Alors p-e que cela : 

if me.Recordset.recordcount < Me.CurrentRecord then

    me.Recordset.moveprevious

end if

cs_moi4975 · Answer

J'ai remplac&#233; "me" par ado le nom de mon controle ado mais vb m'indique un message d'erreur   &#224; "ado.CurrentRecord"  --------->  "m&#233;thode ou membre de donn&#233;e introuvable !"

cs_cbu · Answer

ah ouais dommage faudrait que j'install VB6 pour pouvoir tester mais pas trop le temps .. D&#233;sol&#233;..

cs_moi4975 · Answer

c'est pas grave merci beaucoup quand m&#234;me !

Doro81079 · Answer

bonjour,
il faut que tu changes les propriétés EOFAction et BOFAction si c'est un contrôle adodc
salut
doro

Doro81079 · Answer

et dans tes boutons précédents et suivant tu mets (si c'est des contrôles à part en sachant qu'il faut déclarer les variables)

cmdsuivant:
if recordset.eof =true then
recordset.movefirst
end if
 (ou recordset est la variable qui contient le nom de la table)

cmdprécédent :
if recordset.bof = true then
recordset.movelast
end if

salut 
doro

Controle ado

8 réponses

Discussions similaires