formulaire AccessRésolu

Question

salut,

j'ai un petit souci dans mon formulaire, j'ai crée des bouton enregistrement suivant, précedent,etc pour naviguer et lorsqueje clique sur enregistrement suivant j'obtiens pour le dernier enregistrement 12/11
voila mon bout de code:

Private Sub EnregistrementSuivant_Click()
On Error GoTo Err_EnregistrementSuivant_Click
    Dim nbCourant As String

    nbCourant = CInt(Mid(NbEnreg.Caption, 1, InStr(1, NbEnreg.Caption, "/") - 1))
    nbCourant = nbCourant + 1
    
        DoCmd.GoToRecord , , acNext
        
        NbEnreg.Caption = CStr(nbCourant) & "/" & nbrBaux
    Me.adresse.Value = Recherche_Code("LI", Me.Immeuble)
    Me.Type_bail.Value = Recherche_Code("TB", Me.Typebail)
    
Exit_EnregistrementSuivant_Click:
    Exit Sub

Err_EnregistrementSuivant_Click:
    MsgBox Err.Description
    Resume Exit_EnregistrementSuivant_Click   
End Sub

merci d'avance :-))

cs_frop01 · Accepted Answer

Salut,



' D&#233;claration de tes variable :

Dim nbCourant As Integer

Dim nbrBaux As Integer



'ensuite initialisation de ton label(&#233;tiquette) :



nbCourant = Me.Form.Recordset.AbsolutePosition + 1  'position du record en cours

nbrBaux = Me.Form.Recordset.RecordCount ' nombre d'enregistrements

NbEnreg.Caption = Str(nbCourant) & "/" & Str(nbrBaux) 'affichage



'enuite dans le bouton suiavnt :



On Error GoTo Err_EnregistrementSuivant_Click

If nbCourant < nbrBaux Then  ' tester si la position est inf&#233;rieur &#224; nombre total

        

        DoCmd.GoToRecord , , acNext

        

        

        nbCourant = Me.Form.Recordset.AbsolutePosition + 1

        nbrBaux = Me.Form.Recordset.RecordCount

        NbEnreg.Caption = Str(nbCourant) & "/" & Str(nbrBaux) 'r&#233;afffichage

End If

Exit_EnregistrementSuivant_Click:

    Exit Sub



Err_EnregistrementSuivant_Click:

    MsgBox Err.Description

    Resume Exit_EnregistrementSuivant_Click





@+
PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

cs_frop01 · Answer

salut,



avant de faire DoCmd.GoToRecord , , acNext

il faut tester si ton recordset n'est pas EOF (end of file)

PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

or_eli · Answer

salut,

merci pour ton aide mais je ne sais pas utiliser EOF :-(
peux-tu m'aider?

merci

or_eli · Answer

SALUT,

VRAIMENT MERCI MERCI frop01!! :-)
A LA PROCHAINE

++

cs_frop01 · Answer

;) ravi
PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

Formulaire Access

5 réponses

Discussions similaires