CONCLUSION
84
BIBLIOGRAPHIE
88
ANNEXE
PRESENTATION DE QUELQUES CODE DE CONNEXION
Code de Suppression d'un enregistrement
PrivateSub Commande10_Click()
On Error GoTo Err_Command17_Click
DoCmd.DoMenuItemacFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItemacFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command17_Click:
Exit Sub
Err_Command17_Click:
MsgBoxErr.Description
Resume Exit_Command17_Click
End Sub
Code de l'enregistrement
précèdent
PrivateSub Commande11_Click()
On ErrorGoTo Err_Commande9_Click
DoCmd.DoMenuItemacFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.GoToRecord , , acPrevious
Exit_Commande9_Click:
Exit Sub
Err_Commande9_Click:
MsgBoxErr.Description
End Sub
Code de l'enregistrement suivant
Private Sub Commande12_Click()
On Error GoTo Err_Commande9_Click
DoCmd.DoMenuItemacFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.GoToRecord , , acNext
Exit_Commande9_Click:
Exit Sub
Err_Commande9_Click:
MsgBoxErr.Description
End Sub
Code de recherche des enregistrements
Private Sub Commande13_Click()
On Error GoTo Err_Command16_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItemacFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command16_Click:
Exit Sub
Err_Command16_Click:
MsgBoxErr.Description
End Sub
Code de retour
PrivateSub Commande14_Click()
If 6 = MsgBox("Souhaitez-vous fermer le formulaire?", 4)
Then
DoCmd.Close
DoCmd.OpenForm "SAISIE DES DONNEES"
End If
End Sub
Code de premier enregistrement
Private Sub Commande15_Click()
On Error GoTo Err_Commande9_Click
DoCmd.DoMenuItemacFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.GoToRecord , , acFirst
Exit_Commande9_Click:
Exit Sub
Err_Commande9_Click:
MsgBoxErr.Description
End Sub
Code de dernier enregistrement
Private Sub Commande16_Click()
On Error GoTo Err_Commande9_Click
DoCmd.DoMenuItemacFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.GoToRecord , , acLast
Exit_Commande9_Click:
Exit Sub
Err_Commande9_Click:
MsgBoxErr.Description
End Sub
Code d'enregistrement
PrivateSub Commande9_Click()
On ErrorGoTo Err_Commande9_Click
DoCmd.DoMenuItemacFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.GoToRecord , , acNewRec
Exit_Commande9_Click:
Exit Sub
Err_Commande9_Click:
MsgBoxErr.Description
End Sub
| 
