Discussion :

[mcharmat]

Bonjour,

J'ai une requête qui regroupe une table [clients] et une table [expertise].

j'ai regroupé ces deux tables par une requête pour réaliser un formulaire. Le champ [ID_p] représente un champ de la table [client] et le champ [Date_decesion] représente un des champs de la table [expertise].

Parfois j'oublie de remplir l'un de c'est champ, j'ai mis un contrôle dans chacun des champs pour vérifier qu'ils ne doivent pas être vides, exp :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Date_decesion_LostFocus()
If IsNull([Date_decesion]) Then
Me.Commande75.Enabled = False
Texte201 = MsgBox("Vous devais enregistrer une date de décision", vbOKOnly)
Else
Me.Commande75.Enabled = True
End If
End Sub

Si le champ [Date_decesion] est vide, le bouton d'enregistrement (Commande75) reste désactivé. Seulement, si je ne passe pas par le champ [Date_decesion], le bouton est activé.

Alors, j'aimerai savoir comment faire (par macro) , pour vérifier que les champs [ID_p] et [Date_decesion] du formulaire,ne soient pas vides, pour enregistrer, sinon annuler.

Merci

[Renardo]

bonjour

Code :

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

If IsNull([me.Date_decesion]) and IsNull(me.[id_p]) Then

[mcharmat]

Bonjour,

Merci de me répondre.

le code suivant :

Code :

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

If IsNull([me.Date_decesion]) and IsNull(me.[id_p]) Then

Comment faire pour annuler l'enregistrement svp ?

Pour déclancher un enregistrement

Code :

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

1
2
3
Private Sub Commande18_Click()
DoCmd.RunCommand acCmdSaveRecord
End Sub

Mais j'aimerais que le formulaire vérifier avant que si les deux champs sont vide ou pas pour confirmer alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(me.[Date_decesion]) and IsNull(me.[id_p]) Then
If MsgBox("Voulez-vous faire les modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbyes Then
    Me.undo
    Cancel = ?   'commande rien faire
Else
If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.undo
    Cancel = true
  End if
  End if
End Sub

Le but est faire en sorte que je clique sur le bouton d'enregistrement [Commande18], le formulaire vérifier le contenu vide ou pas :
1 cas : Vide, alors j'aimerais que si je clique ok, je reste sans enregistrer, mais si je clique sur non, il me demande d'enregistrer ou pas


Comment faire la formule de rester sans enregistrer ou ne rien faire ?

[Renardo]

Bonjour
essai avec se code a mettre sur ton bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande10_Click()
If IsNull(Me.Date_Decesion) Or IsNull(Me.Id_P) Then
MsgBox "certain champ ne sont pas renseigné"
Exit Sub
Else
If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
Me.Undo
    Else
DoCmd.RunCommand acCmdSaveRecord
End If
  End If
 
End Sub

[mcharmat]

Re-Bonjour,

Ok, je vous remerci, je vais tester