Discussion :

[SixteenVBA]

Bonjour tout le monde,

Après recherche et test de plusieurs solutions proposées je n'ai pas trouvé quelque chose qui marche. Ma demande n'est pas compliquée mais étant plus que débutante en VBA je n'y arrive pas.
Je souhaite que lorsque sur un formulaire, on coche une certaine case (nommée Prise_en_compte), la date de prise en compte (nommée Date_prise_en_compte) soit obligatoirement remplie. Donc soit en bloquant l'enregistrement si ce n'est pas le cas grâce à message ou soit que la date se remplisse automatiquement si la case est cochée mais avec cette solution là j'ai peur que la date change à chaque fois que l'on va rouvrir le formulaire qui plus est, un jour différent.

Quelqu'un connait un code VBA pour cela?
Merci d'avance.

[madefemere]

Re-,

Avec ce code sur l'évènement Avant Mise à jour de ton formulaire, cela doit se faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Prise_en_compte And (IsNull(Me.Date_prise_en_compte) Or Me.Date_prise_en_compte = "") Then
 
    Me.Undo 'Annuler les saisies faites : optionnel (Tu peux annuler uniquement la saisie de PriseenCompte avec Me.PriseEncompte.Undo
    MsgBox ("Vous avez oublié la date de prise en compte!")
    Me.Date_prise_en_compte.SetFocus
 
End If
 
End Sub

Cordialement,

[SixteenVBA]

Re-,

Avec ce code sur l'évènement Avant Mise à jour de ton formulaire, cela doit se faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Prise_en_compte And (IsNull(Me.Date_prise_en_compte) Or Me.Date_prise_en_compte = "") Then
 
    Me.Undo 'Annuler les saisies faites : optionnel (Tu peux annuler uniquement la saisie de PriseenCompte avec Me.PriseEncompte.Undo
    MsgBox ("Vous avez oublié la date de prise en compte!")
    Me.Date_prise_en_compte.SetFocus
 
End If
 
End Sub

Cordialement,

Vous allez finir par me faire ma base complètement... Non encore merci.
Le code marche bien mais je peux fermer le formulaire quand même: le message s'affiche bien lorsque je souhaite quitter le formulaire, je click sur le OK pour l'enlever et là le formulaire se ferme. Que dois-je rajouter pour éviter cela et les obliger à rester sur le formulaire tant qu'il n'ont pas rempli la date?

Merci

[madefemere]

Re-,

C'est le souci dans les applications, il faut penser à toutes les possibilités.
Ton souci ici est que tu utilises une MACRO et non de code VBA pour fermer ton formulaire avec ton bouton Commande43. Il faudrait remplacer cette MACRO par ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande43_Click()
If Me.Prise_en_compte And (IsNull(Me.Date_prise_en_compte) Or Me.Date_prise_en_compte = "") Then
    'Me.Prise_en_compte.Undo
    'Me.Undo
    MsgBox ("Vous avez oublié la date de prise en compte!")
    Exit Sub
    Me.Date_prise_en_compte.SetFocus
Else
    DoCmd.Close
End If
 
End Sub

et neutraliser aussi le bouton Croix en haut à droite qui permet de fermer le formulaire.

Attention : Le code actuel permet de vérifier la saisie de nouveaux enregistrements mais ne fait pas le contrôle de ceux qui ont été saisis avant.

Cordialement,

[SixteenVBA]

C'est tout bon!
Merci beaucoup encore une fois!