Aide sur access et formulaire

Bonjour,

Voici mon code :

Option Compare Database

Private Sub Commande96_Click()
On Error GoTo Err_Commande96_Click


DoCmd.Close

Exit_Commande96_Click:
Exit Sub

Err_Commande96_Click:
MsgBox Err.Description
Resume Exit_Commande96_Click
End Sub

Private Sub RETOUR_Click()
DoCmd.OpenForm "fCréationlancement"
End Sub


Private Sub btnAnnuler_Click()
DoCmd.OpenForm "fMenu"
End Sub

Private Sub ENREGISTRER1_Click()


'test Numéro d'affaire renseigné'

If IsNull([Form_fCréationlancement].NUMAFFAIRE) Then
MsgBox "Saisisser le numéro d'affaire s'il vous plaît", vbInformation
Exit Sub
End If

'test Numéro de devis renseigné'

If IsNull([Form_fCréationlancement].NUMDEVIS) Then
MsgBox "Choisisser le numéro du devis s'il vous plaît", vbInformation
Exit Sub
End If

'test Numéro de DAS renseigné'

If IsNull([Form_fCréationlancement].NUMDAS) Then
MsgBox "Choisisser le numéro du DAS s'il vous plaît", vbInformation
Exit Sub
End If


'test Numéro de commande client renseigné'

If IsNull([Form_fCréationlancement].Numcdeclient) Then
MsgBox "Saisisser le numéro de commande du client s'il vous plaît", vbInformation
Exit Sub
End If

If IsNull([Form_fCréationlancement].Nomclient) Then
MsgBox "Saisisser le nom du client s'il vous plaît", vbInformation
Exit Sub
End If

If IsNull([Form_fCréationlancement].REFERENCE) Then
MsgBox "Saisisser la référence du client s'il vous plaît", vbInformation
Exit Sub
End If

If IsNull([Form_fCréationlancement].DESIGNATION) Then
MsgBox "Saisisser la désignation des pièces s'il vous plaît", vbInformation
Exit Sub
End If

If IsNull([Form_fCréationlancement].DateEI) Then
MsgBox "Saisisser la date EI s'il vous plaît", vbInformation
Exit Sub
End If

If IsNull([Form_fCréationlancement].DMS) Then
MsgBox "renseigner la date de mise en service s'il vous plaît", vbInformation
Exit Sub
End If

Dim bdd, mbh As Database
Dim rs_lot, rst As Recordset
Dim req As String


Set bdd = CurrentDb
Set rs_lot = bdd.OpenRecordset("tCréationlancement", dbOpenDynaset)

rs_lot.AddNew
rs_lot!DATE = [Form_fCréationlancement].DATE
rs_lot![Numéro d'affaire] = [Form_fCréationlancement].NUMAFFAIRE
rs_lot![N° Devis] = [Form_fCréationlancement].NUMDEVIS
rs_lot![N° Das] = [Form_fCréationlancement].NUMDAS
rs_lot![N° commande client] = [Form_fCréationlancement].Numcdeclient
rs_lot![Nom client] = [Form_fCréationlancement].Nomclient
rs_lot![Référence client] = [Form_fCréationlancement].REFERENCE
rs_lot![Désignation pièces] = [Form_fCréationlancement].DESIGNATION
rs_lot![Date EI] = [Form_fCréationlancement].DateEI
rs_lot![DMS] = [Form_fCréationlancement].DMS
rs_lot![Moule injection] = [Form_fCréationlancement].MI
rs_lot![Machine assemblage] = [Form_fCréationlancement].MA
rs_lot![Outillage fournisseur] = [Form_fCréationlancement].OF
'________________________________________________________________________________'
rs_lot.Update

rs_lot.Close
bdd.Close
MsgBox "Enregistrer", vbOKOnly
Commande96_Click



End Sub


Private Sub MA_BeforeUpdate(Cancel As Integer)
DoCmd.OpenForm "Formulaire Machine assemblage"
End Sub

Private Sub MI_BeforeUpdate(Cancel As Integer)
DoCmd.OpenForm "Formulaire Moule Injection"
End Sub

Private Sub OF_BeforeUpdate(Cancel As Integer)
DoCmd.OpenForm "Formulaire Outillages fournisseurs + inserts"
End Sub



Et mon problème c'est que j'aimerais que quand je clique sur le bouton enregistrer, selon le nombre que j'ai entrer dans ce qui est en gras, qu'il ouvre le nombre de fois le même formulaire.