Option Compare Database
Private Sub form_open(Cancel As Integer)
'A l'ouverture du formulaire, on accède directement au nouvel enregistrement
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Commande25_Click()
Dim cod As Integer
On Error GoTo Err_Commande25_Click
If IsNull(nom_frs) Then
'Affichage d'un message d'erreur si le client n'a pas de nom
MsgBox ("Le fournisseur doit avoir un nom.")
Else
'On enregistre le nouveau fournisseur et on ouvre un autre formulaire
DoCmd.GoToRecord , , acNewRec
'Application.DoCmd.Close
DoCmd.OpenForm "achat_ajout3", acNormal, , , acFormReadOnly, acWindowNormal, Me.code_frs.Value
End If
Exit_Commande25_Click:
Exit Sub
Err_Commande25_Click:
MsgBox Err.Description
Resume Exit_Commande25_Click
End Sub
Partager