Discussion :

[patmar83]

Bonjour,

Je tourne en rond depuis quelques temps car je pense que j'ai un problème de syntaxe dans l’écriture de mon code
Je souhaite fermer un formulaire à partir du sous formulaire qui lui est attaché
Sur une perte de focus d'un champ je fais afficher un message de confirmation
Si la réponse est non, je redonne le focus au sous formulaire
Cette phase fonctionne

Si la réponse est oui, je voudrais quitter le formulaire principal

la commande docdm.close acform ne fonctionne pas ce qui est normal je pense
Merci si quelqu'un à une solurion

[Invité]

Bonjour

Je tourne en rond depuis quelques temps car je pense que j'ai un problème de syntaxe dans l’écriture de mon code

Et le code on peut l'avoir ?

Philippe

[patmar83]

Voici le code que j'ai mis
on retrouve toute la partie concernant le message avec les deux choix oui/non
et sur le oui j'essaie de fermer le formulaire principal

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
22
Private Sub LIBRE1_LostFocus()
 
Dim Msg, Style, Title, Response, MyString
Msg = "AVEZ TERMINE SUR CETTE OPERATION?"    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "VISA OPERATION "    ' Définit le titre.
Help = "DEMO.HLP"    ' Définit le fichier d'aide.
Ctxt = 1000    ' Définit le contexte de
                ' la rubrique.
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    MyString = "Oui"    ' Effectue une action.
 
    DoCmd.GoToRecord acForm, Forms!["FORMOPERATIONGENE"]![NUM_SERIE]
 
      DoCmd.Close acForm, "FORMOPERATIONGENE"
Else    ' L'utilisateur a choisi Non.
    MyString = "Non"    ' Effectue une action.
End If
 
End Sub