Re : Modifier un enregistrement dans une base de données
Je suis en train de d'essayer de comprendre le fonctionnement de ton fichier
Quand je clique sur le bouton "enregistrer" il y a un message d'erreur
j'ai surligné le bug en rouge
...pas facile quand on est pas doué comme moi
Voilà ton code :
Option Explicit
Private Sub btnNouvelleFiche_Click()
On Error Resume Next
Set ctl = Me.OLEObjects("ListeNomsPrenoms")
On Error GoTo 0
ctl.Object.ListIndex = 0
RemplirFiche "xxx" 'Nouvelle fiche
End Sub
Private Sub cmdRetourMenu_Click()
Call Menu
End Sub
Private Sub ListeNomsPrenoms_Click()
'listindex=-1 : pas de selection
'listindex= 0 : selection du Premier item (contenant MATRICULE et AGENT)
If ListeNomsPrenoms.ListIndex < 1 Then Exit Sub
RemplirFiche ListeNomsPrenoms.Value
End Sub
Private Sub Worksheet_Activate()
'Remplir la liste avec les noms et prénoms de la base
'Dans l'ordre de la base de données
Dim ctl As OLEObject
Dim i As Integer
On Error Resume Next
Set ctl = Me.OLEObjects("ListeNomsPrenoms")
On Error GoTo 0
If Not ctl Is Nothing Then
With [Base_datas]
ctl.Object.Clear
ctl.Object.AddItem "MATRICULE"
ctl.Object.List(0, 1) = "AGENT"
For i = 1 To [Base_Nb_Lignes]
ctl.Object.AddItem .Cells(i, 3)
ctl.Object.List(ctl.Object.ListCount - 1, 1) = .Cells(i, 1) & " " & .Cells(i, 2)
Next i
End With
End If
End Sub