lecture dans un jeu d'enregistrement

Question

salut,

quelqu'un peut-il m'aider à résoudre ce petit problème? Voici le code d'un bouton "Précédent" que j'ai fait pour me permettre de passer en révue les enregistrements. apparemment il n'y a pas de problème mais il n'y a pas de réaction. je voudrais bien savoir pourquoi!

Private Sub CmdPrec_Click()
    Call Connexion_Art
    rsart.Find ("codeart='CboCodeArt.Text'")
    On Error Resume Next
        rsart.MovePrevious
        CboCodeArt.Text = rsart!codeart
        CboCatArt.Text = rsart!refcatart
        TxtLibArt.Text = rsart!libart
        TxtPu.Text = rsart!puart
        TxtUnitArt.Text = rsart!unitart
    If rsart.BOF = True Then
        MsgBox "Vous êtes déjà au premier article! Cliquer sur Suivant pour continuer la consultation.", vbInformation, "Articles"
        CmdSuiv.SetFocus
        Exit Sub
    End If
End Sub

et voici la structure de Connexion_Art:
Public Sub Connexion_Art()
    If rsart.State = 1 Then
        rsart.Close
        Set rsart = Nothing
    End If
    eliane = "select * from article"
    With rsart
        .CursorType = adOpenKeyset
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Open eliane, cn, , , adCmdText
    End With
End Sub

Merci pour l'aide!!!

ucfoutu · Answer

Et ... 
quel est le code de l'évènement click de CmdSuiv ?
(c'est quand même assez étrange, d'avoir à demander à voir ce code-là !)


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

Lecture dans un jeu d'enregistrement

1 réponse

Votre réponse

Discussions similaires