Click sur DataCombo

Signaler
Messages postés
12
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
30 juillet 2007
-
Messages postés
12
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
30 juillet 2007
-
Bonjour,

je vienne de créer une application qui se connecte à une base Access avec Adodc,


les données sont récupéré dans un Datacomb, et aussi dans des zone de texte,

et les données de la base sont parcoures aussi grâce a des bouton suivant précédent
ect...

le prob consiste a ce déplacer vers un enregistrement précis dans la base quand
je le choisir dans le ComboData , cad une façon simplifier d aller vers un enregistrement
directement,

mais le problème c'est quand je clique sur une valeur dans le DataCombo les
autres valeur ne se rafraichir pas , alors comment faire stp

j ai essayer de cette façon même que sa marche pas (le prob est ds la partie de
code rouge )


Private Sub DataCombo1_Click(Area As Integer)

Dim strCdArt As String

On Error GoTo GoNextError


  If Not Adodc1.Recordset.EOF Then

    'Adodc1.Recordset.MoveFirst

  Adodc1.Recordset.Find "AR_Ref = '" & strCdArt &
"' "

  End If

 

  If Adodc1.Recordset.EOF And Adodc1.Recordset.RecordCount > 0 Then

    Beep

     'moved off the end so go back

    Adodc1.Recordset.MoveFirst

  End If

  'show the current record

  mbDataChanged = False


  Exit Sub

GoNextError:

  MsgBox Err.Description


 

End Sub


Merci pour votre aide d'avance , c'est urgent svp



cool

1 réponse

Messages postés
12
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
30 juillet 2007

j'essayer encore avec ce code dans la focntion click ou change mais tjrs des erreur, je suis bloqué , les données ne s'actualise pas

Private Sub DataCombo1_Change()
Adodc1.Recordset.MoveFirst
Text1 = Adodc1.Recordset!AR_DESIGN
'Text2 = Adodc1.Recordset!AC_PrixVen
Text3 = Adodc1.Recordset!AR_PRIXACH
'Text4 = Adodc1.Recordset!CT_Num
End Sub

cool