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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
|
Private Sub CmdPremier_Click() ' aller au premier enregistrement
On Error Resume Next
Me.Parent.Recordset.MoveFirst
End Sub
Private Sub CmdPrecedant_Click() ' aller à l'enregistrement précédent
On Error Resume Next
Me.Parent.Recordset.MovePrevious
End Sub
Private Sub CmdSuivant_Click() ' aller à l'enregistrement suivant
On Error Resume Next
Me.Parent.Recordset.MoveNext
End Sub
Private Sub CmdDernier_Click() ' aller au dernier enregistrement
On Error Resume Next
Me.Parent.Recordset.MoveLast
End Sub
Private Sub CmdExit_Click() ' quitter
On Error Resume Next
DoCmd.Close acForm, Form.Parent.Name, acSaveYes
End Sub
Public Sub MAJ_Navigation()
On Error GoTo GestionErreur
If Me.Parent.Form.NewRecord Then
'****
InfoNew.Visible = True
InfoEnr.Visible = False
'****
CmdPremier.Enabled = True
CmdPrecedant.Enabled = False
CmdSuivant.Enabled = False
CmdDernier.Enabled = True
CmdAnnuler.Visible = True
CmdNouveau.Visible = False
CmdSupprimer.Enabled = False
'****
Else
'****
InfoNew.Visible = False
InfoEnr.Visible = True
InfoEnr.Caption = "N° " & Me.Parent.CurrentRecord & "/" & Me.Parent.Recordset.RecordCount & IIf(Me.Parent.FilterOn, " Filtré", "")
'****
CmdPremier.Enabled = Me.Parent.CurrentRecord > 1
CmdPrecedant.Enabled = Me.Parent.CurrentRecord > 1
CmdSuivant.Enabled = Me.Parent.CurrentRecord < Me.Parent.Recordset.RecordCount
CmdDernier.Enabled = Me.Parent.CurrentRecord < Me.Parent.Recordset.RecordCount
CmdAnnuler.Visible = False
CmdNouveau.Visible = Me.Parent.AllowAdditions
CmdSupprimer.Enabled = Me.Parent.AllowDeletions
'****
InfoModification.Visible = Not Me.Parent.AllowEdits
End If
Exit Sub
GestionErreur:
If Err = 2164 Or Err = 2165 Then
CmdExit.SetFocus
Resume
End If
End Sub
Public Sub CmdNouveau_Click()
On Error Resume Next
Me.Parent.Recordset.AddNew ' éditer un nouvel enregistrement
End Sub
Private Sub CmdAnnuler_Click()
On Error Resume Next
Me.Parent.Form.Recordset.CancelUpdate
Me.Parent.Form.Recordset.MoveLast
End Sub
Private Sub CmdSupprimer_Click()
Form.Parent.Form!Suppression = Now
Form.Parent.Form!QuiSuppression = [Form_Gestion Membre].ID
Form.Parent.Form.Requery
End Sub |
Partager