Mise a jour des informations

**got75** · 06/12/2006, 14h11

Bonjour,

J'ai réaliser une interface assez succinte que vous pouvez retrouver ci dessous :

explication de l'interface :

- J'ai un champ qui m affiche l'id du contrat
ici par exemple : 15548

- Une combobox qui m'affiche le no du contrat correspondant à l'id du contrat (l'affichage ce fait via une requete liee au champ id_contrat)
ici par exemple : 41012585

Mes problemes sont les suivants :

- J'aimerais que qd je vais sur un enregistrement suivant en cliquant sur le bouton 2, le combobox affiche directement le no du contrat du nouvel enregistrement.

- Comment faire pour que le bombobox m'affiche par defaut la 1ere ligne de la source du combobox ?

Got

**fulgaro** · 06/12/2006, 14h17

bonjour,
tu peux le faire en vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql = "select numero_contrat as numero ...."
set rs = currentdb.openrecordset(sql)
me.liste.value = rs!numero

**got75** · 06/12/2006, 14h59

et je le met a quel niveau le code (sur quelle action)
car je voudrais que ca se mettre a jour dès que le nouvel enregistrement apparait apres avoir cliqué sur le bouton d'enregistrement suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql = "select numero_contrat as numero ...."
set rs = currentdb.openrecordset(sql)
me.liste.value = rs!numero

j'arrive a le mettre a jour mais apres avoir clique sur le bouton [mise a jour ...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' Bouton de mise a jour du cbbox nom client
Private Sub btn_maj_nom_client_Click()
    id_client.SetFocus
    
    Dim SQL_clients As String
    SQL_clients = "SELECT dbo_clients.id_client, dbo_clients.nom, dbo_clients.prenom, dbo_clients.qualite "
    SQL_clients = SQL_clients & " FROM dbo_clients "
    SQL_clients = SQL_clients & " WHERE dbo_clients.id_client = " & id_client.Text & " "
    SQL_clients = SQL_clients & " ORDER BY dbo_clients.nom, dbo_clients.prenom, dbo_clients.qualite;"
    cbbox_client_nom.RowSource = SQL_clients
    cbbox_client_nom.Requery
End Sub

Comment faire ?