Discussion :

[Jupaysan]

Bonjour,

Je vous remercie par avance de votre aide.
Voici un problème, à priori tout simple pour les plus expérimentés.
En effet, j'ai mon formulaire principal Form A associé à un Sform B est une feuille de données comprenant les champs X, Y et Z.
Sur le formulaire principal, j'ai crée 3 boutons de commande: Enregistrer, Annuler et Supprimer. Mon souhait est de pouvoir contrôler le Sform avec ces boutons.
C'est à dire lorsque l'utilisation complète les données dans le Sfrm, il clique sur sauvegarder, si le champ Y est vide, que je puisse lui afficher un MsgBox.
J'arrive à le faire avec le SFrm en mode tabulaire mais je calle avec mes SFrm en mode Feuilles de données.

En résumé:
Formulaire Principal (Form A), qui contient un champ Id_Z et les boutons de commande: Enregistrer, Annuler et Supprimer.
Sous Formulaire lié au Form A par le champ Id_Z et les champs à suivants à saisir par l'utilisateur: X, Y et Z. Ces champs sont obligatoires.

Comment faire pour que quand l'utilisateur clique par exemple sur Enregistrer, un MsgBox s'affiche pour lui signifier par exemple qu'un champ est manquant.

En espérant être un peu précis.
Merci

[hyperion13]

Salut
Sur l'évènement Sortie de chacun de vos champs à contrôler dans votre sform passez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ChampZ_Exit(Cancel As Integer)
If IsNull(Me. ChampZ) Or Me. ChampZ= 0 Then
    MsgBox "Vous devez saisir une valeur !", vbOKOnly
    Me. ChampZ.SetFocus
    Cancel = True
End If
End Sub

[Jupaysan]

Bonjour Hyperion 13

Très grand merci pour ta réponse, qui est une solution à une partie de mon problème.
Cependant, j'ai 3 boutons sur mon formulaire principale: Enregistrer, Annuler et Supprimer.
- Comment faire pour que quand l'utilisateur clique par exemple sur Annuler, cela annule la saisie en cours dans le sous formulaire.
- Comment faire pour que si un des champs obligatoires du Sform est manquant, les données ne soient pas enregistrées à la fermeture du formulaire?
Voici une capture du form + Sform. Les champs Technicien et Tel sont obligatoires

[hyperion13]

Pas nécessairement utile d'ouvrir un autre billet, même si la réponse tarde.
Dans votre sform copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim response As Integer
response = MsgBox("Voulez-vous enregistrer ?", vbYesNo, "Sauvegarder")
    If response = vbNo Then
        Me.undo
    Else
        MsgBox ("Enregistrement non sauvegardé")
    End If
End Sub

Et pour votre boutons de commande, passer (adapter selon votre IHM)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Annuler_Click()
On Error GoTo Err_Annuler_Click
    Me.undo
Exit_Annuler_Click:
    Exit Sub
Err_Annuler_Click:
    MsgBox Err.Description
    Resume Exit_Annuler_Click
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Enregistrer_Click()
On Error GoTo Err_Enregistrer_Click
    DoCmd.RunCommand acCmdSaveRecord
Exit_Enregistrer_Click:
    Exit Sub
Err_Enregistrer_Click:
    MsgBox Err.Description
    Resume Exit_Enregistrer_Click
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Fermer_Click()
On Error GoTo Err_Fermer_Click
    Me.undo
    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close
Exit_Fermer_Click:
    Exit Sub
Err_Fermer_Click:
    MsgBox Err.Description
    Resume Exit_Fermer_Click
End Sub

[Jupaysan]

Bonjour Hyperion13
Effectivement je n'aurais pas dû ouvrir un nouveau ticket. je vais le fermer.
Très grand merci pour ton retour.
Si j'ai bien compris, les codes pour les boutons "Annuler" et "Enregistrer", je n'ai pas besoin de préciser le nom du sous form?

Merci+++