Discussion :

[gberthier]

Bonjour,
Je souhaite avoir un bouton de commande avec un 'iif' avec une expression (si X="") suivie de deux critère: soit action fermeture du formulaire (Docmd.close), soit action supprimer l'enregistrement

Code :

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Est-ce possible?
Pour l'instant ça ne marche pas, le code de l'action annuler un enregistrement ne semble pas bon...)

[ClaudeLELOUP]

A ta santé gberthier,

Je te propose ceci sur le clic du bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Réponse As Integer
If Me.X = "" Then
Réponse = MsgBox("Pour sortir cliquez OUI ," & Chr(13) & Chr(10) & _
   "pour supprimer l'enregistrement cliquez NON", vbInformation + vbYesNoCancel, _
   "Alternative")
  Select Case Réponse
    Case vbYes
      DoCmd.Close acForm, Me.Name
    Case vbNo
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
  End Select
End If

[gberthier]

Salut Claude,
Merci pour ta réponse, c'est intéressant de passer pas une msgbox, je n'y avait pas pensé...
Pour l'instant, j'ai mis le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Commande74_Click()
 
   Dim Réponse As Integer
If Me.[id_mise en cuve] = "" Then
Réponse = MsgBox("Pour sortir cliquez OUI ," & Chr(13) & Chr(10) & _
   "pour supprimer l'enregistrement cliquez NON", vbInformation + vbYesNoCancel, _
   "Alternative")
  Select Case Réponse
    Case vbYes
      DoCmd.Close acForm, Me.Name
    Case vbNo
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
  End Select
End If
 
Exit_Commande74_Click:
    Exit Sub

mais ça ne marche pas, il ne se passe rien... si quelque'un trouve mon erreur avant moi, je suis preneur...

[ClaudeLELOUP]

S'il ne se passe rien c'est que :
Me.[id_mise en cuve] est différent de ""

Vois mon ajout de debug.print dans ton code.
Cela te permettra de vérifier sa valeur dans la fenêtre d'exécution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande74_Click()
 
   Dim Réponse As Integer
If Me.[id_mise en cuve] = "" Then
Réponse = MsgBox("Pour sortir cliquez OUI ," & Chr(13) & Chr(10) & _
   "pour supprimer l'enregistrement cliquez NON", vbInformation + vbYesNoCancel, _
   "Alternative")
  Select Case Réponse
    Case vbYes
      DoCmd.Close acForm, Me.Name
    Case vbNo
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
  End Select
Else
debug.print Me.[id_mise en cuve] 
End If
 
Exit_Commande74_Click:
    Exit Sub

[gberthier]

Salut Claude,
Merci pour tes solutions! ça marche impeccable (j'ai juste changé la condition de mon iff et les commandes de la msgbox, et ça tourne comme je veux).
Bonne journée à toi
(je trinquerais à ta santé ce midi, avec modération bien sûr!)