1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Sub Commande4_Click()
DoCmd.SetWarnings False
lngNoAdherent = Forms!ADHERENTS.Liste99.Column(0)
If MsgBox("Confirmez vous l'archivage de cet adhérent ?", vbYesNo) = vbYes Then
DoCmd.OpenQuery "Requête Ajout Archive"
DoCmd.OpenQuery "Requête Suppression Archive"
End If
Forms!ADHERENTS.Requery
Forms!ADHERENTS.Liste99.Requery
Forms!ADHERENTS.Liste99.ListIndex 1
DoCmd.Close
Dim rst As DAO.Recordset
'Cette variable devrait déjà être déclarée
'au moment de la récupération de l'ID de l'enregistrement suivant
Dim lngNoAdherent As Long
DoCmd.Echo False
With Me.RecordsetClone
.FindFirst "[N°adhérents]=" & lngNoAdherent
If .NoMatch = False Then Me.Bookmark = .Bookmark
.Close
End With
Set rst = Nothing
DoCmd.Echo True
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acClone
End Sub |